fix for dropdown on linux

bcbutton.pas

@@ -139,6 +139,7 @@ type
     FDropDownArrow: boolean;
     FDropDownMenu: TPopupMenu;
     FDropDownMenuVisible: boolean;
+    FDropDownClosingTime: TDateTime;
     FDropDownPosition: TBCButtonDropDownPosition;
     FDropDownStyle: TBCButtonDropDownStyle;
     FImageChangeLink: TChangeLink;
@@ -387,6 +388,9 @@ implementation
 
 uses {$IFDEF FPC}LCLIntf, PropEdits, GraphPropEdits, LCLProc, {$ENDIF}Math, BCTools, SysUtils;
 
+const
+  DropDownReopenDelay = 0.2/(24*60*60);
+
 {$IFDEF FPC}//#
 type
   TBCButtonImageIndexPropertyEditor = class(TImageIndexPropertyEditor)
@@ -1196,8 +1200,9 @@ begin
   if Assigned(FDropDownMenu) then
     FDropDownMenu.OnClose := FSaveDropDownClosed;
   {$ENDIF}
-  // MORA: DropDownMenu is still visible if mouse is over control
-  FDropDownMenuVisible := {$IFNDEF FPC}BGRAGraphics.{$ENDIF}PtInRect(ClientRect, ScreenToClient(Mouse.CursorPos));
+
+  FDropDownMenuVisible := False;
+  FDropDownClosingTime := Now;
 end;
 
 procedure TCustomBCButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
@@ -1238,7 +1243,7 @@ begin
     Invalidate;}
 
     // MORA: Show DropDown menu
-    if FDropDownMenuVisible then
+    if FDropDownMenuVisible or (Now < FDropDownClosingTime+DropDownReopenDelay) then
       FDropDownMenuVisible := False // Prevent redropping
     else
     if ((FActiveButt = bbtDropDown) or (FStyle = bbtButton)) and