Add(MainForm,13286583,315,168)
{
 Width=476
 Height=175
 Caption="Использовать консоль в неконсольном приложении"
 link(onCreate,16215071:doOpenConsole,[])
}
Add(InlineCode,16215071,385,182)
{
 WorkPoints=#13:doOpenConsole|16:doWriteToConsole|13:doFreeConsole|
 EventPoints=#7:onEvent|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|16:{ Event Points }|20:onEvent : THI_Event;|0:|15:{ Work Points }|54:Procedure doOpenConsole (var _Data:TData; Index:word);|57:Procedure doWriteToConsole (var _Data:TData; Index:word);|54:Procedure doFreeConsole (var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|15:{ Work Points }|67:Procedure  THiAsmClass.doOpenConsole (var _Data:TData; Index:word);|5:Begin|16:   AllocConsole;|76:   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_BLUE);|4:end;|70:Procedure  THiAsmClass.doWriteToConsole (var _Data:TData; Index:word);|5:Begin|28:   Writeln(ToString(_Data));|0:|4:end;|67:Procedure  THiAsmClass.doFreeConsole (var _Data:TData; Index:word);|5:Begin|15:   FreeConsole;|4:end;|0:|4:end.|
}
Add(Edit,12116807,266,203)
{
 Left=20
 Top=10
 Width=405
 Text="Type here your words and press ENTER"
 link(onEnter,8145301:doCharset,[])
}
Add(Button,16245407,315,252)
{
 Left=20
 Top=80
 Width=150
 Caption="Закрыть консоль"
 link(onClick,16215071:doFreeConsole,[(361,258)(361,202)])
}
Add(Charset,8145301,315,210)
{
 Type=1
 link(onCharset,16215071:doWriteToConsole,[(354,216)(354,195)])
}