paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf/ImageListEditor: Less truncation of loaded large images.

Browse Source 
(cherry picked from commit ac784af64b)
This commit is contained in:
wp_xyz 2021-12-19 00:29:11 +01:00 committed by Maxim Ganetsky
parent 05d329b0db
commit 2bd584904e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/imagelisteditor.pp
View File

@ -612,7 +612,9 @@ var
ItemHeight, MaxHeight: Integer; ItemHeight, MaxHeight: Integer;
begin begin
ItemHeight := ImageListBox.Canvas.TextHeight('Hg'); ItemHeight := ImageListBox.Canvas.TextHeight('Hg');
MaxHeight := Scale96ToFont(32); if ImageList.ResolutionCount > 0 then // smallest image will not be truncated
ItemHeight := Max(ItemHeight, ImageList.ResolutionByIndex[0].Height);
MaxHeight := Scale96ToFont(32); // max height above with next sizes will be truncated
for R in ImageList.Resolutions do for R in ImageList.Resolutions do
begin begin
if R.Height <= MaxHeight then if R.Height <= MaxHeight then