home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Axis_Exponent.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.4 KB  |  56 lines
  1. {$I TeeDefs.inc}
  2. unit Axis_Exponent;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   Base, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
  9.  
  10. type
  11.   TAxisLabelExp = class(TBaseForm)
  12.     Series1: TLineSeries;
  13.     CheckBox1: TCheckBox;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     procedure FormCreate(Sender: TObject);
  17.     procedure CheckBox1Click(Sender: TObject);
  18.     procedure Edit1Change(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TAxisLabelExp.FormCreate(Sender: TObject);
  30. begin
  31.   inherited;
  32.   Series1.Clear;
  33.   Series1.Add(      1 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  34.   Series1.Add(     10 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  35.   Series1.Add(    100 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  36.   Series1.Add(   1000 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  37.   Series1.Add(  10000 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  38.   Series1.Add( 100000 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  39.   Series1.Add(1000000 {$IFNDEF D4},'',clTeeColor{$ENDIF});
  40. end;
  41.  
  42. procedure TAxisLabelExp.CheckBox1Click(Sender: TObject);
  43. begin
  44.   inherited;
  45.   Chart1.LeftAxis.LabelsExponent:=CheckBox1.Checked
  46. end;
  47.  
  48. procedure TAxisLabelExp.Edit1Change(Sender: TObject);
  49. begin
  50.   Chart1.LeftAxis.AxisValuesFormat:=Edit1.Text
  51. end;
  52.  
  53. initialization
  54.   RegisterClass(TAxisLabelExp);
  55. end.
  56.