paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 13:19:31 +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
Classes, SysUtils, Types,
// LCL
Menus, LCLProc;
LCLType, Menus, LCLProc;
type
{ TQtAction }
@ -268,7 +268,7 @@ begin
Handle := QImage_create(AData, width, height, format);
{$ifdef VerboseQt}
WriteLn('TQtImage.Create Result:', Integer(Handle));
WriteLn('TQtImage.Create Result:', PtrInt(Handle));
{$endif}
end;

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

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