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

Win32 fix: Closing file with CTRL-F4 on form designer caused access violation. Patch from Ludo Brands, issue #19294

Browse Source 
git-svn-id: trunk@30575 -
This commit is contained in:
juha 2011-05-06 10:09:44 +00:00
parent febce422a7
commit fb63887235
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -2495,7 +2495,7 @@ begin
// we cannot tell for sure windows didn't want the key // we cannot tell for sure windows didn't want the key
// for WM_CHAR check WM_GETDLGCODE/DLGC_WANTCHARS // for WM_CHAR check WM_GETDLGCODE/DLGC_WANTCHARS
// winapi too inconsistent about return value // winapi too inconsistent about return value
if (lWinControl <> nil) and (PLMsg^.Result = 0) then if (lWinControl <> nil) and (PLMsg^.Result = 0) and (LMKey.CharCode<>0) then
DeliverMessage(lWinControl, PLMsg^); DeliverMessage(lWinControl, PLMsg^);
// handle Ctrl-A for edit controls // handle Ctrl-A for edit controls