paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: Fixed menus backed by multi-resolution image lists always using the 96ppi image rather than the resolution-specific one.

Browse Source 
The existing code attempts to use/overwrite the preexisting AMenuItem.Bitmap property, but the ImageList.ResolutionForPPI.GetBitmap call triggers TMenuItem.BitmapChange, which frees the updated image.  The subsequent setImage(AMenuItem.Bitmap.Handle) call then goes through its standard behavior again, which is to always retrieve the 96ppi variant.
This commit is contained in:
Zoë Peterson 2024-04-26 14:32:45 -05:00 committed by Maxim Ganetsky
parent 3c41d81f5d
commit 532ecb2653
3 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtwsmenus.pp
View File

@ -136,8 +136,13 @@ begin
if (ImgList <> nil) and (AMenuItem.ImageIndex >= 0) and
(AMenuItem.ImageIndex < ImgList.Count) then
begin
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, AMenuItem.Bitmap); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(AMenuItem.Bitmap.Handle));
Bmp := TBitmap.Create;
try
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, Bmp); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(Bmp.Handle));
finally
Bmp.Free;
end;
end else
if Assigned(AMenuItem.Bitmap) then
begin

9
lcl/interfaces/qt5/qtwsmenus.pp
View File

@ -135,8 +135,13 @@ begin
if (ImgList <> nil) and (AMenuItem.ImageIndex >= 0) and
(AMenuItem.ImageIndex < ImgList.Count) then
begin
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, AMenuItem.Bitmap); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(AMenuItem.Bitmap.Handle));
Bmp := TBitmap.Create;
try
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, Bmp); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(Bmp.Handle));
finally
Bmp.Free;
end;
end else
if Assigned(AMenuItem.Bitmap) then
begin

9
lcl/interfaces/qt6/qtwsmenus.pp
View File

@ -135,8 +135,13 @@ begin
if (ImgList <> nil) and (AMenuItem.ImageIndex >= 0) and
(AMenuItem.ImageIndex < ImgList.Count) then
begin
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, AMenuItem.Bitmap); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(AMenuItem.Bitmap.Handle));
Bmp := TBitmap.Create;
try
ImgList.ResolutionForPPI[16, ScreenInfo.PixelsPerInchX, 1].GetBitmap(AMenuItem.ImageIndex, Bmp); // Qt bindings support only 16px icons for menu items
Result.setImage(TQtImage(Bmp.Handle));
finally
Bmp.Free;
end;
end else
if Assigned(AMenuItem.Bitmap) then
begin