Add(MainForm,11597647,308,140)
{
 Point(Handle)
 Point(PHandle)
}
Add(Message,5193008,364,196)
{
}
Add(InlineCode,5530690,315,196)
{
 EventPoints=#10:OnMinimize|10:OnMaximize|9:OnRestore|
 DataPoints=#7:PHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|19:    procedure Init;|39:    procedure _OnMinimize(Sender:PObj);|39:    procedure _OnMaximize(Sender:PObj);|38:    procedure _OnRestore(Sender:PObj);|9:   public|22:    PHandle:THI_Event;|25:    OnMinimize:THI_Event;|25:    OnMaximize:THI_Event;|24:    OnRestore:THI_Event;|23:    constructor Create;|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|15: InitAdd(Init);|4:end;|0:|27:procedure THiAsmClass.Init;|15:var c:PControl;|5:begin|40: c := PControl(ToIntegerEvent(PHandle));|29: c.OnMinimize := _OnMinimize;|29: c.OnMaximize := _OnMaximize;|27: c.OnRestore := _OnRestore;|4:end;|0:|34:procedure THiAsmClass._OnMinimize;|5:begin|25: _hi_OnEvent(OnMinimize);|4:end;|0:|34:procedure THiAsmClass._OnMaximize;|5:begin|25: _hi_OnEvent(OnMaximize);|4:end;|0:|33:procedure THiAsmClass._OnRestore;|5:begin|24: _hi_OnEvent(OnRestore);|4:end;|0:|4:end.|
 link(PHandle,11597647:PHandle,[])
 link(OnMinimize,5193008:doMessage,[])
}