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

sparta: add FillChars to initialize message records

Browse Source 
git-svn-id: trunk@51180 -
This commit is contained in:
ondrej 2016-01-03 23:51:30 +00:00
parent 0015151c63
commit f90e434afc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sparta/dockedformeditor/source/sparta_resizerframe.pas
View File

@ -856,6 +856,7 @@ var
LMsg: TLMKeyUp; LMsg: TLMKeyUp;
begin begin
LWndProc := FDesignedForm.Form.WindowProc; LWndProc := FDesignedForm.Form.WindowProc;
FillChar(LMsg{%H-}, SizeOf(LMsg), 0);
LMsg.msg := CN_KEYDOWN; LMsg.msg := CN_KEYDOWN;
LMsg.CharCode := Key; LMsg.CharCode := Key;
LWndProc(TLMessage(LMsg)); LWndProc(TLMessage(LMsg));
@ -869,6 +870,7 @@ var
LMsg: TLMKeyUp; LMsg: TLMKeyUp;
begin begin
LWndProc := FDesignedForm.Form.WindowProc; LWndProc := FDesignedForm.Form.WindowProc;
FillChar(LMsg{%H-}, SizeOf(LMsg), 0);
LMsg.msg := CN_KEYUP; LMsg.msg := CN_KEYUP;
LMsg.CharCode := Key; LMsg.CharCode := Key;
LWndProc(TLMessage(LMsg)); LWndProc(TLMessage(LMsg));