home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UCHAED.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  4.3 KB  |  149 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Editor Component Demo                       }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. {$I Teedefs.inc}
  8. unit UChaEd;
  9.  
  10. interface
  11.  
  12. uses
  13.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  14.   StdCtrls, Buttons, TeeEdit, Series, TeEngine, TeeProcs, Chart, ExtCtrls;
  15.  
  16. type
  17.   TChartEditorForm = class(TForm)
  18.     Panel1: TPanel;
  19.     Memo1: TMemo;
  20.     Button1: TButton;
  21.     Chart1: TChart;
  22.     Series4: TAreaSeries;
  23.     Series2: TLineSeries;
  24.     Series3: TPointSeries;
  25.     Series1: TBarSeries;
  26.     ChartEditor1: TChartEditor;
  27.     BShow: TBitBtn;
  28.     Panel2: TPanel;
  29.     Label2: TLabel;
  30.     ComboBoxTabs: TComboBox;
  31.     Label3: TLabel;
  32.     Edit1: TEdit;
  33.     GroupBox2: TGroupBox;
  34.     CBShowMain: TCheckBox;
  35.     CBShowGeneral: TCheckBox;
  36.     CBShowAxis: TCheckBox;
  37.     CBShowTitles: TCheckBox;
  38.     CBShowLegend: TCheckBox;
  39.     CBShowPanel: TCheckBox;
  40.     CBShowPaging: TCheckBox;
  41.     CBShowWalls: TCheckBox;
  42.     CBShow3D: TCheckBox;
  43.     CBShowSeriesGeneral: TCheckBox;
  44.     CBShowSeriesMarks: TCheckBox;
  45.     GroupBox1: TGroupBox;
  46.     AddCheckBox: TCheckBox;
  47.     DeleteCheckBox: TCheckBox;
  48.     ChangeCheckBox: TCheckBox;
  49.     CloneCheckBox: TCheckBox;
  50.     TitleCheckBox: TCheckBox;
  51.     DataSourceCheckBox: TCheckBox;
  52.     HelpCheckBox: TCheckBox;
  53.     procedure Button1Click(Sender: TObject);
  54.     procedure BShowClick(Sender: TObject);
  55.     procedure FormCreate(Sender: TObject);
  56.     procedure CBShowMainClick(Sender: TObject);
  57.     procedure ComboBoxTabsChange(Sender: TObject);
  58.     procedure AddCheckBoxClick(Sender: TObject);
  59.   private
  60.     { Private declarations }
  61.   public
  62.     { Public declarations }
  63.   end;
  64.  
  65. implementation
  66.  
  67. {$R *.DFM}
  68.  
  69. { This unit (IEditCha) is necessary to access the
  70.   editor options constants }
  71.  
  72. {$IFDEF WIN32}
  73. Uses IEditCha;
  74. {$ELSE}
  75. Uses IEdit16;
  76. {$ENDIF}
  77.  
  78. procedure TChartEditorForm.Button1Click(Sender: TObject);
  79. begin
  80.   Close;
  81. end;
  82.  
  83. procedure TChartEditorForm.BShowClick(Sender: TObject);
  84. begin
  85.   ChartEditor1.Title:=Edit1.Text;  { <-- change Editor Title }
  86.  
  87.   ChartEditor1.Execute;  { <---- show editor ! }
  88. end;
  89.  
  90. procedure TChartEditorForm.FormCreate(Sender: TObject);
  91. begin
  92.   { sample random data }
  93.   Series1.FillSampleValues(5);
  94.   Series2.FillSampleValues(5);
  95.   Series3.FillSampleValues(5);
  96.   Series4.FillSampleValues(5);
  97.  
  98.   { default tab is Main }
  99.   ComboBoxTabs.ItemIndex:=0;
  100. end;
  101.  
  102. procedure TChartEditorForm.CBShowMainClick(Sender: TObject);
  103. Var Option:TChartEditorTab;
  104. begin
  105.   Option:=cetMain;
  106.  
  107.   if Sender=CBShowMain then Option:=cetMain else
  108.   if Sender=CBShowGeneral then Option:=cetGeneral else
  109.   if Sender=CBShowAxis then Option:=cetAxis else
  110.   if Sender=CBShowTitles then Option:=cetTitles else
  111.   if Sender=CBShowLegend then Option:=cetLegend else
  112.   if Sender=CBShowPanel then Option:=cetPanel else
  113.   if Sender=CBShowPaging then Option:=cetPaging else
  114.   if Sender=CBShowWalls then Option:=cetWalls else
  115.   if Sender=CBShow3D then Option:=cet3D else
  116.   if Sender=CBShowSeriesGeneral then Option:=cetSeriesGeneral else
  117.   if Sender=CBShowSeriesMarks then Option:=cetSeriesMarks;
  118.  
  119.   With ChartEditor1 do
  120.   if (Sender as TCheckBox).Checked then HideTabs:=HideTabs-[Option]
  121.                                    else HideTabs:=HideTabs+[Option]
  122. end;
  123.  
  124. procedure TChartEditorForm.ComboBoxTabsChange(Sender: TObject);
  125. begin
  126.   ChartEditor1.DefaultTab:=TChartEditorTab(ComboBoxTabs.ItemIndex);
  127. end;
  128.  
  129. procedure TChartEditorForm.AddCheckBoxClick(Sender: TObject);
  130. Var Option:TChartEditorOption;
  131. begin
  132.   Option:=ceAdd;
  133.   if Sender=AddCheckBox then Option:=ceAdd else
  134.   if Sender=DeleteCheckBox then Option:=ceDelete else
  135.   if Sender=ChangeCheckBox then Option:=ceChange else
  136.   if Sender=CloneCheckBox then Option:=ceClone else
  137.   if Sender=DataSourceCheckBox then Option:=ceDataSource else
  138.   if Sender=TitleCheckBox then Option:=ceTitle;
  139.   {$IFNDEF D1}
  140.   if Sender=HelpCheckBox then Option:=ceHelp;
  141.   {$ENDIF}
  142.  
  143.   With ChartEditor1 do
  144.   if (Sender as TCheckBox).Checked then Options:=Options+[Option]
  145.                                    else Options:=Options-[Option]
  146. end;
  147.  
  148. end.
  149.