Add(MainForm,2953706,147,182)
{
 Width=476
 Height=205
 Caption="Использовать консоль в неконсольном приложении"
 link(onCreate,8396709:doEvent1,[])
}
Add(ArrayEnum,12358217,287,287)
{
 link(onItem,10359936:doWriteToConsole,[])
 link(onEndEnum,15767886:doWork2,[])
 link(Array,690153:Array,[])
}
Add(StrList,690153,273,231)
{
 Strings=#37:      __ __ _ _____ _____ _____      |37:     |  |  |_|  _  |   __|     |     |37:     |     | |     |__   | | | |     |37:     |__|__|_|__|__|_____|_|_|_|     |11:           |0:|0:|90:Item     | Description                              | Quantity | Unit | Price  | Value  | |89:-----------------------------------------------------------------------------------------|90:13930    | Double-action Quickstart II rem. L=740mm | 1        | PC   | 98,66  | 98,66  | |90:13100201 | Spray gun for udder washer               | 20       | PC   | 17,77  | 355,4  | |90:13246007 | COMBI-cock ?51 mm cpl.                   | 10       | PC   | 63,43  | 634,3  | |90:25643301 | Milk hose ? 24/14 x 2750                 | 32       | PC   | 9,76   | 312,32 | |90:14291    | Service no.1 RDS MAX double box          | 1        | PC   | 250,51 | 250,51 | |90:24144638 | Spiral spring for tube filter            | 3        | PC   | 43,2   | 129,6  | |90:22121763 | V-belt spz 1087                          | 4        | PC   | 5,91   | 23,64  | |90:MH0015   | Repair kit non-rotating cylinder ?40mm   | 8        | PC   | 14,3   | 114,4  | |0:|0:|
}
Add(Memo,3647522,413,280)
{
 Width=460
 Height=166
 Align=5
 Font=[Lucida Console,14,0,0,204]
 ScrollBars=3
}
Add(Button,12285898,287,329)
{
 Left=265
 Top=160
 Align=4
 Caption="Get text from console"
 link(onClick,15767886:doWork3,[(333,335)])
}
Add(HubEx,15767886,329,294)
{
 link(onEvent,10359936:doReadFromConsole,[])
}
Add(InlineCode,10359936,357,280)
{
 WorkPoints=#13:doOpenConsole|16:doWriteToConsole|17:doReadFromConsole|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|0:|20:onEvent : THI_Event;|0:|54:Procedure doOpenConsole (var _Data:TData; Index:word);|57:Procedure doWriteToConsole (var _Data:TData; Index:word);|58:Procedure doReadFromConsole (var _Data:TData; Index:word);|54:Procedure doFreeConsole (var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|67:Procedure  THiAsmClass.doOpenConsole (var _Data:TData; Index:word);|5:Begin|16:   AllocConsole;|22:   SetConsoleCP(1251);|28:   SetConsoleOutputCP(1251);|49:   SetConsoleTitle( PChar( 'Консоль отладки' ) );|83://   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_INTENSITY);|4:end;|70:Procedure  THiAsmClass.doWriteToConsole (var _Data:TData; Index:word);|5:Begin|28:   Writeln(ToString(_Data));|4:end;|71:Procedure  THiAsmClass.doReadFromConsole (var _Data:TData; Index:word);|4: var|13:   s: string;|5:Begin|19:     Write('--> ');|28:     Readln(s);             |27:    _hi_OnEvent(onEvent,s);|4:end;|67:Procedure  THiAsmClass.doFreeConsole (var _Data:TData; Index:word);|5:Begin|15:   FreeConsole;|4:end;|0:|4:end.|
 link(onEvent,3647522:doAdd,[])
}
Add(Registry,10490814,280,168)
{
 HKey=1
 Value="FaceName"
 Data="Lucida Console"
 link(Key,15488830:Var2,[])
}
Add(Application,979190,238,70)
{
}
Add(Replace,1463562,238,119)
{
 SubStr="\"
 DestStr="_"
 link(onReplace,5112298:doStrCat,[])
 link(Str,979190:AppFileName,[])
}
Add(StrCat,5112298,287,119)
{
 Str1="Console\"
}
Add(StrList,8841518,329,168)
{
 Strings=#15:ScreenColors=10|25:ScreenBufferSize=19660900|15:FontSize=786432|13:FontFamily=54|14:FontWeight=400|10:LineWrap=0|0:|
}
Add(Hub,8396709,196,196)
{
 OutCount=5
 link(onEvent1,1463562:doReplace,[(221,202)(221,125)])
 link(onEvent2,10490814:doWrite,[(228,209)(228,181)])
 link(onEvent3,649784:doEnum,[])
 link(onEvent4,10359936:doOpenConsole,[(333,223)(333,286)])
 link(onEvent5,12358217:doEnum,[(263,230)(263,293)])
}
Add(Registry,13256035,455,203)
{
 HKey=1
 Value="FaceName"
 DataType=0
 Data="Lucida Console"
 link(Data,4110750:Part2,[(461,194)(447,194)(447,250)(405,250)])
 link(Key,15488830:Var3,[(468,159)])
 link(Value,4110750:Part1,[(475,194)(496,194)(496,257)(398,257)])
}
Add(GetDataEx,15488830,287,154)
{
 link(Data,5112298:Result,[])
}
Add(ArrayEnum,649784,343,210)
{
 link(onItem,4110750:doSplit,[])
 link(Array,8841518:Array,[])
}
Add(MultiStrPart,4110750,392,210)
{
 Char="="
 link(onSplit,13256035:doWrite,[])
}