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

LCL: TCustomForm.WndProc LM_ACTIVATE, LM_SETFOCUS, LM_KILLFOCUS now call inherited

Browse Source 
git-svn-id: trunk@13127 -
This commit is contained in:
mattias 2007-12-03 18:52:16 +00:00
parent c2236293fe
commit 328bf736f2
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/customform.inc
View File

@ -907,7 +907,6 @@ begin
DebugLn('[TCustomForm.WndProc] ',Name,':',ClassName);
{$ENDIF}
LCLIntf.SetFocus(FocusHandle);
Exit;
end;
end;
end;

16
lcl/lmessages.pp
View File

@ -718,17 +718,17 @@ type
case Integer of
0 : (
WParam: LclType.WPARAM;
LParam: LclType.LPARAM;
Result: LclType.LRESULT);
LParam: LclType.LPARAM;
Result: LclType.LRESULT);
{$IFNDEF CPU64}
// on a 64 bit platform these make no sense
1 : (
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);
{$endif}
end;
{$else}