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

Qt: avoid crash if LCLObject dissappeared inside SlotKey()

Browse Source 
git-svn-id: trunk@28679 -
This commit is contained in:
zeljko 2010-12-11 09:29:52 +00:00
parent f7e1630363
commit f3bb450103
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2556,8 +2556,13 @@ begin
Exit;
end;
end;
{ Also sends a utf-8 key event for key down }
{ if our LCLObject dissappeared in the meantime just exit, otherwise
we'll run into problems.}
if (LCLObject = nil) then
Exit(False);
{ Also sends a utf-8 key event for key down }
if (QEvent_type(Event) = QEventKeyPress) and (Length(Text) <> 0) then
begin
UTF8Text := UTF16ToUTF8(Text);