paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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); DebugLn('[TCustomForm.WndProc] ',Name,':',ClassName);
{$ENDIF} {$ENDIF}
LCLIntf.SetFocus(FocusHandle); LCLIntf.SetFocus(FocusHandle);
Exit;
end; end;
end; end;
end; end;

20
lcl/lmessages.pp
View File

@ -111,7 +111,7 @@ const
LM_DRAWLISTITEM = LM_User+80; LM_DRAWLISTITEM = LM_User+80;
LM_SETCURSOR = LM_User+81; LM_SETCURSOR = LM_User+81;
LM_CONTEXTMENU = LM_User+82; LM_CONTEXTMENU = LM_User+82;
LM_INTERNALPAINT = LM_User + 90; LM_INTERNALPAINT = LM_User + 90;
@ -718,17 +718,17 @@ type
case Integer of case Integer of
0 : ( 0 : (
WParam: LclType.WPARAM; WParam: LclType.WPARAM;
LParam: LclType.LPARAM; LParam: LclType.LPARAM;
Result: LclType.LRESULT); Result: LclType.LRESULT);
{$IFNDEF CPU64} {$IFNDEF CPU64}
// on a 64 bit platform these make no sense // on a 64 bit platform these make no sense
1 : ( 1 : (
WParamLo: Word; WParamLo: Word;
WParamHi: Word; WParamHi: Word;
LParamLo: Word; LParamLo: Word;
LParamHi: Word; LParamHi: Word;
ResultLo: Word; ResultLo: Word;
ResultHi: Word); ResultHi: Word);
{$endif} {$endif}
end; end;
{$else} {$else}
@ -851,7 +851,7 @@ begin
// RECEIVED from the interface, here are no defines // RECEIVED from the interface, here are no defines
// of messages send to the interface // of messages send to the interface
//------------- //-------------
LM_ACTIVATE : Result:='LM_ACTIVATE'; LM_ACTIVATE : Result:='LM_ACTIVATE';
LM_SETFOCUS : Result:='LM_SETFOCUS'; LM_SETFOCUS : Result:='LM_SETFOCUS';
LM_KILLFOCUS : Result:='LM_KILLFOCUS'; LM_KILLFOCUS : Result:='LM_KILLFOCUS';