Browse Source

Fix BCCombobox on linux

Johann ELSASS 5 years ago
parent
commit
e7e414ff27
1 changed files with 2 additions and 3 deletions
  1. 2 3
      bccombobox.pas

+ 2 - 3
bccombobox.pas

@@ -152,7 +152,6 @@ const MinDelayReopen = 500/(1000*60*60*24);
 var
   p: TPoint;
   h: Integer;
-  top_parent: TControl;
   s: TSize;
 begin
   {$IFDEF DARWIN}
@@ -199,7 +198,7 @@ end;
 
 procedure TBCComboBox.FormDeactivate(Sender: TObject);
 begin
-  FForm.Visible:= false;
+  FQueryFormHide := true;
 end;
 
 procedure TBCComboBox.FormHide(Sender: TObject);
@@ -398,7 +397,7 @@ end;
 procedure TBCComboBox.OnTimerCheckFormHide(Sender: TObject);
 begin
   if Assigned(FForm) and FForm.Visible and
-    (not FForm.Active or FQueryFormHide) then
+    ({$IFDEF DARWIN}not FForm.Active or {$ENDIF}FQueryFormHide) then
   begin
     FForm.Visible := false;
     FQueryFormHide := false;