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: ffileassoc - empty file types add

Browse source
This commit is contained in:
b4rr4cuda 2008-06-06 23:26:06 +00:00
commit 37ce3e1455
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ffileassoc.pas
View file

@ -165,12 +165,15 @@ end;
procedure TfrmFileAssoc.btnAddNewTypeClick(Sender: TObject);
var
ExtAction : TExtAction;
s:string;
begin
s:=InputBox(Caption, 'Enter name:', ''); // TODO: Localize
if s='' then exit;
ExtAction := TExtAction.Create;
ExtAction.IsChanged := True;
with lbFileTypes do
begin
ExtAction.Name := InputBox(Caption, 'Enter name:', ''); // TODO: Localize
ExtAction.Name :=s;
Items.AddObject(ExtAction.Name, ExtAction);
// add file type to TExts object
Exts.AddItem(ExtAction);