Add(InlineCode,644566,616,231)
{
 WorkPoints=#1:c|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|16:    h:THI_Event;|42:    procedure c(var dt:TData; index:word);|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.c;|16:var hnd:integer;|18:    Ctl: pControl;|5:begin|26: hnd := ToIntegerEvent(h);|39: Ctl := Pointer(GetProp(hnd, ID_SELF));|66: //GetProp - ф-ция winapi, извлекает указанное св-во окна/контрола|100: //SetProp - устанавливает св-во окна/контрола, в т.ч. произвольное (SetProp(hwnd, "TestProp", 555))|54: //KOL заносит в св-во ID_SELF Pcontrol (слава б-гу :)|22: Ctl.Color := $E8E8E8;|17: //_hi_OnEvent();|4:end;|0:|4:end.|
 link(h,11353236:Var3,[(622,187)])
}
Add(MainForm,10489408,56,224)
{
 Width=1018
 Height=350
 Position=1
 link(onCreate,7432034:doData,[])
}
Add(StringTableMT,7503742,161,210)
{
 Width=1002
 Height=250
 Align=5
 Font=[Calibri,28,0,0,204]
 Name="table1"
 Columns=#4:Item|11:Description|8:Quantity|4:Unit|5:Price|5:Value|
 StrDelimiter="\t"
 Redaction=0
 Flat=1
 TabGrid=0
 Grid=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 StringsStrLst=#63:13930	Double-action Quickstart II rem. L=740mm	1	PC	98,66	98,66|53:13100201	Spray gun for udder washer	20	PC	17,77	355,4|49:13246007	COMBI-cock ш51 mm cpl.	10	PC	63,43	634,3|51:25643301	Milk hose ш 24/14 x 2750	32	PC	9,76	312,32|56:14291	Service no.1 RDS MAX double box	1	PC	250,51	250,51|54:24144638	Spiral spring for tube filter	3	PC	43,2	129,6|40:22121763	V-belt spz 1087	4	PC	5,91	23,64|61:MH0015	Repair kit non-rotating cylinder ш40mm	8	PC	14,3	114,4|48:GS9835	Revision set SAC Unipuls	4	PC	13,97	55,88|52:22121735	El-motor 3,0kw 3x400v 1400	1	PC	186,4	186,4|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|54:23544122	Carbon disc ш44,7/38,3x5,8mm	2	PC	16,92	33,84|64:21200159	Top part UNIFL3/4 for steel bot.part	25	PC	30,09	752,25|57:24400111	Hose f. pump compl. UNIWASH	153	PC	10,58	1618,74|58:13225	Piston complete for valve UNIWASH3	4	PC	27,09	108,36|60:12200105	Vacuumgauge glycerine ш100mm 3/8"	5	PC	40,57	202,85|
 AutoTblStrLst=0
 StaticColumn=0
 Point(onEscCell)
 Point(onChange)
 Point(Matrix)
 Point(EndIdx)
 Point(FullTextTab)
 Point(doInitTxtTab)
 Point(onKeyDown)
 Point(Index)
 Point(Handle)
 Point(onDblClick)
 Point(doAutoColWidth)
 Point(doKeyBack)
 link(onDblClick,11821637:doEnumChildWindows,[])
}
Add(WinEnum,11821637,245,217)
{
 Point(onEnumChildWindows)
 Point(doEnumChildWindows)
 Point(ParentHandle)
 link(onEnumChildWindows,5403653:doSeparateMT,[])
 link(ParentHandle,7503742:Handle,[(258,208)(237,208)(237,264)(209,264)])
}
Add(If_else,10525174,343,231)
{
 Op2=String(obj_EDIT)
 link(onTrue,8392229:doNext,[])
}
Add(WinTools,10447454,567,196)
{
 Point(doEnable)
 link(Handle,11353236:Var2,[])
}
Add(DoData,7432034,105,238)
{
 Data=Integer(-1)
 link(onEventData,7503742:doAutoColWidth,[])
}
Add(MT_MultiData,5403653,294,231)
{
 Count=1
 Point(RemaindData)
 link(onData1,10525174:doCompare,[])
}
Add(CounterEx,8392229,399,231)
{
 Max=5
 Default=-1
 link(onNext,8644948:doEvent,[])
}
Add(IndexToChanel,8644948,462,231)
{
 Count=6
 Data=Integer(0)
 link(onEvent2,722906:doWork2,[])
 link(onEvent3,12623165:doWork2,[])
 link(onEvent5,12623165:doWork3,[(515,265)])
}
Add(HubEx,722906,511,238)
{
 Angle=3
 link(onEvent,7589453:doEvent1,[(515,230)])
}
Add(HubEx,12623165,511,245)
{
 Angle=3
 link(onEvent,722906:doWork3,[])
}
Add(Hub,7589453,539,224)
{
 link(onEvent1,10447454:doEnable,[])
 link(onEvent2,644566:c,[])
}
Add(GetDataEx,11353236,567,182)
{
 Angle=3
 link(Data,5403653:RemaindData,[(445,187)(445,274)(300,274)])
}