소스 검색

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

marco 23 년 전
부모
커밋
7a10439726
2개의 변경된 파일11개의 추가작업 그리고 18개의 파일을 삭제
  1. 7 4
      rtl/win32/windows.pp
  2. 4 14
      rtl/win32/wininc/struct.inc

+ 7 - 4
rtl/win32/windows.pp

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

+ 4 - 14
rtl/win32/wininc/struct.inc

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