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

LHelp: Fix icon display issue in gtk2. Issue #41656, patch by Roland Hahn.

Browse Source
This commit is contained in:
wp_xyz 2025-05-21 16:54:10 +02:00
parent c5d6740917
commit 34313e6f91
2 changed files with 3322 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3357
components/chmhelp/lhelp/lhelpcore.lfm
View File

File diff suppressed because it is too large Load Diff

2
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -233,7 +233,7 @@ begin
i.Height := Scale96ToForm(128);
i.Proportional := true;
i.Picture.Icon.Assign(Application.Icon);
i.Picture.Icon.Current := i.Picture.Icon.GetBestIndexForSize(Types.Size(256, 256));
i.Picture.Icon.Current := i.Picture.Icon.GetBestIndexForSize(Types.Size(i.Width, i.Height));
i.BorderSpacing.Around := d6;
i.Anchors := [akLeft, akTop];
i.AnchorSideTop.Control := f;