* fix for #7882 by xpete

git-svn-id: trunk@5548 -

rtl/win/wininc/base.inc

@@ -552,6 +552,8 @@
 
      FARPROC = pointer;
 
+     TFarProc = FARPROC;
+
      PROC = FARPROC;
 
      ENUMRESTYPEPROC = function (_para1:HANDLE; _para2:LPTSTR; _para3:LONG):WINBOOL;stdcall;

rtl/win/wininc/messages.inc

@@ -1654,6 +1654,80 @@ Type
       Result : LRESULT;
     end;
 
+	  TWMSizeClipboard = record
+	    Msg: UINT;
+	    Viewer: HWND;
+	    RC: THandle;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMSpoolerStatus = record
+            Msg: UINT;
+	    JobStatus: LPARAM;
+	    JobsLeft: WPARAM;
+	    Unused: WPARAM;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMStyleChange = record
+	    Msg: UINT;
+	    StyleType: LPARAM;
+	    StyleStruct: PStyleStruct;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMStyleChanged = TWMStyleChange;
+	  TWMStyleChanging = TWMStyleChange;
+	
+	
+	  TWMSysDeadChar = record
+	    Msg: UINT;
+	    CharCode: WPARAM;
+	    Unused: WPARAM;
+	    KeyData: LPARAM;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMSystemError = record
+	    Msg: UINT;
+	    ErrSpec: WPARAM;
+	    Unused: LPARAM;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMTimeChange = TWMNoParams;
+	
+	  TWMTimer = record
+	    Msg: UINT;
+	    TimerID: LPARAM;
+	    TimerProc: TFarProc;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMUndo = TWMNoParams;
+	
+	  TWMVScrollClipboard = record
+	    Msg: UINT;
+	    Viewer: HWND;
+	    ScollCode: WPARAM;
+	    ThumbPos: WPARAM;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMDisplayChange = record
+	    Msg: UINT;
+	    BitsPerPixel: Integer;
+	    Width: WPARAM;
+	    Height: WPARAM;
+	    Result: LRESULT;
+	  end;
+	
+	  TWMDropFiles = record
+	     Msg: UINT;
+	     Drop: THANDLE;
+	     Unused: LPARAM;
+	     Result: LRESULT;
+	  end;
     {$endif messagesunit}
 
 {$endif read_interface}

rtl/win/wininc/redef.inc

@@ -26,7 +26,6 @@ type
   PCharInfo = ^TCharInfo;
   TCharInfo = _CHAR_INFO;
 
-  TFarProc = FARPROC;
   TFNDlgProc = FARPROC;
   TFNThreadStartRoutine = FARPROC;
   TFNTimerAPCRoutine    = FARPROC;