Add(InlineCode,12199023,189,140)
{
 WorkPoints=#7:doClick|
 EventPoints=#5:onGet|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,messages,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:   h,onGet:THI_Event;|45:   procedure doClick(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doClick;|18:var i,x,n:integer;|28:    s:array[0..255] of char;|13:    l:string;|5:begin|23:  i:=ToIntegerEvent(h);|8:  n:=-1;|28:  While x <> CB_ERR do begin|12:   inc(n,1);|52:   x:= SendMessage(i,CB_GETLBTEXT , n, integer(@s));|28:   if x = cb_err then break;|45:   if l =' then l:=s else l:=l + #13#10 + s;|6:  end;|23:  _hi_OnEvent(onGet,l);|4:end;|0:|4:end.|
 link(h,1708331:Var2,[])
 link(onGet,14572830:doText,[])
}
Add(ComboBox,4173920,175,42)
{
 Left=95
 Top=40
 Width=205
 Height=21
 Strings=#7:Девушки|4:Хлеб|4:Пиво|6:Молоко|4:Рыба|4:Мясо|5:Водка|6:Машина|4:Комп|5:Форум|
 Point(Handle)
}
Add(Button,13582705,126,140)
{
 Left=205
 Top=150
 link(onClick,12199023:doClick,[])
}
Add(ListBox,14572830,238,119)
{
 Left=5
 Top=5
 Width=80
 Height=255
 DataType=1
 link(onClick,2073410:doClick,[])
}
Add(InlineCode,2073410,308,126)
{
 WorkPoints=#7:doClick|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,messages,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|15:   h:THI_Event;|45:   procedure doClick(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doClick;|14:var i:integer;|13:    s:string;|5:begin|17: s:=ToString(dt);|22: i:=ToIntegerEvent(h);|56: SendMessage(i,CB_SELECTSTRING , -1, integer(PChar(s)));|4:end;|0:|4:end.|
 link(h,1708331:Var3,[(314,103)])
}
Add(GetDataEx,1708331,189,98)
{
 link(Data,4173920:Handle,[])
}