mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: FindDlg: improve some inconvenience problems (#632)

Browse source
This commit is contained in:
rich2014 2022-10-17 14:12:28 +08:00 • committed by GitHub
commit 38ffadf2d7
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fFindDlg.pas
View file

@ -649,7 +649,6 @@ var
HMFindFiles: THMForm;
begin
if not gShowMenuBarInFindFiles then FreeAndNil(mmMainMenu);
Height := pnlFindFile.Height + 22;
DsxPlugins := TDSXModuleList.Create;
FoundedStringCopy := TStringListTemp.Create;
FoundedStringCopy.OwnsObjects := True;
@ -1359,11 +1358,10 @@ begin
begin // if user don't press anything - focus on results
if (pgcSearch.ActivePage = tsResults) and (lsFoundedFiles.Count > 0) then
begin
btnGoToPath.SetFocus;
lsFoundedFiles.SetFocus;
if (lsFoundedFiles.ItemIndex <> -1) then
begin
lsFoundedFiles.Selected[lsFoundedFiles.ItemIndex] := True;
end;
if lsFoundedFiles.ItemIndex<0 then lsFoundedFiles.ItemIndex:=0;
lsFoundedFiles.Selected[lsFoundedFiles.ItemIndex] := True;
end
else
begin
@ -1769,8 +1767,6 @@ begin
lblFound.Caption := EmptyStr;
SetWindowCaption(wcs_NewSearch);
if pgcSearch.ActivePage = tsStandard then cmbFindFileMask.SetFocus;
btnStart.Default := True;
end;
{ TfrmFindDlg.cm_LastSearch }
@ -2210,6 +2206,7 @@ end;
{ TfrmFindDlg.FormShow }
procedure TfrmFindDlg.frmFindDlgShow(Sender: TObject);
begin
AutoSize:=false;
pgcSearch.PageIndex := 0;
if cmbFindFileMask.Visible then
@ -2643,6 +2640,8 @@ end;
procedure TfrmFindDlg.tsStandardEnter(Sender: TObject);
begin
btnStart.Default := True;
btnStart.SetFocus;
cmbFindFileMask.SetFocus;
end;
{ TfrmFindDlg.UpdateTemplatesList }