home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Tool_PageNumDemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.8 KB  |  78 lines
  1. unit Tool_PageNumDemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, TeeNavigator, StdCtrls, Series, TeEngine, ExtCtrls, TeeProcs, Chart,
  8.   TeePageNumTool;
  9.  
  10. type
  11.   TPageNumToolDemo = class(TBaseForm)
  12.     Series1: TPointSeries;
  13.     Series2: TLineSeries;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Label2: TLabel;
  17.     ComboBox1: TComboBox;
  18.     ChartPageNavigator1: TChartPageNavigator;
  19.     Label3: TLabel;
  20.     Button1: TButton;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Edit1Change(Sender: TObject);
  23.     procedure ComboBox1Change(Sender: TObject);
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure FormShow(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.     PageTool : TPageNumTool;
  31.   end;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. Uses EditChar, TeeBrushDlg;
  38.  
  39. procedure TPageNumToolDemo.FormCreate(Sender: TObject);
  40. begin
  41.   inherited;
  42.   Series2.FillSampleValues(50);
  43.   Series1.FillSampleValues(50);
  44.  
  45.   PageTool:=TPageNumTool.Create(Self);
  46.   PageTool.ParentChart:=Chart1;
  47.   PageTool.Shape.Font.Color:=clRed;
  48.   PageTool.Shape.ShadowSize:=1;
  49.   PageTool.Shape.ShadowColor:=clDkGray;
  50.  
  51.   Edit1.Text:=PageTool.Format;
  52. end;
  53.  
  54. procedure TPageNumToolDemo.Edit1Change(Sender: TObject);
  55. begin
  56.   PageTool.Format:=Edit1.Text;
  57. end;
  58.  
  59. procedure TPageNumToolDemo.ComboBox1Change(Sender: TObject);
  60. begin
  61.   PageTool.Position:=TPageNumPosition(ComboBox1.ItemIndex);
  62. end;
  63.  
  64. procedure TPageNumToolDemo.Button1Click(Sender: TObject);
  65. begin
  66.   EditChartTool(Self,PageTool);
  67. end;
  68.  
  69. procedure TPageNumToolDemo.FormShow(Sender: TObject);
  70. begin
  71.   inherited;
  72.   ComboBox1.ItemIndex:=0;
  73. end;
  74.  
  75. initialization
  76.   RegisterClass(TPageNumToolDemo);
  77. end.
  78.