// **************************************************************************** //
// **                                                                        ** //
// ** Class   : cScrollBar                                                   ** //
// **                                                                        ** //
// ** Purpose : Wrapper class for scrollbar control                          ** //
// **                                                                        ** //
// ** Author  : Ulbe Stellema                                                ** //
// **           Data Access Europe                                           ** //
// **                                                                        ** //
// ** Date    : januari 25, 2002                                             ** //
// **                                                                        ** //
// **************************************************************************** //

Use cGrid.h

Class cScrollBar Is a cWinControl

  // Procedure : Construct_Object
  // Purpose   : Object constructor
  Procedure Construct_Object
    Set External_Class_Name "DFUlbeScrollBar" To "SCROLLBAR"
    Forward Send Construct_Object

    Property Boolean pbVertical True

    Set Window_Style To WS_CLIPSIBLINGS False
    Set Window_Style To WS_OVERLAPPED   False
    Set Window_Style To WS_TABSTOP      False

    Set Focus_Mode To Pointer_Only
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
    Set Window_Style To SBS_VERT (pbVertical(Self))
    Set Window_Style To SBS_HORZ (Not(pbVertical(Self)))
  End_Procedure // End_Construct_Object

End_Class // cScrollBar