Add(MainForm,2953706,21,105)
{
 Width=764
 Height=574
}
Add(ListBox,16753366,168,105)
{
 Left=440
 Top=15
 Width=265
 Height=495
 Strings=#11:trfy iyfyit|16:drgery gyutgyity|17:rtyrty gyutyutyut|13:4t3e64vbn hui|7:tyuryui|9:.mjklouyy|8:gjhbjkhb|
 Point(MouseX)
 Point(MouseY)
 Point(PHandle)
 Point(onMouseMove)
 Point(doSelect)
 link(onMouseMove,808901:doWork1,[(229,125)(229,244)])
}
Add(ComboBox,11498998,84,105)
{
 Left=45
 Top=30
 Width=285
 Height=21
 Strings=#11:trfy iyfyit|16:drgery gyutgyity|17:rtyrty gyutyutyut|13:4t3e64vbn hui|7:tyuryui|9:.mjklouyy|8:gjhbjkhb|
}
Add(MultiElement,808901,231,238)
{
 link(onEvent1,16753366:doSelect,[(275,244)(275,198)(156,198)(156,153)])
 link(Data1,16753366:MouseX,[(237,194)(195,194)])
 link(Data2,16753366:MouseY,[(244,194)(202,194)])
 link(Data3,16753366:PHandle,[(251,194)(209,194)])
}
BEGIN_SDK
  Add(EditMulti,16003329,21,21)
  {
   EventCount=1
   WorkCount=1
   DataCount=3
   Width=594
   Height=403
   link(doWork1,7932066:doData,[(81,27)(81,167)])
  }
  Add(InlineCode,7309271,287,189)
  {
   WorkPoints=#15:doGetItemString|
   EventPoints=#15:onGetItemString|
   DataPoints=#14:ListBoxPHandle|1:X|1:Y|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,WIndows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:   X,Y: THI_Event;|29:   ListBoxPHandle: THI_Event;|30:   onGetItemString: THI_Event;|57:   procedure doGetItemString(var Data:TData; Index:word);|3:   |5: end;|0:|14:implementation|0:|39: procedure THiAsmClass.doGetItemString;|7:   var |20:   LBCtrl: PControl;|12:   R: TRect;|13:   P: TPoint;|14:   i: Integer;|15:   S,S1:String;|6: begin|54:    LBCtrl:= PControl(ToIntegerEvent(ListBoxPHandle));|53:	P := MakePoint(ToIntegerEvent(X),ToIntegerEvent(Y));|74:   for i := LBCtrl.Perform(LB_GETTOPINDEX,0,0) to LBCtrl.Count -1 do begin|53:     LBCtrl.Perform(LB_GETITEMRECT, i , Integer(@R));|40:     if PointInRect(P,R) then begin     |43:       _hi_OnEvent(onGetItemString,i);     |12:       Exit;|9:     end;|8:   end; |5: end;|4:end.|
   link(onGetItemString,16003329:onEvent1,[(467,195)(467,27)])
   link(ListBoxPHandle,16003329:Data3,[(293,105)(41,105)])
   link(X,16003329:Data1,[(300,105)(27,105)])
   link(Y,13474284:Var3,[(307,78)])
  }
  Add(ChangeMon,7932066,140,161)
  {
   Point(onNoData)
   link(onData,7309271:doGetItemString,[(230,167)(230,195)])
   link(Data,13474284:Var2,[])
  }
  Add(GetDataEx,13474284,140,73)
  {
   Angle=3
   link(Data,16003329:Data2,[(34,78)])
  }
END_SDK