paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 08:34:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes on qt interface for 64-bits platforms from Giulio Bernardi.

Browse Source 
git-svn-id: trunk@10217 -
This commit is contained in:
sekelsenmat 2006-11-19 18:47:19 +00:00
parent 5302d4b562
commit dc6ff66f9b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtobjects.pas
View File

@ -31,7 +31,7 @@ uses
// Free Pascal // Free Pascal
Classes, SysUtils, Types, Classes, SysUtils, Types,
// LCL // LCL
Menus, LCLProc; LCLType, Menus, LCLProc;
type type
{ TQtAction } { TQtAction }
@ -268,7 +268,7 @@ begin
Handle := QImage_create(AData, width, height, format); Handle := QImage_create(AData, width, height, format);
{$ifdef VerboseQt} {$ifdef VerboseQt}
WriteLn('TQtImage.Create Result:', Integer(Handle)); WriteLn('TQtImage.Create Result:', PtrInt(Handle));
{$endif} {$endif}
end; end;

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

@ -2003,7 +2003,7 @@ begin
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt] DestDC:', dbgs(DestDC), ' SrcDC:', dbgs(SrcDC), WriteLn('[WinAPI StretchMaskBlt] DestDC:', dbgs(DestDC), ' SrcDC:', dbgs(SrcDC),
' Image:', dbgs(Integer(Image)), ' Image:', dbgs(PtrInt(Image)),
' X:', dbgs(X), ' Y:', dbgs(Y), ' X:', dbgs(X), ' Y:', dbgs(Y),
' W:', dbgs(Width), ' H:', dbgs(Height), ' W:', dbgs(Width), ' H:', dbgs(Height),
' XSrc:', dbgs(XSrc), ' YSrc:', dbgs(YSrc), ' XSrc:', dbgs(XSrc), ' YSrc:', dbgs(YSrc),