home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / EDITSER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.1 KB  |  92 lines
  1. unit Editser;
  2.  
  3. interface
  4.  
  5. { This example shows how to invoke a Series Editor dialog,
  6.   separately from the Chart editor.
  7. }
  8. uses
  9.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  10.   Forms, Dialogs, Series, TeEngine, StdCtrls, Buttons, ExtCtrls, TeeProcs,
  11.   Chart;
  12.  
  13. type
  14.   TFormShowSeriesEditor = class(TForm)
  15.     Chart1: TChart;
  16.     BitBtn1: TBitBtn;
  17.     BitBtn2: TBitBtn;
  18.     BitBtn3: TBitBtn;
  19.     BitBtn4: TBitBtn;
  20.     Series1: TLineSeries;
  21.     Series2: TBarSeries;
  22.     Series3: TPointSeries;
  23.     procedure BitBtn4Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure BitBtn1Click(Sender: TObject);
  26.     procedure BitBtn2Click(Sender: TObject);
  27.     procedure BitBtn3Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37. Uses EditChar;
  38.  
  39. { This method shows the Series editor }
  40. Procedure EditOneSeries(AOwner:TControl; ASeries:TChartSeries);
  41. var tmpClass:TFormClass;
  42.     tmp:TForm;
  43. begin
  44.   tmpClass:=TFormClass(GetClass(ASeries.GetEditorClass));
  45.   if Assigned(tmpClass) then
  46.   begin
  47.     tmp:=tmpClass.Create(AOwner);
  48.     With tmp do
  49.     try
  50.       Position:=poScreenCenter;
  51.       BorderStyle:=bsDialog;
  52.       BorderIcons:=[biSystemMenu];
  53.       Caption:='Editing '+ASeries.Name+' in '+AOwner.ClassName;
  54.       Tag:=Longint(ASeries);
  55.       Height:=220;
  56.       ShowModal;
  57.     finally
  58.       Free;
  59.     end;
  60.   end
  61.   else raise Exception.Create('Cannot find Series editor Form: '+ASeries.GetEditorClass);
  62. end;
  63.  
  64. procedure TFormShowSeriesEditor.BitBtn4Click(Sender: TObject);
  65. begin
  66.   Close;
  67. end;
  68.  
  69. procedure TFormShowSeriesEditor.FormCreate(Sender: TObject);
  70. begin
  71.   Series1.FillSampleValues(28);
  72.   Series2.FillSampleValues(8);
  73.   Series3.FillSampleValues(28);
  74. end;
  75.  
  76. procedure TFormShowSeriesEditor.BitBtn1Click(Sender: TObject);
  77. begin
  78.   EditOneSeries(Self,Series1);
  79. end;
  80.  
  81. procedure TFormShowSeriesEditor.BitBtn2Click(Sender: TObject);
  82. begin
  83.   EditOneSeries(Self,Series2);
  84. end;
  85.  
  86. procedure TFormShowSeriesEditor.BitBtn3Click(Sender: TObject);
  87. begin
  88.   EditOneSeries(Self,Series3);
  89. end;
  90.  
  91. end.
  92.