home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Tools_Image.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.6 KB  |  74 lines
  1. {$I TeeDefs.inc}
  2. unit Tools_Image;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   Base, TeEngine, Series, jpeg, TeeTools, ExtCtrls, TeeProcs, Chart,
  9.   StdCtrls, TeeSurfa;
  10.  
  11. type
  12.   TImageToolForm = class(TBaseForm)
  13.     ChartTool1: TChartImageTool;
  14.     Series1: TContourSeries;
  15.     Label1: TLabel;
  16.     ScrollBar1: TScrollBar;
  17.     Series2: TPointSeries;
  18.     Button1: TButton;
  19.     CheckBox1: TCheckBox;
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure ScrollBar1Change(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure CheckBox1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.     OldZoom:Integer;
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. Uses EditChar;
  36.  
  37. procedure TImageToolForm.FormCreate(Sender: TObject);
  38. var t : Integer;
  39. begin
  40.   inherited;
  41.   OldZoom:=-1;
  42.  
  43.   Series1.FillSampleValues(20);
  44.  
  45.   With Series2 do
  46.   begin
  47.     Clear;
  48.     for t:=1 to 50 do AddXY(1+System.Random(20),1+System.Random(20) {$IFNDEF D4},'',clTeeColor{$ENDIF} );
  49.   end;
  50. end;
  51.  
  52. procedure TImageToolForm.ScrollBar1Change(Sender: TObject);
  53. begin
  54.   if ScrollBar1.Position>OldZoom then
  55.      Chart1.ZoomPercent(105)
  56.   else
  57.      Chart1.ZoomPercent(95);
  58.   OldZoom:=ScrollBar1.Position;
  59. end;
  60.  
  61. procedure TImageToolForm.Button1Click(Sender: TObject);
  62. begin
  63.   EditChartTool(Self,ChartTool1);
  64. end;
  65.  
  66. procedure TImageToolForm.CheckBox1Click(Sender: TObject);
  67. begin
  68.   ChartTool1.Active:=CheckBox1.Checked;
  69. end;
  70.  
  71. initialization
  72.   RegisterClass(TImageToolForm);
  73. end.
  74.