paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 08:09:34 +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;

16
lcl/lmessages.pp
View File

@ -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}