diff options
| -rw-r--r-- | src/gui/fpg_scrollbar.pas | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/gui/fpg_scrollbar.pas b/src/gui/fpg_scrollbar.pas index 12541b9c..55db9f59 100644 --- a/src/gui/fpg_scrollbar.pas +++ b/src/gui/fpg_scrollbar.pas @@ -87,6 +87,10 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure RepaintSlider; + procedure LineUp; + procedure LineDown; + procedure PageUp; + procedure PageDown; property PageSize: integer read FPageSize write FPageSize default 5; property Position: integer read FPosition write SetSBPosition default 10; property ScrollStep: integer read FScrollStep write FScrollStep default 1; @@ -163,6 +167,26 @@ begin Invalidate;// DrawSlider(True); end; +procedure TfpgScrollBar.LineUp; +begin + Step(-1); +end; + +procedure TfpgScrollBar.LineDown; +begin + Step(1); +end; + +procedure TfpgScrollBar.PageUp; +begin + StepPage(-1); +end; + +procedure TfpgScrollBar.PageDown; +begin + StepPage(1); +end; + procedure TfpgScrollBar.SetMax(const AValue: integer); begin if AValue = FMax then |