paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* including in both messages and windows caused problems (expected

Browse Source 
windows.msg, got message.msg and vice versa. Solved by aliasing
This commit is contained in:
marco 2004-08-22 11:12:24 +00:00
parent 6ad2b42765
commit e1828acc9c
2 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/win32/messages.pp
View File

@ -7,6 +7,7 @@ interface
windows;
{$DEFINE read_interface}
{$DEFINE MESSAGESUNIT}
{$I messages.inc}
implementation

35
rtl/win32/wininc/messages.inc
View File

@ -1156,6 +1156,33 @@
WM_XBUTTONDBLCLK = 525;
Type
{$ifdef MESSAGESUNIT}
MSG = Windows.MSG;
TMessage = Windows.TMessage;
TWMSize = Windows.TWMSize;
TWMNoParams = Windows.TWMNoParams;
TWMScroll = Windows.TWMScroll;
TWMGetText = Windows.TWMGetText;
TWMKillFocus = Windows.TWMKillFocus;
TWMSetCursor = Windows.TWMSetCursor;
TWMSetFocus = Windows.TWMSetFocus;
TWMSetFont = Windows.TWMSetFont;
TWMShowWindow = Windows.TWMShowWindow;
TWMEraseBkgnd = Windows.TWMEraseBkgnd;
LPMSG = Windows.MSG;
tagMSG = Windows.tagMSG;
TMSG = Windows.TMSG;
PMSG = Windows.PMSG;
PMessage = Windows.PMessage;
TWMGetDlgCode = TWMNoParams;
TWMFontChange = TWMNoParams;
TWMGetFont = TWMNoParams;
TWMHScroll = TWMScroll;
TWMVScroll = TWMScroll;
TWMGetTextLength = TWMNoParams;
{$else}
MSG = record
hwnd : HWND;
@ -1273,11 +1300,17 @@ Type
Result: Longint;
end;
{$endif messagesunit}
{$endif read_interface}
{
$Log$
Revision 1.11 2003-12-06 15:56:35 marco
Revision 1.12 2004-08-22 11:12:24 marco
* including in both messages and windows caused problems (expected
windows.msg, got message.msg and vice versa. Solved by aliasing
Revision 1.11 2003/12/06 15:56:35 marco
* typo fix
Revision 1.10 2003/12/06 15:53:21 marco