#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private
    ParentC,CB_Rnd:PControl;
    procedure _Create;
   public
    PHandle:THI_Event;

    constructor Create;
    //procedure (var dt:TData; index:word);

 end;

implementation

constructor THiAsmClass.Create;
begin
 inherited Create;
 InitAdd(_Create);
end;

procedure THiAsmClass._Create;
begin
 ParentC := PControl(ToIntegerEvent(PHandle));

 CB_Rnd := NewCheckbox(ParentC,'Вразброс');
 CB_Rnd.BoundsRect := MakeRect(10,20,110,40);
 
end;

end.