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

FIX: Redefine template

Browse source
This commit is contained in:
Alexander Koblov 2021-04-29 21:30:19 +03:00
commit 5199cf1864
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fFindDlg.pas
View file

@ -578,7 +578,7 @@ begin
Result := (ShowModal = mrOk);
if Result and (lbSearchTemplates.Count > 0) then
begin
TemplateName := lbSearchTemplates.Items[lbSearchTemplates.Count - 1];
TemplateName := FLastTemplateName;
end;
end;
finally

10
src/fmaskinputdlg.pas
View file

@ -175,13 +175,19 @@ end;
procedure TfrmMaskInputDlg.btnDefineTemplateClick(Sender: TObject);
var
sTemplateName: string;
Index: Integer;
sTemplateName: String;
begin
if lbxSearchTemplate.ItemIndex >= 0 then
sTemplateName := lbxSearchTemplate.Items[lbxSearchTemplate.ItemIndex];
if ShowDefineTemplateDlg(sTemplateName) then
begin
lbxSearchTemplate.ItemIndex := lbxSearchTemplate.Items.Add(sTemplateName);
Index:= lbxSearchTemplate.Items.IndexOf(sTemplateName);
if Index >= 0 then
lbxSearchTemplate.ItemIndex := Index
else begin
lbxSearchTemplate.ItemIndex := lbxSearchTemplate.Items.Add(sTemplateName);
end;
cmbMask.Text := cTemplateSign + sTemplateName;
end;
end;