Add(InlineCode,12199023,217,203)
{
 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;|5:begin|22: i:=ToIntegerEvent(h);|48: SendMessage(i,CB_SETCURSEL , ToInteger(dt), 0);|4:end;|0:|4:end.|
 link(h,5013553:Handle,[])
}
Add(ComboBox,5013553,203,126)
{
 Left=135
 Top=55
 Width=155
 Height=21
 Strings=#4:хлеб|6:молоко|4:пиво|5:водка|4:комп|6:машина|
 Point(Handle)
}
Add(Button,4555850,77,203)
{
 Left=290
 Top=55
 Caption=">>"
 link(onClick,13852495:doNext,[])
}
Add(Button,11407002,105,210)
{
 Left=80
 Top=55
 Caption="<<"
 link(onClick,13852495:doPrev,[])
}
Add(Counter,13852495,168,203)
{
 link(onNext,12199023:doClick,[])
}