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: Small fixes for bug [2902004]

Browse source
This commit is contained in:
Alexander Koblov 2009-11-23 12:18:46 +00:00
commit 4e80369d8b
2 changed files with 1372 additions and 1370 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/ffileassoc.pas
View file

@ -242,16 +242,17 @@ end;
procedure TfrmFileAssoc.btnAddNewTypeClick(Sender: TObject);
var
ExtAction : TExtAction;
s:string;
s: string;
begin
s:=InputBox(Caption, rsMsgEnterName, '');
s:= InputBox(Caption, rsMsgEnterName, '');
if s='' then exit;
ExtAction := TExtAction.Create;
ExtAction.IconIndex:= -1;
ExtAction.IsChanged := True;
with lbFileTypes do
begin
ExtAction.Name :=s;
Items.AddObject(ExtAction.Name, ExtAction);
ExtAction.Name := s;
Items.AddObject(ExtAction.Name, nil);
// add file type to TExts object
Exts.AddItem(ExtAction);
ItemIndex := Items.Count - 1;
@ -490,7 +491,7 @@ begin
FreeIcon(ItemIndex);
Exts.Items[ItemIndex].Icon:= '';
// and set IconIndex
Exts.Items[ItemIndex].IconIndex:= 0;
Exts.Items[ItemIndex].IconIndex:= -1;
Exts.Items[ItemIndex].IsChanged:= True;
Repaint;
end;

2731
src/platform/upixmapmanager.pas
View file

File diff suppressed because it is too large Load diff