paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Docs: TControlScrollBar revised

Browse Source 
git-svn-id: trunk@33474 -
This commit is contained in:
dodi 2011-11-11 09:08:06 +00:00
parent d99960207b
commit a0d3ea4a51
1 changed files with 188 additions and 153 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

341
docs/xml/lcl/forms.xml
View File

@ -225,16 +225,16 @@
<seealso/> <seealso/>
</element> </element>
<element name="TWindowState.wsNormal"> <element name="TWindowState.wsNormal">
<short/> <short>Neither maximized nor minimized.</short>
</element> </element>
<element name="TWindowState.wsMinimized"> <element name="TWindowState.wsMinimized">
<short/> <short>Minimized to the taskbar.</short>
</element> </element>
<element name="TWindowState.wsMaximized"> <element name="TWindowState.wsMaximized">
<short/> <short>Maximized [to the full monitor?]</short>
</element> </element>
<element name="TWindowState.wsFullScreen"> <element name="TWindowState.wsFullScreen">
<short></short> <short>Maximized [to the work area? desktop?]</short>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TCloseAction"> <element name="TCloseAction">
@ -260,78 +260,108 @@
<element name="TCloseAction.caMinimize"> <element name="TCloseAction.caMinimize">
<short/> <short/>
</element> </element>
<!-- object Visibility: default --> <!-- object Visibility: default -->
<element name="TCustomHintAction"> <element name="TCustomHintAction">
<short> <short>[?] Action taken when a new value is assigned to <link id="TApplication.Hint"/>,
<var>TCustomHintAction</var> - Base class for <var>THintAction</var>, the action for displaying a Hint</short> and no OnHint handler is available.
</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TCustomHintAction.Hint" link="#LCL.ActnList.TCustomAction.Hint"> <element name="TCustomHintAction.Hint" link="#LCL.ActnList.TCustomAction.Hint">
<short/> <short>The new Hint text.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TScrollBarKind"> <element name="TScrollBarKind">
<short/> <short>The orientation of a ScrollBar.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration value Visibility: default --> <!-- enumeration value Visibility: default -->
<element name="TScrollBarKind.sbHorizontal"> <element name="TScrollBarKind.sbHorizontal">
<short/> <short>Horizontal scrollbar.</short>
</element> </element>
<!-- enumeration value Visibility: default --> <!-- enumeration value Visibility: default -->
<element name="TScrollBarKind.sbVertical"> <element name="TScrollBarKind.sbVertical">
<short/> <short>Vertical scrollbar.</short>
</element> </element>
<!-- range type Visibility: default --> <!-- range type Visibility: default -->
<element name="TScrollBarInc"> <element name="TScrollBarInc">
<short/> <short>The range of scrollbar increments.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TScrollBarStyle"> <element name="TScrollBarStyle">
<short/> <short>Scrollbar style.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration value Visibility: default -->
<element name="TScrollBarStyle.ssRegular"> <element name="TScrollBarStyle.ssRegular">
<short/> <short>Default.</short>
</element> </element>
<!-- enumeration value Visibility: default -->
<element name="TScrollBarStyle.ssFlat"> <element name="TScrollBarStyle.ssFlat">
<short/> <short>Scrollbar appears flat.</short>
</element> </element>
<!-- enumeration value Visibility: default -->
<element name="TScrollBarStyle.ssHotTrack"> <element name="TScrollBarStyle.ssHotTrack">
<short/> <short>Scrollbar sends HotTrack (ThumbTrack?) messages[?]</short>
</element> </element>
<!-- object Visibility: default --> <!-- object Visibility: default -->
<element name="EScrollBar"> <element name="EScrollBar">
<short>Exception in Scroll Bar</short> <short>Class for exception in <link id="TControlScrollBar"/>.
<descr>Exception class for Scroll Bar</descr> </short>
<errors/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- object Visibility: default --> <!-- object Visibility: default -->
<element name="TControlScrollBar"> <element name="TControlScrollBar">
<short> <short>Type of a scrollbar in a <link id="TScrollingWinControl"/>.
<var>TControlScrollBar</var> - base class for defining scroll bars on Forms and windows</short> </short>
<descr>Control Scroll Bar: Scroll Bar control for adding to windows. <descr>
Can be horizontal or vertical.<br/> <p>
Scrollable controls supply their own <b>integrated</b> scrollbars,
one for horizontal and one for vertical scrolling.
This class allows access to (one of) these integrated scrollbars.
</p><p>
A scrollable control has both a physical (visible) client size,
and a virtual (scrollable) client size.
</p><p>
The <var>Range</var> property reflects the virtual client size,
e.g. the total number of lines in an file.
</p><p>
The <var>Page</var> property then reflects the number of lines,
actually visible in the scrollable control.
It also determines the size of the slider, relative to the total Range.
</p><p>
The <var>Position</var> property then reflects
the number of the first visible line in the scrollable control,
equivalent to the top coordinate of the slider.
The Position can be changed by the user or by code.
</p><p>
Scrollbars usually appear only when Range is higher than Page,
i.e. when not the entire content can be shown at the same time.
See the ScrollBar property of the scrolling control for details.
</p><p>
The Range and Position can be limited to 16 bit (TScrollBarInc) precision internally,
what is sufficient for painting the scrollbar widget,
but may not be enough for the virtual content.
See the actual scrolling control for details.
</p>
</descr> </descr>
<errors/> <seealso>
<seealso/> <link id="TScrollingWinControl"/>
<link id="TScrollBox"/>
<link id="TCustomForm"/>
</seealso>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TControlScrollBar.FAutoRange"> <element name="TControlScrollBar.FAutoRange">
<short/> <short>The virtual scroll range (FRange - ClientSize), at least zero (never negative).
</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
@ -358,15 +388,15 @@
</element> </element>
<!-- variable Visibility: protected --> <!-- variable Visibility: protected -->
<element name="TControlScrollBar.FControl"> <element name="TControlScrollBar.FControl">
<short> <short>The associated <link id="TScrollingWinControl"/>.
<var>FControl</var> - local variable to hold the Window Control to which the scroll bar belongs</short> </short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.ControlHandle"> <element name="TControlScrollBar.ControlHandle">
<short> <short>The Handle of the associated <link id="TScrollingWinControl"/>.
<var>ControlHandle</var> - the operating system handle for this control</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
@ -376,11 +406,10 @@
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.GetAutoScroll"> <element name="TControlScrollBar.GetAutoScroll">
<short></short> <short>The AutoScroll state of the associated <link id="TScrollingWinControl"/>.
</short>
<descr> <descr>
</descr> </descr>
<errors>
</errors>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
@ -408,13 +437,7 @@
<short/> <short/>
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.GetSize"> <element name="TControlScrollBar.GetSize" link="TControlScrollBar.Size"/>
<short>
<var>GetSize</var> - returns the size of the scroll bar</short>
<descr/>
<errors/>
<seealso/>
</element>
<element name="TControlScrollBar.GetSize.Result"> <element name="TControlScrollBar.GetSize.Result">
<short/> <short/>
</element> </element>
@ -425,53 +448,45 @@
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.HandleAllocated"> <element name="TControlScrollBar.HandleAllocated">
<short> <short>True when the associated <link id="TScrollingWinControl"/> has a handle allocated.
<var>HandleAllocated</var> - returns True if a handle has been allocated</short> </short>
<descr/> <descr/>
<errors/>
<seealso/> <seealso/>
</element> </element>
<!-- function result Visibility: default -->
<element name="TControlScrollBar.HandleAllocated.Result"> <element name="TControlScrollBar.HandleAllocated.Result">
<short/> <short/>
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.IsRangeStored"> <element name="TControlScrollBar.IsRangeStored" link="TControlScrollBar.Range"/>
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<element name="TControlScrollBar.IsRangeStored.Result"> <element name="TControlScrollBar.IsRangeStored.Result">
<short></short> <short></short>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.AutoCalcRange"> <element name="TControlScrollBar.AutoCalcRange">
<short> <short>Determines the Range, based on the physical and virtual size of the associated control.
<var>AutoCalcRange</var> - method for automatically calculating the range of values for the scroll bar</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.ControlUpdateScrollBars"> <element name="TControlScrollBar.ControlUpdateScrollBars">
<short> <short>Notifies the associated Control of changes.
<var>ControlUpdateScrollBars</var> - method to be used by the owner control for updating its scrollbars</short> </short>
<descr/> <descr/>
<errors/> <seealso>
<seealso/> <link id="TScrollingWinControl.UpdateScrollBars"/>
</seealso>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.InternalSetRange"> <element name="TControlScrollBar.InternalSetRange">
<short></short> <short>Checks and propagates the new range to the Control.
</short>
<descr> <descr>
</descr> </descr>
<errors>
</errors>
<seealso> <seealso>
<link id="TControlScrollBar.ControlUpdateScrollBars"/>
<link id="TScrollingWinControl.UpdateScrollBars"/>
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.InternalSetRange.AValue"> <element name="TControlScrollBar.InternalSetRange.AValue">
@ -479,8 +494,8 @@
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.ScrollHandler"> <element name="TControlScrollBar.ScrollHandler">
<short> <short>Handler for the ScrollBar (movement) messages.
<var>ScrollHandler</var> - message handler to control scrolling</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
@ -490,16 +505,17 @@
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.SetAutoScroll"> <element name="TControlScrollBar.SetAutoScroll">
<short></short> <short>Disables AutoScroll - even if the name suggests something different!
</short>
<descr> <descr>
</descr> </descr>
<errors> <errors>[AutoScroll not yet implemented?]
</errors> </errors>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.SetAutoScroll.AValue"> <element name="TControlScrollBar.SetAutoScroll.AValue">
<short></short> <short>Ignored (assumed to be False)</short>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.SetIncrement" link="TControlScrollBar.Increment"/> <element name="TControlScrollBar.SetIncrement" link="TControlScrollBar.Increment"/>
@ -522,14 +538,7 @@
<short/> <short/>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.SetSize"> <element name="TControlScrollBar.SetSize" link="TControlScrollBar.Size"/>
<short>
<var>SetSize</var> - specifies the size of the scroll bar</short>
<descr/>
<errors/>
<seealso/>
</element>
<!-- argument Visibility: default -->
<element name="TControlScrollBar.SetSize.AValue"> <element name="TControlScrollBar.SetSize.AValue">
<short/> <short/>
</element> </element>
@ -539,15 +548,7 @@
<short/> <short/>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.SetTracking"> <element name="TControlScrollBar.SetTracking" link="TControlScrollBar.Tracking"/>
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<element name="TControlScrollBar.SetTracking.AValue"> <element name="TControlScrollBar.SetTracking.AValue">
<short></short> <short></short>
</element> </element>
@ -558,47 +559,48 @@
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.UpdateScrollBar"> <element name="TControlScrollBar.UpdateScrollBar">
<short> <short>[usage?] update the scroll bar (position etc)</short>
<var>UpdateScrollBar</var> - method to update the scroll bar (position etc)</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- procedure Visibility: protected --> <!-- procedure Visibility: protected -->
<element name="TControlScrollBar.InvalidateScrollInfo"> <element name="TControlScrollBar.InvalidateScrollInfo">
<short> <short>[usage?] render scroll information non-valid</short>
<var>InvalidateScrollInfo</var> - method to render scroll information non-valid</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.GetHorzScrollBar"> <element name="TControlScrollBar.GetHorzScrollBar">
<short> <short>Get the horizontal scrollbar of Control.
<var>GetHorzScrollBar</var> - find the position and properties of the horizontal scroll bar</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- function result Visibility: default --> <!-- function result Visibility: default -->
<element name="TControlScrollBar.GetHorzScrollBar.Result"> <element name="TControlScrollBar.GetHorzScrollBar.Result">
<short>Returns details of the horizontal scroll bar as a pointer to a structure</short> <short>
</short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.GetVertScrollBar"> <element name="TControlScrollBar.GetVertScrollBar">
<short> <short>Get the vertical scrollbar of Control.
<var>GetVertScrollBar</var> - find the position and properties of the vertical scroll bar</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<!-- function result Visibility: default --> <!-- function result Visibility: default -->
<element name="TControlScrollBar.GetVertScrollBar.Result"> <element name="TControlScrollBar.GetVertScrollBar.Result">
<short>Returns details of the vertical scroll bar as a pointer to a structure</short> <short>
</short>
</element> </element>
<!-- function Visibility: protected --> <!-- function Visibility: protected -->
<element name="TControlScrollBar.ScrollBarShouldBeVisible"> <element name="TControlScrollBar.ScrollBarShouldBeVisible">
<short></short> <short>Determines whether a scrollbar is required.
</short>
<descr> <descr>
</descr> </descr>
<errors> <errors>
@ -607,12 +609,12 @@
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.ScrollBarShouldBeVisible.Result"> <element name="TControlScrollBar.ScrollBarShouldBeVisible.Result">
<short></short> <short>True when Visible and Range higher than Page.</short>
</element> </element>
<!-- constructor Visibility: public --> <!-- constructor Visibility: public -->
<element name="TControlScrollBar.Create"/> <element name="TControlScrollBar.Create"/>
<element name="TControlScrollBar.Create.AControl"> <element name="TControlScrollBar.Create.AControl">
<short>The identity of the windowed control in which the scroll bar is found</short> <short>The windowed control in which the scroll bar is found</short>
</element> </element>
<element name="TControlScrollBar.Create.AKind"> <element name="TControlScrollBar.Create.AKind">
<short>Whether this is a horizontal or a vertical scrollbar</short> <short>Whether this is a horizontal or a vertical scrollbar</short>
@ -630,110 +632,126 @@
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.Assign.Source"> <element name="TControlScrollBar.Assign.Source">
<short>The object that called this instance of the class</short> <short>
</short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.IsScrollBarVisible"> <element name="TControlScrollBar.IsScrollBarVisible">
<short>Returns current widget state. <short>Determines the current widget state.
</short> </short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<element name="TControlScrollBar.IsScrollBarVisible.Result"> <element name="TControlScrollBar.IsScrollBarVisible.Result">
<short>True if scroll bar visible.</short> <short>True if scrollbar is visible.</short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.ScrollPos"> <element name="TControlScrollBar.ScrollPos">
<short>Position of the indicator cursor on the scroll bar</short> <short>The scroll Position, zero if not Visible.
</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<element name="TControlScrollBar.ScrollPos.Result"> <element name="TControlScrollBar.ScrollPos.Result">
<short>Returns position of the scroll cursor as an integer</short> <short>The scroll Position, zero if not Visible.</short>
</element>
<!-- property Visibility: public -->
<element name="TControlScrollBar.Kind">
<short>Finds which kind of scroll bar this is: horizontal or vertical</short>
<descr>Reads a flag to determine which kind of scroll bar</descr>
<seealso/>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.GetOtherScrollBar"> <element name="TControlScrollBar.GetOtherScrollBar">
<short>Finds out details of the other scroll bar</short> <short>Get the ScrollBar of the opposite direction (horz/vert).
</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<element name="TControlScrollBar.GetOtherScrollBar.Result"> <element name="TControlScrollBar.GetOtherScrollBar.Result">
<short>Returns a link to the details of the other scroll bar</short> <short></short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.ClientSize"> <element name="TControlScrollBar.ClientSize">
<short></short> <short>The currently remaining extent of the Parent Control, depending on ScrollBar visibility.
<descr> </short>
<descr>return for vertical scrollbar the clientwidth
</descr> </descr>
<errors>
</errors>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.ClientSize.Result"> <element name="TControlScrollBar.ClientSize.Result">
<short></short> <short>for vertical scrollbar the clientwidth</short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.ClientSizeWithBar"> <element name="TControlScrollBar.ClientSizeWithBar">
<short></short> <short>The remaining extent of the Parent Control, when the ScrollBar is visible.
<descr> </short>
<descr>return for vertical scrollbar the clientwidth with the bar, even if Visible=false
</descr> </descr>
<errors>
</errors>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.ClientSizeWithBar.Result"> <element name="TControlScrollBar.ClientSizeWithBar.Result">
<short></short> <short>for vertical scrollbar the clientwidth with the bar, even if Visible=false
</short>
</element> </element>
<!-- function Visibility: public --> <!-- function Visibility: public -->
<element name="TControlScrollBar.ClientSizeWithoutBar"> <element name="TControlScrollBar.ClientSizeWithoutBar">
<short></short> <short>The remaining extent of the Parent Control, when the ScrollBar is not visible.
<descr> </short>
<descr>return for vertical scrollbar the clientwidth without the bar, even if Visible=true
</descr> </descr>
<errors>
</errors>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
<element name="TControlScrollBar.ClientSizeWithoutBar.Result"> <element name="TControlScrollBar.ClientSizeWithoutBar.Result">
<short></short> <short>for vertical scrollbar the clientwidth without the bar, even if Visible=true
</short>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Increment"> <element name="TControlScrollBar.Increment">
<short>The size of the scrolling increment</short> <short>The small Position increment, applicable to the scrollbar arrows.
<descr>The amount by which the scroll indicator moves if the triangle at either end of the bar is selected.<br/> </short>
<descr>The amount by which the Position moves if the triangle at either end of the bar is selected.
Read or write a flag to determine the increment, an integer with a default value of 8 (pixels)</descr> <br/>Default is 8 (pixels).
</descr>
<seealso/>
</element>
<!-- property Visibility: public -->
<element name="TControlScrollBar.Kind">
<short>The orientation: horizontal or vertical.</short>
<descr>
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Page"> <element name="TControlScrollBar.Page">
<short>The size of the paging increment for scrolling</short> <short>The slider size,
<descr>The amount by which the scroll indicator moves if the cursor selects the scroll bar above, below or on either side of the scroll indicator. <br/> Position increment applicable to the scrollbar area beneath the slider.
Reads or writes a flag to determine paging increment; default value is 80 pixels</descr> </short>
<descr>The amount by which the scroll indicator moves if the cursor selects the scroll bar above, below or on either side of the scroll indicator.
<br/>Default is 80 (pixels).
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Position"> <element name="TControlScrollBar.Position">
<short>Position of the scroll bar</short> <short>Position of the slider, 0..Range-Page.
<descr>Reads or writes a flag with the position; default is zero</descr> </short>
<descr>The Position reflects the top coordinate of the slider,
which is Range-Page when the slider is at the bottom of the bar.
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Smooth"> <element name="TControlScrollBar.Smooth">
<short>Determine whether smooth scrolling is to be implemented</short> <short>Enables smooth scrolling, with automatic adjustment of Increment and Page.
<descr>Reads or writes a flag to determine smooth scrolling, and sets a flag is the scrolling status is stored</descr> </short>
<seealso/> <descr>Smooth scrolling uses an Increment of 10%
and a Page size of 90% of the visible client area[?]
</descr>
<seealso>
<link id="TControlScrollBar.Increment"/>
<link id="TControlScrollBar.Page"/>
</seealso>
</element> </element>
<element name="TControlScrollBar.SmoothIsStored" link="TControlScrollBar.Smooth"/> <element name="TControlScrollBar.SmoothIsStored" link="TControlScrollBar.Smooth"/>
<element name="TControlScrollBar.SmoothIsStored.Result"> <element name="TControlScrollBar.SmoothIsStored.Result">
@ -741,33 +759,50 @@ Reads or writes a flag to determine paging increment; default value is 80 pixels
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Range"> <element name="TControlScrollBar.Range">
<short>The range (extent) of the scroll bar</short> <short>The virtual size of the Parent Control.</short>
<descr>Reads or writes a flag to determine the range; default is zero</descr> <descr>
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
<element name="TControlScrollBar.Size"> <element name="TControlScrollBar.Size">
<short>Determine the size of the scroll bar</short> <short>The adjustable size of the scroll bar.</short>
<descr>Reads or writes a flag to determine the size; by default the size is not stored</descr> <descr>The length of the bar is the Width (or Height) of the Parent Control,
the Size is the other (free) coordinate.
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Tracking"> <element name="TControlScrollBar.Tracking">
<short></short> <short>Gives feedback while the slider is dragged.
<descr> </short>
<descr>When it takes an significant amount of time,
to repaint the parent control at a new position,
Tracking should be False to prevent flicker;
then the control is updated only when the slider is released.
</descr> </descr>
<seealso> <seealso>
</seealso> </seealso>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TControlScrollBar.Visible"> <element name="TControlScrollBar.Visible">
<short>Can the scroll bar be made visible?</short> <short>Definitely hides the scrollbar when False (default True).
<descr>Reads or writes flag to determine visibility, and sets a flag if the property is stored. </short>
The Handle object (widget) is made visible if (Visible=true) and (Range&gt;Page). <descr>
To get the current visible state of the widget use the method IsScrollBarVisible.</descr> <p>
<seealso/> The scrollbar widget is visible only if (Visible=True) <b>and</b> (Range&gt;Page).
</p><p>
Set Visible to False to disallow the user to scroll the content,
while the content still can be scrolled by code.
</p><p>
Use IsScrollBarVisible to get the current visible state of the widget.
</p>
</descr>
<seealso>
<link id="TControlScrollBar.IsScrollBarVisible"/>
</seealso>
</element> </element>
<!-- object Visibility: default --> <!-- object Visibility: default -->
<element name="TScrollingWinControl"> <element name="TScrollingWinControl">
<short>Class of a Window Control that has one or more scroll bars. <short>Class of a Window Control that has one or more scroll bars.
</short> </short>