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

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

Browse Source 
(cherry picked from commit 34313e6f91)
This commit is contained in:
wp_xyz 2025-05-21 16:54:10 +02:00
parent c067bd336e
commit d0b829b72c
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

@ -234,7 +234,7 @@ begin
i.Height := Scale96ToForm(128); i.Height := Scale96ToForm(128);
i.Proportional := true; i.Proportional := true;
i.Picture.Icon.Assign(Application.Icon); 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.BorderSpacing.Around := d6;
i.Anchors := [akLeft, akTop]; i.Anchors := [akLeft, akTop];
i.AnchorSideTop.Control := f; i.AnchorSideTop.Control := f;