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

LCL: increase LCLRefCount during IntfUTF8KeyPress

Browse Source 
git-svn-id: trunk@18579 -
This commit is contained in:
mattias 2009-02-05 12:29:15 +00:00
parent 8a04802fc6
commit 7571caa3da
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/include/wincontrol.inc
View File

@ -4420,7 +4420,12 @@ end;
function TWinControl.IntfUTF8KeyPress(var UTF8Key: TUTF8Char; function TWinControl.IntfUTF8KeyPress(var UTF8Key: TUTF8Char;
RepeatCount: integer; SystemKey: boolean): boolean; RepeatCount: integer; SystemKey: boolean): boolean;
begin begin
Result:=(RepeatCount>0) and (not SystemKey) and DoUTF8KeyPress(UTF8Key); IncLCLRefCount;
try
Result:=(RepeatCount>0) and (not SystemKey) and DoUTF8KeyPress(UTF8Key);
finally
DecLCLRefCount;
end;
end; end;
procedure TWinControl.PaintTo(DC: HDC; X, Y: Integer); procedure TWinControl.PaintTo(DC: HDC; X, Y: Integer);