home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / USYNCZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.1 KB  |  90 lines
  1. unit Usyncz;
  2.  
  3. interface
  4.  
  5. uses
  6.   Wintypes,WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
  8.  
  9. type
  10.   TSynchroZoomForm = class(TForm)
  11.     Chart1: TChart;
  12.     Chart2: TChart;
  13.     Series1: TLineSeries;
  14.     Series2: TLineSeries;
  15.     Panel1: TPanel;
  16.     Button1: TButton;
  17.     Label1: TLabel;
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure Chart1Zoom(Sender: TObject);
  20.     procedure Chart1Scroll(Sender: TObject);
  21.     procedure Chart2Scroll(Sender: TObject);
  22.     procedure Chart2Zoom(Sender: TObject);
  23.     procedure Chart1UndoZoom(Sender: TObject);
  24.     procedure Chart2UndoZoom(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.     Procedure AssignScales(Source,Dest:TCustomChart);
  31.   end;
  32.  
  33. var
  34.   SynchroZoomForm: TSynchroZoomForm;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. Procedure TSynchroZoomForm.AssignScales(Source,Dest:TCustomChart);
  41. begin
  42.   With Source.LeftAxis do Dest.LeftAxis.SetMinMax(Minimum,Maximum);
  43.   With Source.TopAxis do Dest.TopAxis.SetMinMax(Minimum,Maximum);
  44.   With Source.RightAxis do Dest.RightAxis.SetMinMax(Minimum,Maximum);
  45.   With Source.BottomAxis do Dest.BottomAxis.SetMinMax(Minimum,Maximum);
  46. end;
  47.  
  48. procedure TSynchroZoomForm.FormCreate(Sender: TObject);
  49. begin
  50.   Series1.FillSampleValues(100);
  51.   Series2.AssignValues(Series1);
  52. end;
  53.  
  54. procedure TSynchroZoomForm.Chart1Zoom(Sender: TObject);
  55. begin
  56.   AssignScales(Chart1,Chart2);
  57. end;
  58.  
  59. procedure TSynchroZoomForm.Chart1Scroll(Sender: TObject);
  60. begin
  61.   AssignScales(Chart1,Chart2);
  62. end;
  63.  
  64. procedure TSynchroZoomForm.Chart1UndoZoom(Sender: TObject);
  65. begin
  66.   AssignScales(Chart1,Chart2);
  67. end;
  68.  
  69. procedure TSynchroZoomForm.Chart2Scroll(Sender: TObject);
  70. begin
  71.   AssignScales(Chart2,Chart1);
  72. end;
  73.  
  74. procedure TSynchroZoomForm.Chart2Zoom(Sender: TObject);
  75. begin
  76.   AssignScales(Chart2,Chart1);
  77. end;
  78.  
  79. procedure TSynchroZoomForm.Chart2UndoZoom(Sender: TObject);
  80. begin
  81.   AssignScales(Chart2,Chart1);
  82. end;
  83.  
  84. procedure TSynchroZoomForm.Button1Click(Sender: TObject);
  85. begin
  86.   Close;
  87. end;
  88.  
  89. end.
  90.