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

Qt5: implemented SetBitmapScaleRatio, issue #41299

Browse Source
This commit is contained in:
zeljan1 2024-12-31 20:10:36 +01:00
parent 1aed29d27c
commit 59f26575d6
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/qt5/qtlclintf.inc
View File

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

1
lcl/interfaces/qt5/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;