Add(MainForm,2953706,70,210)
{
 Width=451
 Height=375
 Font=[MS Sans Serif,8,1,0,1]
 Caption=""
 Position=1
 link(onCreate,10041622:doEnum,[])
}
Add(StrList,15034837,154,168)
{
 Strings=#26:sdfsdf utyuyt popo;aaaaa;;|14:fzsdfzs;bbbb;;|13:sdfszz;cccc;;|14:sdfszz;ddddd;;|14:sdfszz;eeeee;;|14:sdfszz;fffff;;|14:fzsdfzs;gggg;;|13:sdfszz;hhhh;;|15:fzsdfzs;iiiii;;|15:sdfszz;jjjjjj;;|
}
Add(MTStrTbl,4376548,70,315)
{
 Left=10
 Top=5
 Width=420
 Height=305
 Color=-16777194
 Font=[MS Sans Serif,10,1,128,1]
 Name="MtS_tbl"
 HintManager="mtst_hint"
 Layout="horiz_1"
 WidthScale=100
 HeightScale=100
 Columns=#8:Col1=132|8:Col2=132|8:Col3=132|
 ColumnClick=1
 Point(onMouseMove)
 Point(PHandle)
 Point(MouseX)
 Point(MouseY)
 link(onMouseMove,2536700:doSubItem,[(141,349)(141,299)(57,299)(57,377)])
}
Add(MT_String,922736,224,210)
{
 link(onResult,2904434:doRowAction,[])
}
Add(ArrayEnum,10041622,168,224)
{
 link(onItem,922736:doMTString,[])
 link(Array,15034837:Array,[])
}
Add(MST_RowAction,2904434,280,210)
{
 MSTControl="MtS_tbl"
}
Add(VBoxLayout,12452202,70,168)
{
 Name="horiz_1"
 Space=5
 Padding=5
}
Add(InlineCode,2536700,98,371)
{
 WorkPoints=#9:doSubItem|
 EventPoints=#9:onSubItem|
 DataPoints=#7:PHandle|6:MouseX|6:MouseY|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, Kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|15:     onSubItem,|12:     MouseX,|12:     MouseY,|24:     PHandle: THI_Event;|56:     procedure doSubItem(var _Data: TData; Index: word);|5: end;|0:|14:implementation|0:|31:procedure THiAsmUnit.doSubItem;|3:var|21:  sControl: PControl;|24:  HTI: TLVHitTestInfo;  |5:begin|48:  sControl := PControl(ToIntegerEvent(PHandle));|37:  HTI.pt.x := ToIntegerEvent(MouseX);|37:  HTI.pt.y := ToIntegerEvent(MouseY);|61:  sControl.Perform( LVM_SUBITEMHITTEST, 0, Integer( @HTI ) );|35:  if HTI.flags <> LVHT_NOWHERE then|40:    _hi_onEvent(onSubItem, HTI.iSubItem)|8:  else  |44:    _hi_onEvent(onSubItem, -1);             |4:end;|0:|4:end.|
 link(onSubItem,5410312:doStrCat,[])
 link(PHandle,4376548:PHandle,[])
 link(MouseX,4376548:MouseX,[])
 link(MouseY,4376548:MouseY,[])
}
Add(StatusBar,6473259,224,371)
{
 SizeGrip=1
}
Add(StrCat,5410312,168,371)
{
 Str1="Колонка :  "
 link(onStrCat,6473259:doText,[])
}