diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index 43939c44f2..c4796c77fe 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -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
diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index 3e8b6a5da3..6bc066e8c5 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -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);
diff --git a/ide/splash.lfm b/ide/splash.lfm
index 013b954bf3..b125ca4b54 100644
--- a/ide/splash.lfm
+++ b/ide/splash.lfm
@@ -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
diff --git a/ide/splash.pp b/ide/splash.pp
index 2f8261ae60..2313280c34 100644
--- a/ide/splash.pp
+++ b/ide/splash.pp
@@ -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.