home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Chart_ScrollBar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.5 KB  |  61 lines

  1. unit Chart_ScrollBar;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, TeEngine, Series, StdCtrls, TeeScroB, ExtCtrls, TeeProcs, Chart;
  8.  
  9. type
  10.   TChartScrollBarForm = class(TBaseForm)
  11.     ChartScrollBar1: TChartScrollBar;
  12.     Series1: TFastLineSeries;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure Button1Click(Sender: TObject);
  17.     procedure Button2Click(Sender: TObject);
  18.     procedure ChartScrollBar1Change(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TChartScrollBarForm.FormCreate(Sender: TObject);
  30. begin
  31.   inherited;
  32.   Series1.FillSampleValues(1000);
  33.  
  34.   { show the first 100 points... }
  35.   Chart1.BottomAxis.SetMinMax(0,99);
  36.  
  37.   { adjust the ScrollBar }
  38.   ChartScrollBar1.RecalcPosition;
  39. end;
  40.  
  41. procedure TChartScrollBarForm.Button1Click(Sender: TObject);
  42. begin
  43.   ChartScrollBar1.Position:=ChartScrollBar1.Max;  { go to end }
  44. end;
  45.  
  46. procedure TChartScrollBarForm.Button2Click(Sender: TObject);
  47. begin
  48.   ChartScrollBar1.Position:=ChartScrollBar1.Min;  { go to begin }
  49. end;
  50.  
  51. procedure TChartScrollBarForm.ChartScrollBar1Change(Sender: TObject);
  52. begin
  53.   { enable / disable the "go to begin" and "go to end" buttons... }
  54.   Button1.Enabled:=ChartScrollBar1.Position < ChartScrollBar1.Max;
  55.   Button2.Enabled:=ChartScrollBar1.Position > ChartScrollBar1.Min;
  56. end;
  57.  
  58. initialization
  59.   RegisterClass(TChartScrollBarForm);
  60. end.
  61.