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

AboutBox/Splashscreen: Fix blurring on Mac Retina displays. Patch by @Slidescape, issue #41205,

Browse Source
This commit is contained in:
wp_xyz 2024-11-06 00:11:14 +01:00
parent a265712f5f
commit 0b7d81bd37
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/aboutfrm.lfm
View File

@ -10,13 +10,13 @@ object AboutForm: TAboutForm
ClientWidth = 470
Constraints.MinHeight = 390
Constraints.MinWidth = 470
OnClose = FormClose
OnCreate = AboutFormCreate
OnShow = FormShow
PopupMenu = PopupMenu1
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.1.0.0'
LCLVersion = '4.99.0.0'
OnClose = FormClose
OnCreate = AboutFormCreate
OnShow = FormShow
object Notebook: TPageControl
Left = 0
Height = 340

8
ide/aboutfrm.pas
View File

@ -274,9 +274,15 @@ begin
end;
procedure TAboutForm.LoadLogo;
var
W, H: Integer;
ScaleFactor: Double;
begin
LogoImage.Picture.LoadFromResourceName(HInstance, 'splash_logo', TPortableNetworkGraphic);
ScaleImg(LogoImage.Picture.Bitmap, LogoImage.Width, LogoImage.Height)
ScaleFactor := GetCanvasScaleFactor; // Usually 1.0, but on macOS = 2.0
W := round(LogoImage.Width * ScaleFactor);
H := round(LogoImage.Height * ScaleFactor);
ScaleImg(LogoImage.Picture.Bitmap, W, H);
end;