diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index c1a987554d..43939c44f2 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -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
diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index cb28f12b87..52623cf3f5 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -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;