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: Find Files: Use TabVisible not Visible to hide tabs. Bring back disabling minimize button when showing form as modal.

Browse source
This commit is contained in:
cobines 2012-04-17 08:54:25 +00:00
commit 5e6f840eab
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fFindDlg.pas
View file

@ -288,6 +288,7 @@ begin
AForm.DisableControlsForTemplate;
btnSaveTemplate.Visible := True;
btnSaveTemplate.Default := True;
BorderIcons := [biSystemMenu, biMaximize];
Result:= (ShowModal = mrOK);
if Result and (lbSearchTemplates.Count > 0) then
begin
@ -312,6 +313,7 @@ begin
DisableControlsForTemplate;
btnUseTemplate.Visible := True;
btnUseTemplate.Default := True;
BorderIcons := [biSystemMenu, biMaximize];
Result:= (ShowModal = mrOK);
if Result then
begin
@ -438,8 +440,8 @@ begin
btnNewSearch.Visible := False;
btnLastSearch.Visible := False;
gbFindData.Visible := False;
tsPlugins.Visible := False;
tsResults.Visible := False;
tsPlugins.TabVisible := False;
tsResults.TabVisible := False;
end;
procedure TfrmFindDlg.cbFindTextChange(Sender: TObject);