home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Tool_MarksTip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.7 KB  |  75 lines
  1. unit Tool_MarksTip;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, TeEngine, TeeTools, StdCtrls, Series, ExtCtrls, TeeProcs, Chart,
  8.   ComCtrls;
  9.  
  10. type
  11.   TMarkTipsToolDemo = class(TBaseForm)
  12.     CheckBox1: TCheckBox;
  13.     Series1: TBarSeries;
  14.     Button1: TButton;
  15.     ChartTool1: TMarksTipTool;
  16.     ComboBox1: TComboBox;
  17.     Label1: TLabel;
  18.     Edit1: TEdit;
  19.     UpDown1: TUpDown;
  20.     procedure CheckBox1Click(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure ComboBox1Change(Sender: TObject);
  24.     procedure Edit1Change(Sender: TObject);
  25.     procedure FormShow(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35. Uses EditChar;
  36.  
  37. procedure TMarkTipsToolDemo.CheckBox1Click(Sender: TObject);
  38. begin
  39.   ChartTool1.Active:=CheckBox1.Checked
  40. end;
  41.  
  42. procedure TMarkTipsToolDemo.FormCreate(Sender: TObject);
  43. begin
  44.   inherited;
  45.   Series1.FillSampleValues(8);
  46.   Application.HintPause:=10;
  47. end;
  48.  
  49. procedure TMarkTipsToolDemo.Button1Click(Sender: TObject);
  50. begin
  51.   inherited;
  52.   EditChartTool(Self,ChartTool1);
  53. end;
  54.  
  55. procedure TMarkTipsToolDemo.ComboBox1Change(Sender: TObject);
  56. begin
  57.   if ComboBox1.ItemIndex=0 then ChartTool1.MouseAction:=mtmMove
  58.                            else ChartTool1.MouseAction:=mtmClick;
  59. end;
  60.  
  61. procedure TMarkTipsToolDemo.Edit1Change(Sender: TObject);
  62. begin
  63.   Application.HintPause:=UpDown1.Position;
  64. end;
  65.  
  66. procedure TMarkTipsToolDemo.FormShow(Sender: TObject);
  67. begin
  68.   inherited;
  69.   ComboBox1.ItemIndex:=0;
  70. end;
  71.  
  72. initialization
  73.   RegisterClass(TMarkTipsToolDemo);
  74. end.
  75.