home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UZORD.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.4 KB  |  73 lines
  1. unit UZOrd;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Series, TeEngine, TeeProcs, Chart, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TZOrderForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Memo1: TMemo;
  13.     Button1: TButton;
  14.     CheckBox1: TCheckBox;
  15.     Chart1: TChart;
  16.     Series1: TLineSeries;
  17.     Series2: TBarSeries;
  18.     Series3: TPointSeries;
  19.     CheckBox2: TCheckBox;
  20.     procedure CheckBox1Click(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure CheckBox2Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   ZOrderForm: TZOrderForm;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TZOrderForm.CheckBox1Click(Sender: TObject);
  38. begin
  39.   Chart1.ApplyZOrder:=not CheckBox1.Checked;
  40.   Chart1.Repaint;
  41. end;
  42.  
  43. procedure TZOrderForm.FormCreate(Sender: TObject);
  44. begin
  45.   Series1.FillSampleValues(8);
  46.   Series2.FillSampleValues(8);
  47.   Series3.FillSampleValues(8);
  48. end;
  49.  
  50. procedure TZOrderForm.Button1Click(Sender: TObject);
  51. begin
  52.   Close;
  53. end;
  54.  
  55. procedure TZOrderForm.CheckBox2Click(Sender: TObject);
  56. begin
  57.   if CheckBox2.Checked then
  58.   begin
  59.     Series1.ZOrder:=1;
  60.     Series2.ZOrder:=1;
  61.     Series3.ZOrder:=0;
  62.   end
  63.   else
  64.   begin
  65.     Series1.ZOrder:=0;
  66.     Series2.ZOrder:=1;
  67.     Series3.ZOrder:=2;
  68.   end;
  69.   Chart1.Repaint;
  70. end;
  71.  
  72. end.
  73.