Add(MainForm,14842589,245,161)
{
 Width=300
 Height=200
 Color=3158064
 WinStyle=1
 Caption="test"
 BorderStyle=4
 DragForm=0
 KeyPreview=1
 TransparentColor=0
 Position=1
 TransparentManager="fix"
 Point(onDblClick)
 Point(Handle)
 Point(doLeft)
 Point(doTop)
 Point(onMouseDown)
 link(onMouseDown,3949968:doEvent1,[])
}
Add(PopupMenuEx,4790511,448,196)
{
 EndItemRight=0
 Menu=#9:111111111|9:222222222|9:333333333|9:444444444|4:Quit|
 GutterLineOn=1
 Frame=1
 Font=[Tahoma,8,0,16777215,204]
 BackColor=3158064
 BackColorImage=0
 SelColorLight=0
 SelColorDark=3947580
 LineColorLight=0
 LineColorDark=3158064
 CheckColor=3158064
 SelCheckColor=3158064
 SelColorText=16777215
 Bitmaps=[]
 AutoBackClrImg=1
}
Add(IndexToChanel,3659208,371,189)
{
 link(onEvent2,4790511:doPopupHere,[])
}
Add(RGN_SetToWindow,611444,504,147)
{
 link(Handle,4790511:Handle,[(510,135)(558,135)(558,249)(454,249)])
}
Add(RGN_OutlinePicture,16742805,371,147)
{
 Picture=[ZIP5E82000078DAEDC9A111C020104451D209920A28201E898D482969FC72C3202253C0FB33CFEC9EE37ACAAAA796EE34D351EADADBFEBF450400000000000000000000000000000000000000000000000000000000000000003FBC794C4561]
 link(onOutlinePicture,611444:doSetRegion,[])
}
Add(Hub,3949968,301,189)
{
 link(onEvent1,3659208:doEvent,[])
 link(onEvent2,16742805:doOutlinePicture,[(323,202)(323,153)])
}

Add(MainForm,14842589,126,147)
{
 Width=300
 Height=200
 Color=3158064
 WinStyle=1
 Caption="text"
 BorderStyle=4
 DragForm=0
 KeyPreview=1
 TransparentColor=0
 Position=1
 TransparentManager="fix"
 Point(onDblClick)
 Point(Handle)
 Point(doLeft)
 Point(doTop)
 Point(onMouseDown)
 Point(onMouseUp)
 link(onMouseDown,3659208:doEvent,[])
 link(onMouseUp,7727793:doEvent,[(205,188)(205,223)])
}
Add(PopupMenuEx,4790511,385,182)
{
 EndItemRight=0
 Menu=#9:111111111|9:222222222|9:333333333|9:444444444|4:Quit|
 GutterLineOn=1
 Frame=1
 Font=[Tahoma,8,0,16777215,204]
 BackColor=3158064
 BackColorImage=0
 SelColorLight=0
 SelColorDark=3947580
 LineColorLight=0
 LineColorDark=3158064
 CheckColor=3158064
 SelCheckColor=3158064
 SelColorText=16777215
 Bitmaps=[]
 AutoBackClrImg=1
}
Add(IndexToChanel,3659208,252,175)
{
 link(onEvent2,4790511:doPopupHere,[])
}
Add(MouseEvent,13860606,385,224)
{
 Point(Handle)
}
Add(IndexToChanel,7727793,252,217)
{
 link(onEvent2,6756256:doOutlinePicture,[(303,230)(303,272)])
}
Add(RGN_SetToWindow,4876953,399,266)
{
 link(Handle,13860606:Handle,[])
}
Add(RGN_OutlinePicture,6756256,322,266)
{
 Picture=[ZIPEE05000078DA73F27DC7CA00067640AC01C419401C0DC48C4008021BA0F220C0846032FCFFFF1F841100228697FF00493FFB287F943FCA1FE58FF2C9E6935AFE02000A97A0C7]
 link(onOutlinePicture,4876953:doSetRegion,[])
}

   with PMenu(Sender){$ifndef F_P}^{$endif} do begin

#pas
  function GetGutterWidth(IsLine: Boolean): Integer;
  begin
     with PMenu(Sender){$ifndef F_P}^{$endif} do begin
     
    GetCursorPos(pos);
    h_menu := WindowFromPoint(pos);
    region := CreateRectRgn(4,4,101,87);
    GetClassName(h_menu, WinClass, SizeOf(WinClass));

  if String(WinClass) = '#32768' then begin
    SetWindowRgn(h_menu, region, true);
  end;
     
{       if Pointer(Bitmap)<>nil then begin
           Result := Max(BitmapSize.bmWidth + 4, Rect.Bottom - Rect.Top);
           if IsLine then
              Result := Max(Result, TextExtent(Caption).cy  + 7);
        end else
           if IsLine then
              Result := TextExtent(Caption).cy  + 7
           else
              Result := Rect.Bottom - Rect.Top + 3;}
     end;
     Result := Max(Result, ItemHeight) + 1;
  end;