#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;