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

AboutBox/SplashScreen: Fix blurring on mac Retina displays, part 2. issue #41205

Browse Source
This commit is contained in:
wp_xyz 2024-11-06 15:36:33 +01:00
parent 7cfcb81528
commit 4f007f3d82
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/aboutfrm.lfm
View File

@ -40,6 +40,8 @@ object AboutForm: TAboutForm
Height = 300 Height = 300
Top = 6 Top = 6
Width = 450 Width = 450
Proportional = True
Stretch = True
end end
object VersionLabel: TLabel object VersionLabel: TLabel
AnchorSideLeft.Control = LogoImage AnchorSideLeft.Control = LogoImage

2
ide/splash.lfm
View File

@ -9,7 +9,7 @@ object SplashForm: TSplashForm
ClientWidth = 450 ClientWidth = 450
FormStyle = fsSplash FormStyle = fsSplash
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.1.0.0' LCLVersion = '4.99.0.0'
object Image: TImage object Image: TImage
Left = 0 Left = 0
Height = 300 Height = 300

8
ide/splash.pp
View File

@ -135,11 +135,17 @@ begin
end; end;
procedure TSplashForm.DoFirstShow; procedure TSplashForm.DoFirstShow;
var
W, H: Integer;
ScaleFactor: Double;
begin begin
inherited DoFirstShow; inherited DoFirstShow;
LoadSplash; LoadSplash;
ScaleImg(Image.Picture.Bitmap, Width, Height); ScaleFactor := GetCanvasScaleFactor; // Usually 1.0, but on macOS = 2.0
W := round(Image.Width * ScaleFactor);
H := round(Image.Height * ScaleFactor);
ScaleImg(Image.Picture.Bitmap, W, H);
end; end;
end. end.