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

ADD: Tools - load 32x32 toolbar icons

Browse source
This commit is contained in:
Alexander Koblov 2022-09-20 19:28:23 +03:00
commit 8bbaf929ae
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/dmcommondata.pas
View file

@ -148,22 +148,26 @@ end;
procedure TdmComData.LoadImages(Images: TImageList; const ANames: array of String);
var
AName: String;
ASize16, ASize24: Integer;
ABitmap16, ABitmap24: TBitmap;
ASize16, ASize24, ASize32: Integer;
ABitmap16, ABitmap24, ABitmap32: TBitmap;
begin
Images.Clear;
ASize16:= 16; // AdjustIconSize(16, 96);
ASize24:= 24; // AdjustIconSize(24, 96);
Images.RegisterResolutions([ASize16, ASize24]);
ASize32:= 32; // AdjustIconSize(32, 96);
Images.RegisterResolutions([ASize16, ASize24, ASize32]);
for AName in ANames do
begin
ABitmap16:= PixMapManager.GetThemeIcon(AName, ASize16);
if (ABitmap16 = nil) then ABitmap16:= TBitmap.Create;
ABitmap24:= PixMapManager.GetThemeIcon(AName, ASize24);
if (ABitmap24 = nil) then ABitmap24:= TBitmap.Create;
Images.AddMultipleResolutions([ABitmap16, ABitmap24]);
ABitmap32:= PixMapManager.GetThemeIcon(AName, ASize32);
if (ABitmap32 = nil) then ABitmap32:= TBitmap.Create;
Images.AddMultipleResolutions([ABitmap16, ABitmap24, ABitmap32]);
ABitmap16.Free;
ABitmap24.Free;
ABitmap32.Free;
end;
end;