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

* FIX: FindDlg: buttons not shown cause by TabSheet height calculation error (ReCalc)
This commit is contained in:
rich2014 2022-12-18 16:51:23 +08:00 committed by GitHub
commit b670bd59dc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 2 deletions

View file

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

View file

@ -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