home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Tools_DrawLine.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  2.4 KB  |  101 lines
  1. unit Tools_DrawLine;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, TeEngine, TeeTools, Series, ExtCtrls, TeeProcs, Chart,
  8.   TeCanvas, TeePenDlg;
  9.  
  10. type
  11.   TDrawLineToolDemo = class(TBaseForm)
  12.     Series1: TFastLineSeries;
  13.     ChartTool1: TDrawLineTool;
  14.     CheckBox1: TCheckBox;
  15.     Label1: TLabel;
  16.     NumLines: TLabel;
  17.     ButtonPen1: TButtonPen;
  18.     Label2: TLabel;
  19.     ComboBox1: TComboBox;
  20.     CheckBox2: TCheckBox;
  21.     CheckBox3: TCheckBox;
  22.     ButtonDelete: TButton;
  23.     procedure CheckBox1Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure ChartTool1NewLine(Sender: TObject);
  26.     procedure ButtonPen1Click(Sender: TObject);
  27.     procedure ComboBox1Change(Sender: TObject);
  28.     procedure CheckBox2Click(Sender: TObject);
  29.     procedure CheckBox3Click(Sender: TObject);
  30.     procedure ChartTool1Select(Sender: TObject);
  31.     procedure ButtonDeleteClick(Sender: TObject);
  32.     procedure FormShow(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TDrawLineToolDemo.CheckBox1Click(Sender: TObject);
  44. begin
  45.   ChartTool1.Active:=CheckBox1.Checked
  46. end;
  47.  
  48. procedure TDrawLineToolDemo.FormCreate(Sender: TObject);
  49. begin
  50.   inherited;
  51.   Series1.FillSampleValues(100);
  52.   ButtonPen1.LinkPen(ChartTool1.Pen);
  53. end;
  54.  
  55. procedure TDrawLineToolDemo.ChartTool1NewLine(Sender: TObject);
  56. begin
  57.   NumLines.Caption:=IntToStr(ChartTool1.Lines.Count);
  58. end;
  59.  
  60. procedure TDrawLineToolDemo.ButtonPen1Click(Sender: TObject);
  61. begin
  62.   inherited;
  63.   Chart1.Repaint;
  64. end;
  65.  
  66. procedure TDrawLineToolDemo.ComboBox1Change(Sender: TObject);
  67. begin
  68.   ChartTool1.Button:=TMouseButton(ComboBox1.ItemIndex)
  69. end;
  70.  
  71. procedure TDrawLineToolDemo.CheckBox2Click(Sender: TObject);
  72. begin
  73.   ChartTool1.EnableDraw:=CheckBox2.Checked
  74. end;
  75.  
  76. procedure TDrawLineToolDemo.CheckBox3Click(Sender: TObject);
  77. begin
  78.   ChartTool1.EnableSelect:=CheckBox3.Checked
  79. end;
  80.  
  81. procedure TDrawLineToolDemo.ChartTool1Select(Sender: TObject);
  82. begin
  83.   ButtonDelete.Enabled:=True;
  84. end;
  85.  
  86. procedure TDrawLineToolDemo.ButtonDeleteClick(Sender: TObject);
  87. begin
  88.   ChartTool1.DeleteSelected;
  89.   ButtonDelete.Enabled:=False;
  90. end;
  91.  
  92. procedure TDrawLineToolDemo.FormShow(Sender: TObject);
  93. begin
  94.   inherited;
  95.   ComboBox1.ItemIndex:=0;
  96. end;
  97.  
  98. initialization
  99.   RegisterClass(TDrawLineToolDemo);
  100. end.
  101.