mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Use always new form for Define search template, because ShowModal cannot be used for an already visible form.

Browse source
This commit is contained in:
cobines 2012-04-16 06:38:39 +00:00
commit 3019f41a13
1 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/fFindDlg.pas
View file

@ -260,22 +260,29 @@ begin
end;
function ShowDefineTemplateDlg(out TemplateName: UTF8String): Boolean;
var
AForm: TfrmFindDlg;
begin
with TfrmFindDlg.Instance do
begin
// Prepare window for define search template
Caption := rsFindDefineTemplate;
edtFindPathStart.Enabled:= False;
edtFindPathStart.Text:= EmptyStr;
btnSaveTemplate.Visible:= True;
btnStart.Visible:= False;
btnSaveTemplate.Default:= True;
BorderIcons:= [biSystemMenu, biMaximize];
Result:= (ShowModal = mrOK);
if Result and (lbSearchTemplates.Count > 0) then
AForm := TfrmFindDlg.Create(nil);
try
with AForm do
begin
TemplateName:= lbSearchTemplates.Items[lbSearchTemplates.Count - 1];
// Prepare window for define search template
Caption := rsFindDefineTemplate;
edtFindPathStart.Enabled:= False;
edtFindPathStart.Text:= EmptyStr;
btnSaveTemplate.Visible:= True;
btnStart.Visible:= False;
btnSaveTemplate.Default:= True;
BorderIcons:= [biSystemMenu, biMaximize];
Result:= (ShowModal = mrOK);
if Result and (lbSearchTemplates.Count > 0) then
begin
TemplateName:= lbSearchTemplates.Items[lbSearchTemplates.Count - 1];
end;
end;
finally
AForm.Free;
end;
end;