paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed type cast which caused immediate crash of qtlcl when assigning PtrUInt to WParam.

Browse Source 
git-svn-id: trunk@27792 -
This commit is contained in:
zeljko 2010-10-21 11:31:13 +00:00
parent 81a1b83ec1
commit 1bc2a1db55
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -575,14 +575,14 @@ begin
begin
//WriteLn('KILL: ', OldWidget.LCLObject.ClassName);
Msg.msg := LM_KILLFOCUS;
Msg.wParam := PtrUInt(NewWidget);
Msg.wParam := PtrInt(NewWidget);
OldWidget.DeliverMessage(Msg);
end;
if NewWidget <> nil then
begin
//WriteLn('SET: ', NewWidget.LCLObject.ClassName);
Msg.msg := LM_SETFOCUS;
Msg.wParam := PtrUInt(OldWidget);
Msg.wParam := PtrInt(OldWidget);
NewWidget.DeliverMessage(Msg);
end;
end;