paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +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 // todo
end; 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; procedure TQtWidgetSet.SetEventHandlerFlags(AHandler: PEventHandler;
NewFlags: dword); NewFlags: dword);
var 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 RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); 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; function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override; procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;