unit HiAsmUnit;

interface

uses kol,Share,Debug,VCLEvent,VCLType,Messages;

type
 THiAsmClass = class(TDebug)
   private
     ev: TVCLEvent;
     pc: PControl;
     procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
     procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
     procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;         
   public
     
     Ctrl, OnEv: THI_Event;
     procedure doTest(var dt: TData; idx: word);
 end;

implementation

procedure THiAsmClass.WMLButtonDown(var Message: TWMLButtonDown);
begin
  _debug('WMLButtonDown XPos-' + IntToStr(Message.XPos));
end;

procedure THiAsmClass.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  _hi_onEvent(OnEv, X);
end;

procedure THiAsmClass.MouseDown(Sender: TObject; Button: TMouseButton;
            Shift: TShiftState; X, Y: Integer); 
begin
  if Button = mbRight then 
  begin
    _Debug('Right button');
    if PControl(Sender) = pc then _Debug('Sender = pc');
  end;    
end;            

// тут просто назначим события
procedure THiAsmClass.doTest(var dt: TData; idx: word);
begin
  pc := ReadControl(Ctrl,'');
  ev := TVCLEvent.Create(pc,True);  // Trye = hook enabled method type WM....
  
  ev.MouseMove := MouseMove;        // vcl event type
  pc.onMouseMove := ev.onMouseMove; // kol event type
  
  ev.MouseDown := MouseDown;         // vcl event type
  ev.WMLButtonDown := WMLButtonDown; // vcl event type
  pc.onMouseDown := ev.onMouseDown;  // kol event type
end;

end.

Add(MainForm,2953706,63,105)
{
 Width=370
 Height=360
}
Add(Button,2168206,140,105)
{
 Left=15
 Top=20
 link(onClick,11191630:doEvent1,[])
}
Add(Memo,3686666,469,168)
{
 Left=115
 Top=30
 Width=100
 Height=275
 AddType=1
 ScrollBars=2
}
Add(Memo,2529294,469,105)
{
 Left=240
 Top=30
 Width=100
 Height=275
 AddType=1
 ScrollBars=2
}
Add(For,9637638,350,168)
{
 End=500
 link(onEvent,11662893:doWork2,[])
}
Add(Hub,11191630,203,105)
{
 link(onEvent1,15209979:doStart,[])
 link(onEvent2,5421242:doStart,[(249,118)(249,174)])
}
Add(Thread,15209979,280,105)
{
 Delay=1
 FastStop=0
 link(onExec,12812207:doFor,[])
}
Add(For,12812207,350,105)
{
 End=500
 link(onEvent,7311804:doWork2,[])
}
Add(Thread,5421242,280,168)
{
 Delay=1
 FastStop=0
 link(onExec,9637638:doFor,[])
}
Add(HubEx,7311804,406,105)
{
 link(onEvent,2529294:doAdd,[])
}
Add(HubEx,11662893,420,168)
{
 link(onEvent,3686666:doAdd,[])
}
Add(Label,15006110,63,154)
{
 Left=15
 Top=60
}
Add(Label,14465335,70,161)
{
 Left=15
 Top=85
}

unit HiAsmUnit;

interface

uses kol,Share,Debug,FPCVariants;

type
 THiAsmClass = class(TDebug)
   private

   public

 end;
 

implementation

var
  v,v2: Variant;
  i: integer;
  d: Double;
  dt: TData;
  s: string;
begin
  v := 10.45;
  v2 := 20.05;
  i := Integer(v);
  d := Double(v2);
  dtReal(dt,d);
    
  _Debug(i);  // 10
  _Debug(dt); // 20.05
  
  //v := v + v2; runtime error
  v := Double(v) + Double(v2); 
  
  s := 'demo str var result = ' + string(v);
  _Debug(s);  // demo str var result = 30.5
   
end.