paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 04:58:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): Implemented TQtWidgetSet.BitBlt()

Browse Source 
git-svn-id: trunk@11732 -
This commit is contained in:
zeljko 2007-08-03 20:42:20 +00:00
parent a430936686
commit 80a0bfee01
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,10 +116,16 @@ end;
function TQtWidgetSet.BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
begin
{$ifdef VerboseQtWinAPI_MISSING_IMPLEMENTATION}
WriteLn('***** [WinAPI TQtWidgetSet.BitBlt] missing implementation ');
{$ifdef VerboseQtWinAPI}
WriteLn('Trace:> [TQtWidgetSet.BitBlt]');
{$endif}
Result := StretchBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Width,
Height, ROP);
{$ifdef VerboseQtWinAPI}
WriteLn('Trace:< [TQtWidgetSet.BitBlt]');
{$endif}
Result := False;
end;
function TQtWidgetSet.CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer;
@ -1278,7 +1284,7 @@ begin
WriteLn('***** [WinAPI TQtWidgetSet.EnableWindow] possible wrong implementation');
{$endif}
if TQtWidget(hWnd).LCLObject.ClassName<>'TScrollBar' then
QWidget_setEnabled(TQtWidget(hWnd).Widget, bEnable);
QWidget_setEnabled(TQtWidget(hWnd).Widget, bEnable);
end;
{------------------------------------------------------------------------------