home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Marks_Shadow.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.6 KB  |  66 lines
  1. unit Marks_Shadow;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ComCtrls, TeePenDlg;
  8.  
  9. type
  10.   TMarksShadow = class(TBaseForm)
  11.     Series1: TBarSeries;
  12.     CheckBox1: TCheckBox;
  13.     Label1: TLabel;
  14.     Shape1: TShape;
  15.     Label2: TLabel;
  16.     Edit1: TEdit;
  17.     UpDown1: TUpDown;
  18.     procedure CheckBox1Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  21.       Shift: TShiftState; X, Y: Integer);
  22.     procedure Edit1Change(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32. Uses TeCanvas;
  33.  
  34. procedure TMarksShadow.CheckBox1Click(Sender: TObject);
  35. begin
  36.   if CheckBox1.Checked then Series1.Marks.ShadowSize:=UpDown1.Position
  37.                        else Series1.Marks.ShadowSize:=0
  38. end;
  39.  
  40. procedure TMarksShadow.FormCreate(Sender: TObject);
  41. begin
  42.   inherited;
  43.   Series1.FillSampleValues(6);
  44.   Shape1.Brush.Color:=Series1.Marks.ShadowColor;
  45. end;
  46.  
  47. procedure TMarksShadow.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  48.   Shift: TShiftState; X, Y: Integer);
  49. begin
  50.   With Shape1.Brush do
  51.   begin
  52.     Color:=EditColor(Self,Color);
  53.     Series1.Marks.ShadowColor:=Color;
  54.   end;
  55. end;
  56.  
  57. procedure TMarksShadow.Edit1Change(Sender: TObject);
  58. begin
  59.   Series1.Marks.ShadowSize:=UpDown1.Position;
  60.   CheckBox1.Checked:=Series1.Marks.ShadowSize>0;
  61. end;
  62.  
  63. initialization
  64.   RegisterClass(TMarksShadow);
  65. end.
  66.