paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 02:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

restore occasionally deleted line of code

Browse Source 
git-svn-id: trunk@13850 -
This commit is contained in:
paul 2008-01-24 02:30:13 +00:00
parent 0966193cf6
commit 3755b7e54a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -1956,7 +1956,7 @@ Begin
if csDesigning in Sender.ComponentState then begin
Result:=true;
case TheMessage.Msg of
LM_PAINT,
LM_PAINT: Result := PaintControl(Sender, TLMPaint(TheMessage));
CN_KEYDOWN: KeyDown(Sender,TLMKey(TheMessage));
CN_KEYUP: KeyUP(Sender,TLMKey(TheMessage));
LM_LBUTTONDOWN,