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

Qt: fixed problem with casts under 64bit.

Browse Source 
git-svn-id: trunk@45018 -
This commit is contained in:
zeljko 2014-05-12 09:39:38 +00:00
parent ea3f43d3c8
commit 34371d34aa
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3982,7 +3982,7 @@ begin
begin begin
FSelTimer.TimerEnabled := False; FSelTimer.TimerEnabled := False;
RptEvent := QLCLMessageEvent_create(LCLQt_ClipboardPrimarySelection, RptEvent := QLCLMessageEvent_create(LCLQt_ClipboardPrimarySelection,
Ord(ctPrimarySelection), FSelFmtCount, 0, 0); PtrUInt(Ord(ctPrimarySelection)), PtrUInt(FSelFmtCount), 0, 0);
QCoreApplication_postEvent(ClipBoard, RptEvent); QCoreApplication_postEvent(ClipBoard, RptEvent);
end; end;
end; end;
@ -4220,7 +4220,7 @@ function TQtClipboard.GetOwnerShip(ClipboardType: TClipboardType;
begin begin
FSelFmtCount := FormatCount; FSelFmtCount := FormatCount;
Event := QLCLMessageEvent_create(LCLQt_ClipboardPrimarySelection, Event := QLCLMessageEvent_create(LCLQt_ClipboardPrimarySelection,
Ord(ClipboardType), FormatCount, PtrUInt(QApplication_keyboardModifiers()), 0); PtrUInt(Ord(ClipboardType)), PtrUInt(FormatCount), PtrUInt(QApplication_keyboardModifiers()), 0);
QCoreApplication_postEvent(ClipBoard, Event); QCoreApplication_postEvent(ClipBoard, Event);
exit; exit;
end; end;

6
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2218,7 +2218,7 @@ procedure TQtWidget.DelayResizeEvent(AWidget: QWidgetH; ANewSize: TSize);
var var
ALCLResizeEvent: QLCLMessageEventH; ALCLResizeEvent: QLCLMessageEventH;
begin begin
ALCLResizeEvent := QLCLMessageEvent_create(LCLQt_DelayResizeEvent, 0, MakeWParam(Word(ANewSize.cx), Word(ANewSize.cy)), 0, 0); ALCLResizeEvent := QLCLMessageEvent_create(LCLQt_DelayResizeEvent, 0, PtrUInt(ANewSize.cx), PtrUInt(ANewSize.cy), 0);
QCoreApplication_postEvent(AWidget, ALCLResizeEvent); QCoreApplication_postEvent(AWidget, ALCLResizeEvent);
end; end;
@ -2403,8 +2403,8 @@ begin
case QEvent_type(Event) of case QEvent_type(Event) of
LCLQt_DelayResizeEvent: LCLQt_DelayResizeEvent:
begin begin
ANewSize.cx := Lo(QLCLMessageEvent_getWParam(QLCLMessageEventH(Event))); ANewSize.cx := LongInt(QLCLMessageEvent_getWParam(QLCLMessageEventH(Event)));
ANewSize.cy := Hi(QLCLMessageEvent_getWParam(QLCLMessageEventH(Event))); ANewSize.cy := LongInt(QLCLMessageEvent_getLParam(QLCLMessageEventH(Event)));
AResizeEvent := QResizeEvent_create(@ANewSize, @ANewSize); AResizeEvent := QResizeEvent_create(@ANewSize, @ANewSize);
try try
{$IF DEFINED(VerboseSizeMsg) OR DEFINED(VerboseQtResize)} {$IF DEFINED(VerboseSizeMsg) OR DEFINED(VerboseQtResize)}