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

AboutBox/SplashScreen: Fix blurring on mac Retina displays, part 2 (issue #41205) (4f007f3d82)

Browse Source 
Splash form: Fix size of splash image on mac. Issue #41205. 2e21040755
(Applied manually due to conflict)
This commit is contained in:
wp_xyz 2024-11-06 23:09:28 +01:00
parent 3baca82fa4
commit 9ae5f9eba5
4 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/aboutfrm.lfm
View File

@ -10,13 +10,13 @@ object AboutForm: TAboutForm
ClientWidth = 470
Constraints.MinHeight = 390
Constraints.MinWidth = 470
PopupMenu = PopupMenu1
Position = poScreenCenter
ShowHint = True
LCLVersion = '4.99.0.0'
OnClose = FormClose
OnCreate = AboutFormCreate
OnShow = FormShow
PopupMenu = PopupMenu1
Position = poScreenCenter
ShowHint = True
LCLVersion = '3.7.0.0'
object Notebook: TPageControl
Left = 0
Height = 340
@ -40,6 +40,8 @@ object AboutForm: TAboutForm
Height = 300
Top = 6
Width = 450
Proportional = True
Stretch = True
end
object VersionLabel: TLabel
AnchorSideLeft.Control = LogoImage

2
ide/aboutfrm.pas
View File

@ -305,7 +305,7 @@ var
ScaleFactor: Double;
begin
LogoImage.Picture.LoadFromResourceName(HInstance, 'splash_logo', TPortableNetworkGraphic);
ScaleFactor := GetCanvasScaleFactor; // Usually 1.0, but on macOS = 2.0
ScaleFactor := GetCanvasScaleFactor;
W := round(LogoImage.Width * ScaleFactor);
H := round(LogoImage.Height * ScaleFactor);
ScaleImg(LogoImage.Picture.Bitmap, W, H);

4
ide/splash.lfm
View File

@ -9,7 +9,7 @@ object SplashForm: TSplashForm
ClientWidth = 450
FormStyle = fsSplash
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '3.7.0.0'
object Image: TImage
Left = 0
Height = 300
@ -17,5 +17,7 @@ object SplashForm: TSplashForm
Width = 450
Align = alClient
OnPaint = ImagePaint
Proportional = True
Stretch = True
end
end

8
ide/splash.pp
View File

@ -129,11 +129,17 @@ begin
end;
procedure TSplashForm.Show;
var
W, H: Integer;
ScaleFactor: Double;
begin
inherited;
LoadSplash;
ScaleImg(Image.Picture.Bitmap, Width, Height);
ScaleFactor := GetCanvasScaleFactor;
W := round(Image.Width * ScaleFactor);
H := round(Image.Height * ScaleFactor);
ScaleImg(Image.Picture.Bitmap, W, H);
end;
end.