Browse Source

FIX #621: FindDlg: buttons not shown (#717)

* FIX: FindDlg: buttons not shown cause by TabSheet height calculation error (ReCalc)
rich2014 2 years ago
parent
commit
b670bd59dc
2 changed files with 4 additions and 2 deletions
  1. 0 1
      src/fFindDlg.lfm
  2. 4 1
      src/fFindDlg.pas

+ 0 - 1
src/fFindDlg.lfm

@@ -3,7 +3,6 @@ object frmFindDlg: TfrmFindDlg
   Height = 469
   Height = 469
   Top = 176
   Top = 176
   Width = 875
   Width = 875
-  AutoSize = True
   Caption = 'Find files'
   Caption = 'Find files'
   ClientHeight = 449
   ClientHeight = 449
   ClientWidth = 875
   ClientWidth = 875

+ 4 - 1
src/fFindDlg.pas

@@ -2206,7 +2206,10 @@ end;
 { TfrmFindDlg.FormShow }
 { TfrmFindDlg.FormShow }
 procedure TfrmFindDlg.frmFindDlgShow(Sender: TObject);
 procedure TfrmFindDlg.frmFindDlgShow(Sender: TObject);
 begin
 begin
-  AutoSize:=false;
+  {$IFDEF LCLCOCOA}
+  pgcSearch.DoAdjustClientRectChange();
+  {$ENDIF}
+
   pgcSearch.PageIndex := 0;
   pgcSearch.PageIndex := 0;
 
 
   if cmbFindFileMask.Visible then
   if cmbFindFileMask.Visible then