paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +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;

20
lcl/lmessages.pp
View File

@ -111,7 +111,7 @@ const
LM_DRAWLISTITEM = LM_User+80;
LM_SETCURSOR = LM_User+81;
LM_CONTEXTMENU = LM_User+82;
LM_INTERNALPAINT = LM_User + 90;
@ -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}
@ -851,7 +851,7 @@ begin
// RECEIVED from the interface, here are no defines
// of messages send to the interface
//-------------
LM_ACTIVATE : Result:='LM_ACTIVATE';
LM_SETFOCUS : Result:='LM_SETFOCUS';
LM_KILLFOCUS : Result:='LM_KILLFOCUS';