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: Bad icon rendering

Browse source
This commit is contained in:
Alexander Koblov 2021-11-30 22:27:47 +03:00
commit fb3812bf5b
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/upixmapmanager.pas
View file

@ -518,7 +518,6 @@ begin
if phIcon <> INVALID_HANDLE_VALUE then
begin
bmStandartBitmap := BitmapCreateFromHICON(phIcon);
bmStandartBitmap.Masked := True; // Need to explicitly set Masked=True, Lazarus issue #0019747
if fromWhatItWasLoaded<> nil then fromWhatItWasLoaded^ := fwbwlResourceFileExtracted;
end;
DestroyIcon(phIconLarge);
@ -1245,7 +1244,6 @@ begin
if AIcon <> 0 then
try
ABitmap := BitmapCreateFromHICON(AIcon);
ABitmap.Masked := True; // Need to explicitly set Masked=True, Lazarus issue #0019747
if (ABitmap.Width <> gIconsSize) or (ABitmap.Height <> gIconsSize) then
ABitmap:= StretchBitmap(ABitmap, gIconsSize, clWhite, True);
Result := FPixmapList.Add(ABitmap);
@ -1666,7 +1664,6 @@ begin
if AIcon <> 0 then
try
Result := BitmapCreateFromHICON(AIcon);
Result.Masked := True; // Need to explicitly set Masked=True, Lazarus issue #0019747
finally
DestroyIcon(AIcon);
end
@ -2222,7 +2219,6 @@ begin
if (SFI.hIcon <> 0) then
try
Result:= BitmapCreateFromHICON(SFI.hIcon);
Result.Masked := True; // Need to explicitly set Masked=True, Lazarus issue #0019747
if (IconSize <> iIconSmall) and (IconSize <> iIconLarge) then // non standart icon size
Result := StretchBitmap(Result, IconSize, clBackColor, True);
finally