diff --git a/lcl/interfaces/qt5/qtlclintf.inc b/lcl/interfaces/qt5/qtlclintf.inc
index c160ad98ac..3ee5ba4292 100644
--- a/lcl/interfaces/qt5/qtlclintf.inc
+++ b/lcl/interfaces/qt5/qtlclintf.inc
@@ -868,6 +868,12 @@ begin
   // todo
 end;
 
+procedure TQtWidgetSet.SetBitmapScaleRatio(aBMP: HBITMAP; const AScaleRatio: double);
+begin
+  if IsValidGDIObject(aBmp) then
+    QImage_setDevicePixelRatio(TQtImage(aBmp).Handle, AScaleRatio);
+end;
+
 procedure TQtWidgetSet.SetEventHandlerFlags(AHandler: PEventHandler;
   NewFlags: dword);
 var
diff --git a/lcl/interfaces/qt5/qtlclintfh.inc b/lcl/interfaces/qt5/qtlclintfh.inc
index 7f1e787c3d..c5a0add24b 100644
--- a/lcl/interfaces/qt5/qtlclintfh.inc
+++ b/lcl/interfaces/qt5/qtlclintfh.inc
@@ -73,6 +73,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
 procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
 
 procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
+procedure SetBitmapScaleRatio(aBmp: HBITMAP; const AScaleRatio: double); override;
 function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
 procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;