+ added the win16api computer-based-training support constants and types

git-svn-id: trunk@31815 -

rtl/win16/win31.pp

@@ -669,6 +669,26 @@ const
   CBN_SELENDOK             = 9;
   CBN_SELENDCANCEL         = 10;
 
+{ Computer-based-training (CBT) support }
+type
+{ HCBT_CREATEWND parameters pointed to by lParam }
+  PCBT_CREATEWND = ^CBT_CREATEWND;
+  LPCBT_CREATEWND = ^CBT_CREATEWND; far;
+  CBT_CREATEWND = record
+    lpcs: LPCREATESTRUCT;
+    hwndInsertAfter: HWND;
+  end;
+  TCBT_CreateWnd = CBT_CREATEWND;
+
+{ HCBT_ACTIVATE structure pointed to by lParam }
+  PCBTACTIVATESTRUCT = ^CBTACTIVATESTRUCT;
+  LPCBTACTIVATESTRUCT = ^CBTACTIVATESTRUCT; far;
+  CBTACTIVATESTRUCT = record
+    fMouse: BOOL;
+    hWndActive: HWND;
+  end;
+  TCBTActivateStruct = CBTACTIVATESTRUCT;
+
 function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
 
 procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';

rtl/win16/wintypes.inc

@@ -2639,3 +2639,21 @@ const
   HC_GETLPLPFN  = (-3);
   HC_LPLPFNNEXT = (-2);
   HC_LPFNNEXT   = (-1);
+
+{ Computer-based-training (CBT) support }
+
+  WM_QUEUESYNC      = $0023;
+
+{ SetWindowsHook() code }
+  WH_CBT            = 5;
+
+  HCBT_MOVESIZE     = 0;
+  HCBT_MINMAX       = 1;
+  HCBT_QS           = 2;
+  HCBT_CREATEWND    = 3;
+  HCBT_DESTROYWND   = 4;
+  HCBT_ACTIVATE     = 5;
+  HCBT_CLICKSKIPPED = 6;
+  HCBT_KEYSKIPPED   = 7;
+  HCBT_SYSCOMMAND   = 8;
+  HCBT_SETFOCUS     = 9;