From 8ff3294cc00aea289c9aa41197170589d210b9eb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:32 +0000
Subject: [PATCH] added TMemoScrollBar

git-svn-id: trunk@2622 -
---
 lcl/include/interfacebase.inc | 15 ++++++++++++---
 lcl/include/winapi.inc        | 18 ++++++++++++++----
 lcl/include/winapih.inc       | 10 +++++++---
 3 files changed, 33 insertions(+), 10 deletions(-)

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 7826f87986..59600d1f0e 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -932,12 +932,18 @@ begin
 end;
 
 function TInterfaceBase.GetScrollBarSize(Handle: HWND;
-  BarKind: Integer): integer;
+  SBStyle: Integer): integer;
 begin
-  Result := GetSystemMetrics(BarKind);
+  Result := GetSystemMetrics(SBStyle);
 end;
 
-function TInterfaceBase.GetScrollInfo(Handle: HWND; BarFlag: Integer;
+function TInterfaceBase.GetScrollbarVisible(Handle: HWND;
+  SBStyle: Integer): boolean;
+begin
+  Result := false;
+end;
+
+function TInterfaceBase.GetScrollInfo(Handle: HWND; SBStyle: Integer;
   var ScrollInfo: TScrollInfo): Boolean;
 begin
   Result := False;
@@ -1660,6 +1666,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.86  2003/03/29 17:20:05  mattias
+  added TMemoScrollBar
+
   Revision 1.85  2003/03/17 20:53:16  mattias
   removed SetRadioButtonGroupMode
 
diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index 5c6b21cb5b..dc90d130fc 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -470,14 +470,19 @@ begin
   Result := InterfaceObject.GetRGNBox(RGN, lpRect);
 end;
 
-function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer;
+function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer;
 begin
-  Result := InterfaceObject.GetScrollBarSize(Handle, BarKind);
+  Result := InterfaceObject.GetScrollBarSize(Handle, SBStyle);
 end;
 
-function GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean;
+function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean;
 begin
-  Result := InterfaceObject.GetScrollInfo(Handle, BarFlag, ScrollInfo);
+  Result := InterfaceObject.GetScrollbarVisible(Handle, SBStyle);
+end;
+
+function GetScrollInfo(Handle: HWND; SBStyle: Integer; var ScrollInfo: TScrollInfo): Boolean;
+begin
+  Result := InterfaceObject.GetScrollInfo(Handle, SBStyle, ScrollInfo);
 end;
 
 function GetStockObject(Value : Integer): Longint;
@@ -1222,6 +1227,7 @@ function GetScrollPos(Handle: HWND; nBar: Integer): Integer;
 var
   Info: TScrollInfo;
 begin
+  Info.fMask:=SIF_POS;
   GetScrollInfo(Handle, nBar, Info);
   Result := Info.nPos;
 end;
@@ -1236,6 +1242,7 @@ function GetScrollRange(Handle: HWND; nBar: Integer; var lpMinPos, lpMaxPos: Int
 var
   Info: TScrollInfo;
 begin
+  Info.fMask:=SIF_RANGE;
   Result := GetScrollInfo(Handle, nBar, Info);
   lpMinPos := Info.nMin;
   lpMaxPos := Info.nMax;
@@ -1573,6 +1580,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.79  2003/03/29 17:20:05  mattias
+  added TMemoScrollBar
+
   Revision 1.78  2003/03/17 20:53:16  mattias
   removed SetRadioButtonGroupMode
 
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index e28af10bf1..940b878a67 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -133,8 +133,9 @@ function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
 Function GetParent(Handle : HWND): HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function GetProp(Handle : hwnd; Str : PChar): Pointer;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-function GetScrollInfo(Handle: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function GetScrollInfo(Handle: HWND; SBStyle: Integer; var ScrollInfo: TScrollInfo): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 //function GetScrollPos --> independent
 //function GetScrollRange --> independent
 function GetStockObject(Value: Integer): LongInt; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@@ -222,7 +223,7 @@ function SetMapMode(DC: HDC; MapMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}
 Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 //function SetRect --> independent
 //function SetRectEmpty --> independent
-function SetScrollInfo(Handle: HWND; SBStyle : Integer; ScrollInfo: TScrollInfo; Redraw : Boolean): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function SetScrollInfo(Handle: HWND; SBStyle: Integer; ScrollInfo: TScrollInfo; Redraw : Boolean): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 //function SetScrollPos --> independent
 //function SetScrollRange --> independent
 function SetStretchBltMode(DC: HDC; StretchMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@@ -374,6 +375,9 @@ procedure RaiseLastOSError;
 { =============================================================================
 
   $Log$
+  Revision 1.73  2003/03/29 17:20:05  mattias
+  added TMemoScrollBar
+
   Revision 1.72  2003/03/17 20:53:16  mattias
   removed SetRadioButtonGroupMode