paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Move tmsg and family to messages.inc. windows.pp needed include sequence patch

Browse Source
This commit is contained in:
marco 2002-11-04 12:19:01 +00:00
parent 03453590e3
commit 7a10439726
2 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/windows.pp
View File

@ -27,8 +27,8 @@ interface
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i messages.inc}
{$i struct.inc}
{$i messages.inc}
{$i ascfun.inc}
{$i unifun.inc}
{$ifdef UNICODE}
@ -47,8 +47,8 @@ implementation
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i messages.inc}
{$i struct.inc}
{$i messages.inc}
{$i ascfun.inc}
{$i unifun.inc}
{$ifdef UNICODE}
@ -62,10 +62,13 @@ implementation
end.
{
$Log$
Revision 1.4 2002-10-10 14:58:16 florian
Revision 1.5 2002-11-04 12:19:01 marco
* Move tmsg and family to messages.inc. windows.pp needed include sequence patch
Revision 1.4 2002/10/10 14:58:16 florian
- removed conditionals for 0.99.14
Revision 1.3 2002/09/07 16:01:29 peter
* old logs removed and tabs fixed
}
}

18
rtl/win32/wininc/struct.inc
View File

@ -4161,19 +4161,6 @@
TMOUSEKEYS = MOUSEKEYS;
PMOUSEKEYS = ^MOUSEKEYS;
MSG = record
hwnd : HWND;
message : UINT;
wParam : WPARAM;
lParam : LPARAM;
time : DWORD;
pt : POINT;
end;
LPMSG = ^MSG;
tagMSG = MSG;
TMSG = MSG;
PMSG = ^MSG;
MSGBOXCALLBACK = procedure (lpHelpInfo:LPHELPINFO);stdcall;
TMSGBOXCALLBACK = MSGBOXCALLBACK;
@ -7027,7 +7014,10 @@ type
{
$Log$
Revision 1.16 2002-10-02 21:03:04 peter
Revision 1.17 2002-11-04 12:19:01 marco
* Move tmsg and family to messages.inc. windows.pp needed include sequence patch
Revision 1.16 2002/10/02 21:03:04 peter
* TSystemTime fpc compatibility parameters added as variant record
Revision 1.15 2002/09/15 17:53:45 peter