+ added the win16api scroll bar support functions

git-svn-id: trunk@31790 -

rtl/win16/win31.pp

@@ -789,6 +789,9 @@ function ScrollWindowEx(hwnd: HWND; dx, dy: SmallInt;
 { Menu support }
 function IsMenu(hmenu: HMENU): BOOL; external 'USER';
 
+{ Scroll bar support }
+function EnableScrollBar(hwnd: HWND; fnSBFlags: SmallInt; fuArrowFlags: UINT): BOOL; external 'USER';
+
 implementation
 
 end.

rtl/win16/winprocsh.inc

@@ -1061,3 +1061,14 @@ function SetMenuItemBitmaps(hmenu: HMENU; idItem, fuFlags: UINT; hbmUnchecked, h
 function GetMenuCheckMarkDimensions: DWORD; external 'USER';
 
 function TrackPopupMenu(hmenu: HMENU; fuFlags: UINT; x, y, nReserved: SmallInt; hwnd: HWND; lprc: LPRECT): BOOL; external 'USER';
+
+{ Scroll bar support }
+
+function SetScrollPos(hwnd: HWND; fnBar, nPos: SmallInt; fRepaint: BOOL): SmallInt; external 'USER';
+function GetScrollPos(hwnd: HWND; fnBar: SmallInt): SmallInt; external 'USER';
+procedure SetScrollRange(hwnd: HWND; fnBar, nMin, nMax: SmallInt; fRedraw: BOOL); external 'USER';
+procedure GetScrollRange(hwnd: HWND; fnBar: SmallInt; lpnMinPos, lpnMaxPos: LPINT); external 'USER';
+{$ifdef VAR_PARAMS_ARE_FAR}
+procedure GetScrollRange(hwnd: HWND; fnBar: SmallInt; var nMinPos, nMaxPos: SmallInt); external 'USER';
+{$endif}
+procedure ShowScrollBar(hwnd: HWND; fnBar: SmallInt; fShow: BOOL); external 'USER';

rtl/win16/wintypes.inc

@@ -1993,3 +1993,43 @@ const
 
 { Menu and control command messages }
   WM_COMMAND         = $0111;
+
+{ Scroll bar support }
+  WM_HSCROLL        = $0114;
+  WM_VSCROLL        = $0115;
+
+{ WM_H/VSCROLL commands }
+  SB_LINEUP         = 0;
+  SB_LINELEFT       = 0;
+  SB_LINEDOWN       = 1;
+  SB_LINERIGHT      = 1;
+  SB_PAGEUP         = 2;
+  SB_PAGELEFT       = 2;
+  SB_PAGEDOWN       = 3;
+  SB_PAGERIGHT      = 3;
+  SB_THUMBPOSITION  = 4;
+  SB_THUMBTRACK     = 5;
+  SB_TOP            = 6;
+  SB_LEFT           = 6;
+  SB_BOTTOM         = 7;
+  SB_RIGHT          = 7;
+  SB_ENDSCROLL      = 8;
+
+{ Scroll bar selection constants }
+  SB_HORZ           = 0;
+  SB_VERT           = 1;
+  SB_CTL            = 2;
+  SB_BOTH           = 3;
+
+{ EnableScrollBar() flags }
+  ESB_ENABLE_BOTH   = $0000;
+  ESB_DISABLE_BOTH  = $0003;
+
+  ESB_DISABLE_LEFT  = $0001;
+  ESB_DISABLE_RIGHT = $0002;
+
+  ESB_DISABLE_UP    = $0001;
+  ESB_DISABLE_DOWN  = $0002;
+
+  ESB_DISABLE_LTUP  = ESB_DISABLE_LEFT;
+  ESB_DISABLE_RTDN  = ESB_DISABLE_RIGHT;