+ added the win16api window activation functions

git-svn-id: trunk@31782 -

rtl/win16/winprocsh.inc

@@ -972,3 +972,10 @@ function ScrollDC(hdc: HDC; dx, dy: SmallInt; lprcScroll, lprcClip: LPRECT; hrgn
 {$ifdef VAR_PARAMS_ARE_FAR}
 function ScrollDC(hdc: HDC; dx, dy: SmallInt; var rcScroll, rcClip: RECT; hrgnUpdate: HRGN; lprcUpdate: LPRECT): BOOL; external 'USER';
 {$endif}
+
+{ Window activation }
+
+function SetActiveWindow(hwnd: HWND): HWND; external 'USER';
+function GetActiveWindow: HWND; external 'USER';
+
+function GetLastActivePopup(hwndOwner: HWND): HWND; external 'USER';

rtl/win16/wintypes.inc

@@ -1722,3 +1722,13 @@ const
 
   WM_QUERYDRAGICON = $0037;
   WM_DROPFILES     = $0233;
+
+{ Window activation }
+{ WM_ACTIVATE state values }
+  WA_INACTIVE    = 0;
+  WA_ACTIVE      = 1;
+  WA_CLICKACTIVE = 2;
+
+  WM_ACTIVATE    = $0006;
+  WM_ACTIVATEAPP = $001C;
+  WM_NCACTIVATE  = $0086;