home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UBACKWA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.0 KB  |  81 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Chart BackWall Demo                         }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit UBackWa;
  8.  
  9. interface
  10.  
  11. uses
  12.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls, TeEngine, Series, TeeComma, TeeProcs, Chart, ExtCtrls;
  14.  
  15. type
  16.   TBackWall3DForm = class(TForm)
  17.     Panel1: TPanel;
  18.     Memo1: TMemo;
  19.     Button1: TButton;
  20.     Chart1: TChart;
  21.     TeeCommander1: TTeeCommander;
  22.     Series1: TBarSeries;
  23.     ShowBackWall: TCheckBox;
  24.     CheckBox1: TCheckBox;
  25.     Label1: TLabel;
  26.     ScrollBar1: TScrollBar;
  27.     procedure Button1Click(Sender: TObject);
  28.     procedure ShowBackWallClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure CheckBox1Click(Sender: TObject);
  31.     procedure ScrollBar1Change(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TBackWall3DForm.Button1Click(Sender: TObject);
  43. begin
  44.   Close;
  45. end;
  46.  
  47. procedure TBackWall3DForm.ShowBackWallClick(Sender: TObject);
  48. begin
  49.   if ShowBackWall.Checked then
  50.   begin
  51.     Chart1.BackWall.Brush.Style:=bsDiagCross;
  52.     Chart1.BackWall.Pen.Visible:=True;
  53.   end
  54.   else
  55.   begin
  56.     Chart1.BackWall.Brush.Style:=bsClear;
  57.     Chart1.BackWall.Pen.Visible:=False;
  58.   end;
  59. end;
  60.  
  61. procedure TBackWall3DForm.FormCreate(Sender: TObject);
  62. begin
  63.   Series1.FillSampleValues(8);
  64.  
  65.   { Set BackWall properties... }
  66.   Chart1.BackWall.Brush.Style:=bsDiagCross;
  67.   Chart1.BackWall.Pen.Visible:=True;
  68. end;
  69.  
  70. procedure TBackWall3DForm.CheckBox1Click(Sender: TObject);
  71. begin
  72.   Chart1.BackWall.Dark3D:=CheckBox1.Checked;
  73. end;
  74.  
  75. procedure TBackWall3DForm.ScrollBar1Change(Sender: TObject);
  76. begin
  77.   Chart1.BackWall.Size:=ScrollBar1.Position;
  78. end;
  79.  
  80. end.
  81.