From 21b3e2e6dbb3b643d43d5078276639b77374b671 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 11 Jun 2010 23:46:16 +0200 Subject: Scrollbar: New convenience functions added. These functions set a new scrollbar position and fires the OnScroll event. --- src/gui/fpg_scrollbar.pas | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'src/gui') 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 -- cgit v1.2.3-70-g09d2