[RBG7-L] - RE: Scrolling Region - Scroll Bar PROPERTY

[Alastair Burr]

Thanks, Charles.

So, in theory, if I do not check the Scroll Bar box on the region's
properties and set the
Property <ComponentID> ScrollBars 'True'
when I need it I should/could/might get what I want?

I'll try it and see.
Regards,
Alastair.

----- Original Message ----- 
From: "Charles Parks" <[EMAIL PROTECTED]>
To: "RBG7-L Mailing List" <rbg7-l@rbase.com>
Sent: Thursday, March 17, 2005 7:17 PM
Subject: [RBG7-L] - RE: Scrolling Region - Scroll Bar PROPERTY


I found Property <ComponentID> ScrollBars 'True' will make invisible
scrollbars visible but Property <ComponentID> ScrollBars 'False' will
not make visible scrollbars invisible.

One possible alternative is to have a transparent enhanced panel
covering the scrollbar and then a button that makes the panel visible or
invisible.

The following is based on the categories table in R:Docs.

object RNewWallPaper1: TRNewWallPaper
  Tag = 18713933
  Left = 0
  Top = 0
  Width = 632
  Height = 453
  Active = True
  Align = alClient
  ImageStyle = isCenter
  ShowGradient = True
  ShowImage = False
  ShowTexture = False
end
object RBCtrlGrid2: TRBCtrlGrid
  Tag = 72118148
  Left = 155
  Top = 100
  Width = 216
  Height = 200
  CompID = 'ScrollingRegion'
  TblName = 'Categories'
  Active = False
  ColCount = 1
  PanelHeight = 40
  PanelWidth = 200
  TabOrder = 0
  RowCount = 5
  SelectedColor = clHighlight
  object RDBEdit1: TRDBEdit
    Tag = 91676212
    Left = 40
    Top = 10
    Width = 121
    Height = 21
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Alignment = taRightJustify
    UseDynamicWhere = False
    TblName = 'Categories'
    FldName = 'CategoryID'
    PMType = ptSingle
    PMAccess = False
    PMAuto = False
    PMCust = False
    PMSkip = False
    Formatted = False
    PMLines = 5
  end
end
object RDBEdit1: TRDBEdit
  Tag = 91676212
  Left = 40
  Top = 10
  Width = 121
  Height = 21
  ParentShowHint = False
  ShowHint = True
  TabOrder = 0
  Alignment = taRightJustify
  UseDynamicWhere = False
  TblName = 'Categories'
  FldName = 'CategoryID'
  PMType = ptSingle
  PMAccess = False
  PMAuto = False
  PMCust = False
  PMSkip = False
  Formatted = False
  PMLines = 5
end
object REnhancedPanel1: TREnhancedPanel
  Tag = 94558701
  Left = 355
  Top = 100
  Width = 21
  Height = 201
  Transparent = True
  BorderSides = []
  ParentShowHint = False
  ShowHint = True
  TabOrder = 1
  CompID = 'HideScroll'
end
object RButton1: TRButton
  Tag = 71468117
  Left = 440
  Top = 90
  Caption = 'Hide ScrollBars'
  ParentShowHint = False
  ShowHint = True
  TabOrder = 2
  EEPNum = -1
  CustomEEP.Strings = (
    'clear var fHideScroll'
    'SET VAR fHideScroll TEXT = NULL'
    ''
    'GETPROPERTY HideScroll VISIBLE '#39'fHideScroll'#39
    ''
    'IF fHideScroll = '#39'False'#39' then'
    'SET VAR fHideScroll = '#39'True'#39
    'else'
    'SET VAR fHideScroll = '#39'False'#39
    'ENDIF --fScrollBars = '#39'False'#39
    ''
    'SET VAR vSB = ('#39'PROPERTY HideScroll Visible'#39' +'
    '& (char(39)) + .fHideScroll + (char(39)))'
    '&vSB'
    ''
    'RETURN')
end



________________________________

From: rbg7-l@rbase.com [mailto:[EMAIL PROTECTED] On Behalf Of Alastair
Burr
Posted At: Thursday, March 17, 2005 8:47 AM
Posted To: RB7-L
Conversation: [RBG7-L] - Scrolling Region - Scroll Bar PROPERTY
Subject: [RBG7-L] - Scrolling Region - Scroll Bar PROPERTY


Does anybody know if it is possible to show/hide the scroll bar for a
Scrolling Region with a PROPERTY command?

There is a tick-box on the properties tab but I can find any way to
control its display.

Alternatively, is there any way to make the scroll bar appear or
disappear automatically depending on where there are more rows in the
dataset than can be displayed in the number of rows available?

Regards,
Alastair.

----------------------------------
A D B Burr,
St. Albans, UK.
----------------------------------
[EMAIL PROTECTED]
----------------------------------