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

cleanup: move default handling to DefaultHandler

Browse Source 
git-svn-id: trunk@5671 -
This commit is contained in:
micha 2004-07-12 13:04:15 +00:00
parent 20ed3818a2
commit efede3cc06
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32callback.inc
View File

@ -547,8 +547,8 @@ Begin
End;
WM_GETDLGCODE:
Begin
// let windows set default flags, then user can override them
LMessage.Msg := LM_GETDLGCODE;
WinProcess := false;
End;
WM_KEYDOWN:
Begin
@ -1276,6 +1276,9 @@ end;
{
$Log$
Revision 1.127 2004/07/12 13:04:14 micha
cleanup: move default handling to DefaultHandler
Revision 1.126 2004/07/07 08:15:28 micha
fix not listening to Key := #0 in WM_CHAR message

8
lcl/interfaces/win32/win32winapi.inc
View File

@ -291,6 +291,11 @@ begin
// provide default wheel scrolling functionality
CallMouseWheelHandler;
end;
LM_GETDLGCODE:
begin
TLMessage(Message).Result := CallDefaultWindowProc(Handle, WM_GETDLGCODE, 0, 0);
end;
end;
end;
@ -3008,6 +3013,9 @@ end;
{ =============================================================================
$Log$
Revision 1.125 2004/07/12 13:04:15 micha
cleanup: move default handling to DefaultHandler
Revision 1.124 2004/07/02 20:28:18 micha
draw 1-pixel border using inner flag, outer seems to not draw top-left