* FIX: FindDlg: buttons not shown cause by TabSheet height calculation error (ReCalc)
@@ -3,7 +3,6 @@ object frmFindDlg: TfrmFindDlg
Height = 469
Top = 176
Width = 875
- AutoSize = True
Caption = 'Find files'
ClientHeight = 449
ClientWidth = 875
@@ -2206,7 +2206,10 @@ end;
{ TfrmFindDlg.FormShow }
procedure TfrmFindDlg.frmFindDlgShow(Sender: TObject);
begin
- AutoSize:=false;
+ {$IFDEF LCLCOCOA}
+ pgcSearch.DoAdjustClientRectChange();
+ {$ENDIF}
+
pgcSearch.PageIndex := 0;
if cmbFindFileMask.Visible then