AD Console

[Guest Guidosoft]

Now, we all agree that insolences console style is totally cool in his Adrian Donkey project.

Well, I made a template console program that uses that style. 90% of the credit is given to insolence cause he made it up. 10% cause I wrote the template code.

Here is the ADConsole Skeleton:

Note: Although maybe 1 or 2 lines of code appear to be exactly the same as in Adrian Donkey code, there was no other way to do it, so naturally, this is the method that fell out.

Remember, I am not saying this is ALL 100% my work cause it is not cause the idea

is all insolences. Notice I did NOT put an Author: Guido Arbia.

Just thaught I would clarify this. So if you want to say thankyou to somebody, it should be 90% to insolence and 10% to me.

expandcollapse popup

;Basic AD Console Skeleton

#include <GUIConstants.AU3>

$CW = GUICreate("My Console", 500, 300)
$CO = GUICtrlCreateEdit("",0,0,500,275,$WS_VScroll+$ES_AUTOVSCROLL+$ES_READONLY)
$CI = GUICtrlCreateInput("",0,275,500,24)

GuiSetState(@SW_SHOW)

$CIV = ""
$ResponseStage = "Main"

ConsoleOutputLine("This is a console skeleton. Type exit and press enter to quit.")
While 1
   $MSG = GuiGetMsg()
   
   Select
   Case $MSG = $GUI_EVENT_CLOSE
      Exit
   Case $CIV <> ""
      DealWithInput()
   EndSelect
   
   If WinActive($CW) Then
      HotKeySet("{ENTER}","CIV")
      ControlFocus($CW, "", $CI)
   Else
      HotKeySet("{ENTER}")
   EndIf
WEnd

Func CIV()
   $CIV = GUICtrlRead($CI)
   GUICtrlSetData($CI,"")
EndFunc

Func DealWithInput()
   Select
   Case $ResponseStage = "Main"
      MainInputDeal()
   EndSelect
   
   $CIV = ""
EndFunc

Func MainInputDeal()
   Select 
   Case $CIV = "exit"
      ConsoleOutputLine("Exitting console....")
      Exit
   EndSelect
EndFunc

Func ConsoleOutput($Stuff)
   $COV = GUICtrlRead($CO)
   $COV = $COV & $stuff
   GuiCtrlSetData($Stuff,$COV)
EndFunc

Func ConsoleOutputLine($Stuff)
   $COV = GUICtrlRead($CO)
   $COV = $COV & $stuff & @CRLF
   GuiCtrlSetData($CO,$COV)
EndFunc

[Alterego]

i can't test this atm, but it doesnt appear that this console is going to scroll down with text as it becomes longer than the screen?

[Insolence]

'AD'?

Did you have to take the name too...?

EDIT:

I type lines it and it doesn't do anything.

Edited March 8, 2005 by Insolence

[layer]

thats what i thought at first... then i think he means like this is how yours looks (just without all the comamnds and shizzle) so he just abriviated the Angry Donkey to AD Console "Skeleten" as its just the basics of your program maybe im wrong though

[Insolence]

Oh, that makes sense... sorry

Nevermind then, not offended.

[Guido]

"thats what i thought at first... then i think he means like this is how yours looks (just without all the comamnds and shizzle) so he just abriviated the Angry Donkey to AD Console "Skeleten" as its just the basics of your program smile.gif maybe im wrong though sad.gif"

Exacativtly.

Edit: Accididently speelled sontin corecty got a ficks dat.

Edited March 9, 2005 by Guido