paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 05:36:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: implemented GetDCOriginRelativeToWindow()

Browse Source 
git-svn-id: trunk@17623 -
This commit is contained in:
zeljko 2008-11-28 15:35:35 +00:00
parent f2f66fafb1
commit f861906cc1
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/qt/qtwinapi.inc
View File

@ -2035,12 +2035,25 @@ begin
{$endif}
end;
function TQtWidgetSet.GetDCOriginRelativeToWindow(PaintDC: HDC; WindowHandle: HWND; var OriginDiff: TPoint): boolean;
function TQtWidgetSet.GetDCOriginRelativeToWindow(PaintDC: HDC;
WindowHandle: HWND; var OriginDiff: TPoint): boolean;
var
QtDC: TQtDeviceContext absolute PaintDC;
Matrix: QMatrixH;
begin
Result := False;
{$ifdef VerboseQtWinAPI_MISSING_IMPLEMENTATION}
WriteLn('***** [WinAPI TQtWidgetSet.GetDCOriginRelativeToWindow] missing implementation ');
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI GetDCOriginRelativeToWindow] PaintDC ' + dbghex(PaintDC));
{$endif}
Result := IsValidDC(PaintDC);
if not Result then
exit;
Matrix := QPainter_Matrix(QtDC.Widget);
OriginDiff := Point(0, 0);
if Matrix <> nil then
begin
OriginDiff.X := Round(QMatrix_Dx(Matrix));
OriginDiff.Y := Round(QMatrix_Dy(Matrix));
end;
end;
{------------------------------------------------------------------------------