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: Use a correct scaling with .ico and .svg icons

Browse source 
(cherry picked from commit 1b573d4694)
This commit is contained in:
Alexander Koblov 2026-03-10 19:43:38 +03:00
commit cb8d464f4e
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/platform/upixmapmanager.pas
View file

@ -592,6 +592,7 @@ var
AIcon: TIcon;
iIndex : PtrInt;
FileExt: String;
bitmapSize: Integer;
GraphicClass: TGraphicClass;
bmStandartBitmap : Graphics.TBitMap = nil;
begin
@ -643,7 +644,8 @@ begin
AIcon:= TIcon.Create;
try
AIcon.LoadFromFile(sFileName);
AIcon.Current:= AIcon.GetBestIndexForSize(TSize.Create(iIconSize, iIconSize));
bitmapSize:= Round(iIconSize * findScaleFactorByFirstForm());
AIcon.Current:= AIcon.GetBestIndexForSize(TSize.Create(bitmapSize, bitmapSize));
bmStandartBitmap:= Graphics.TBitmap.Create;
try
if AIcon.RawImage.Description.AlphaPrec <> 0 then
@ -662,7 +664,8 @@ begin
else if (GraphicClass = TScalableVectorGraphics) then
begin
Stretch := False;
bmStandartBitmap := TScalableVectorGraphics.CreateBitmap(sFileName, iIconSize, iIconSize)
bitmapSize:= Round(iIconSize * findScaleFactorByFirstForm());
bmStandartBitmap := TScalableVectorGraphics.CreateBitmap(sFileName, bitmapSize, bitmapSize)
end
else begin
LoadBitmapFromFile(sFileName, bmStandartBitmap);