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

LCL: reverted TLMMouse Keys to PtrInt.

Browse Source 
Qt: fixed wrong cast in TQtTimer.Create(), cast to THandle(PtrUInt) instead to PtrInt, fixes crash on 32bit with -Cr

git-svn-id: trunk@27788 -
This commit is contained in:
zeljko 2010-10-21 10:53:10 +00:00
parent 339f85f006
commit e6a8e1e2a4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -158,7 +158,7 @@ var
begin
QtTimer := TQtTimer.CreateTimer(Interval, TimerFunc, App);
Result := PtrInt(QtTimer);
Result := THandle(QtTimer);
end;
{------------------------------------------------------------------------------

2
lcl/lmessages.pp
View File

@ -433,7 +433,7 @@ type
TLMMouse = record
Msg : Cardinal;
Keys: PtrUInt;
Keys: PtrInt;
case Integer of
0: (
XPos: SmallInt;