diff --git a/lcl/include/intfbaselcl.inc b/lcl/include/intfbaselcl.inc
index 51c9a1031f..ff1cdecef9 100644
--- a/lcl/include/intfbaselcl.inc
+++ b/lcl/include/intfbaselcl.inc
@@ -644,7 +644,7 @@ end;
 //Currently cocoa, qt5, qt6 and gtk3 are known to support this. Without proper scale ratio
 //setup, bitmap text rendering is blurred.See iphtml.pas, procedure TIpHtml.Render() how
 //we use it.Param DC is device context with selected bitmap/image into.
-procedure TWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure TWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 begin
 end;
 
diff --git a/lcl/include/lclintf.inc b/lcl/include/lclintf.inc
index 082feb24ad..6f66eec8e0 100644
--- a/lcl/include/lclintf.inc
+++ b/lcl/include/lclintf.inc
@@ -423,9 +423,9 @@ procedure SendCachedLCLMessages;
 begin
 end;
 
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 begin
-  WidgetSet.SetCanvasScaleFactor(DC, AScaleRatio);
+  WidgetSet.SetCanvasScaleFactor(DC, AScaleFactor);
 end;
 
 function SetCaretRespondToFocus(Handle: hWnd; ShowHideOnFocus: boolean):Boolean;
diff --git a/lcl/include/lclintfh.inc b/lcl/include/lclintfh.inc
index af20d93101..6fa6fe92e6 100644
--- a/lcl/include/lclintfh.inc
+++ b/lcl/include/lclintfh.inc
@@ -109,7 +109,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); {$IFDEF IF_BA
 function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
 procedure SendCachedLCLMessages; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
diff --git a/lcl/interfaces/cocoa/cocoalclintf.inc b/lcl/interfaces/cocoa/cocoalclintf.inc
index ad061ba3be..99c0a2dd5a 100644
--- a/lcl/interfaces/cocoa/cocoalclintf.inc
+++ b/lcl/interfaces/cocoa/cocoalclintf.inc
@@ -740,13 +740,13 @@ begin
   Result := True;
 end;
 
-procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 var
   ctx: TCocoaContext;
 begin
   ctx := CheckDC(DC);
   if Assigned(ctx) and (ctx is TCocoaBitmapContext) then
-    CGContextScaleCTM(ctx.CGContext, AScaleRatio, AScaleRatio);
+    CGContextScaleCTM(ctx.CGContext, AScaleFactor, AScaleFactor);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/cocoa/cocoalclintfh.inc b/lcl/interfaces/cocoa/cocoalclintfh.inc
index 7e5c5a3ce6..2ebc73961c 100644
--- a/lcl/interfaces/cocoa/cocoalclintfh.inc
+++ b/lcl/interfaces/cocoa/cocoalclintfh.inc
@@ -50,5 +50,5 @@ function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TR
 
 {function ReleaseDesignerDC(Window: HWND; DC: HDC): Integer; override;}
 
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
 
diff --git a/lcl/interfaces/gtk3/gtk3lclintf.inc b/lcl/interfaces/gtk3/gtk3lclintf.inc
index cf4e6c0152..e4e05cb89f 100644
--- a/lcl/interfaces/gtk3/gtk3lclintf.inc
+++ b/lcl/interfaces/gtk3/gtk3lclintf.inc
@@ -1186,12 +1186,12 @@ begin
   end;
 end;
 
-procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 var
   Gtk3DC: TGtk3DeviceContext absolute DC;
 begin
   if (Gtk3DC <>  nil) then
-    gtk3DC.CanvasScaleFactor := AScaleRatio;
+    gtk3DC.CanvasScaleFactor := AScaleFactor;
 end;
 
 //##apiwiz##eps##   // Do not remove, no wizard declaration after this line
diff --git a/lcl/interfaces/gtk3/gtk3lclintfh.inc b/lcl/interfaces/gtk3/gtk3lclintfh.inc
index eb2fb24eda..df0a44ec0e 100644
--- a/lcl/interfaces/gtk3/gtk3lclintfh.inc
+++ b/lcl/interfaces/gtk3/gtk3lclintfh.inc
@@ -61,7 +61,7 @@ procedure RemoveEventHandler(var AHandler: PEventHandler); override;
 procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
 
 function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
 procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
 procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;
 
diff --git a/lcl/interfaces/qt5/qtlclintf.inc b/lcl/interfaces/qt5/qtlclintf.inc
index c65e44cb1b..8f49ad7011 100644
--- a/lcl/interfaces/qt5/qtlclintf.inc
+++ b/lcl/interfaces/qt5/qtlclintf.inc
@@ -868,14 +868,14 @@ begin
   // todo
 end;
 
-procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 var
   QtDc: TQtDeviceContext absolute DC;
 begin
   if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
   begin
     QPainter_end(QtDC.Widget);
-    QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio);
+    QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
     QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
   end;
 end;
diff --git a/lcl/interfaces/qt5/qtlclintfh.inc b/lcl/interfaces/qt5/qtlclintfh.inc
index 72a34bb13a..456d439e47 100644
--- a/lcl/interfaces/qt5/qtlclintfh.inc
+++ b/lcl/interfaces/qt5/qtlclintfh.inc
@@ -73,7 +73,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
 procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
 
 procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
 function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
 procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;
 
diff --git a/lcl/interfaces/qt6/qtlclintf.inc b/lcl/interfaces/qt6/qtlclintf.inc
index 1c1da39a35..bc409d6f28 100644
--- a/lcl/interfaces/qt6/qtlclintf.inc
+++ b/lcl/interfaces/qt6/qtlclintf.inc
@@ -887,14 +887,14 @@ begin
   // todo
 end;
 
-procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
+procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
 var
   QtDc: TQtDeviceContext absolute DC;
 begin
   if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
   begin
     QPainter_end(QtDC.Widget);
-    QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio);
+    QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
     QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
   end;
 end;
diff --git a/lcl/interfaces/qt6/qtlclintfh.inc b/lcl/interfaces/qt6/qtlclintfh.inc
index 72a34bb13a..456d439e47 100644
--- a/lcl/interfaces/qt6/qtlclintfh.inc
+++ b/lcl/interfaces/qt6/qtlclintfh.inc
@@ -73,7 +73,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
 procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
 
 procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
-procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
+procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
 function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
 procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;