home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / ULISTBO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.7 KB  |  103 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Chart List Box Demo                         }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit ulistbo;
  8.  
  9. interface
  10.  
  11. uses
  12.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls, Series, TeEngine, TeeProcs, Chart, TeeLisB, TeeComma, ExtCtrls;
  14.  
  15. type
  16.   TListBoxForm = class(TForm)
  17.     Panel1: TPanel;
  18.     Memo1: TMemo;
  19.     Button1: TButton;
  20.     TeeCommander1: TTeeCommander;
  21.     ChartListBox1: TChartListBox;
  22.     Chart1: TChart;
  23.     Series1: TLineSeries;
  24.     Series2: TBarSeries;
  25.     Series3: TPointSeries;
  26.     Series4: TFastLineSeries;
  27.     Series6: TLineSeries;
  28.     Series7: TLineSeries;
  29.     CheckBox1: TCheckBox;
  30.     CheckBox2: TCheckBox;
  31.     CheckBox3: TCheckBox;
  32.     CheckBox4: TCheckBox;
  33.     Button2: TButton;
  34.     procedure Button2Click(Sender: TObject);
  35.     procedure CheckBox4Click(Sender: TObject);
  36.     procedure CheckBox2Click(Sender: TObject);
  37.     procedure CheckBox1Click(Sender: TObject);
  38.     procedure CheckBox3Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure Button1Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. Uses BrushDlg;
  52.  
  53. procedure TListBoxForm.Button2Click(Sender: TObject);
  54. begin
  55.   { nothing special. just a private method to show the
  56.     standard Delphi FontDialog }
  57.   InternalEditFont(Self,ChartListBox1.Font);
  58. end;
  59.  
  60. procedure TListBoxForm.CheckBox4Click(Sender: TObject);
  61. begin
  62.   ChartListBox1.ShowSeriesTitle:=CheckBox4.Checked;
  63. end;
  64.  
  65. procedure TListBoxForm.CheckBox2Click(Sender: TObject);
  66. begin
  67.   ChartListBox1.ShowSeriesColor:=CheckBox2.Checked;
  68. end;
  69.  
  70. procedure TListBoxForm.CheckBox1Click(Sender: TObject);
  71. begin
  72.   ChartListBox1.ShowActiveCheck:=CheckBox1.Checked;
  73. end;
  74.  
  75. procedure TListBoxForm.CheckBox3Click(Sender: TObject);
  76. begin
  77.   ChartListBox1.ShowSeriesIcon:=CheckBox3.Checked;
  78. end;
  79.  
  80. procedure TListBoxForm.FormCreate(Sender: TObject);
  81. begin
  82.   { fill sample values. Some series are missing intentionally,
  83.     to show at the list-box }
  84.   Series1.FillSampleValues(20);
  85.   Series3.FillSampleValues(10);
  86.   Series4.FillSampleValues(20);
  87.   Series6.FillSampleValues(20);
  88.   Series7.FillSampleValues(20);
  89.   Series2.FillSampleValues(6);
  90.  
  91.   { change the default Toolbar button to be the
  92.     rotate button. }
  93.  
  94.   TeeCommander1.ButtonRotate.Down:=True;
  95. end;
  96.  
  97. procedure TListBoxForm.Button1Click(Sender: TObject);
  98. begin
  99.   Close;
  100. end;
  101.  
  102. end.
  103.