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

Qt6: implemented SetBitmapScaleRatio. issue #41299

Browse Source
This commit is contained in:
zeljan1 2024-12-31 20:20:47 +01:00
parent f0dae76cf2
commit fc021470b4
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt6/qtlclintf.inc
View File

@ -887,6 +887,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

1
lcl/interfaces/qt6/qtlclintfh.inc
View File

@ -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;