home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Title_CustomPos.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.3 KB  |  57 lines
  1. unit Title_CustomPos;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ComCtrls, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Base_CustomPos;
  8.  
  9. type
  10.   TTitleCustomPos = class(TBaseCustomPos)
  11.     procedure CheckBox1Click(Sender: TObject);
  12.     procedure FormCreate(Sender: TObject);
  13.     procedure TrackBar1Change(Sender: TObject);
  14.     procedure TrackBar2Change(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TTitleCustomPos.CheckBox1Click(Sender: TObject);
  26. begin
  27.   Chart1.Title.CustomPosition:=CheckBox1.Checked;
  28.  
  29.   TrackBar1.Enabled:=CheckBox1.Checked;
  30.   TrackBar2.Enabled:=CheckBox1.Checked;
  31. end;
  32.  
  33. procedure TTitleCustomPos.FormCreate(Sender: TObject);
  34. begin
  35.   inherited;
  36.   Chart1.Title.CustomPosition:=True;
  37.   Chart1.Title.Left:=90;
  38.   Chart1.Title.Top:=80;
  39.  
  40.   TrackBar1.Position:=Chart1.Title.Left;
  41.   TrackBar2.Position:=Chart1.Title.Top;
  42. end;
  43.  
  44. procedure TTitleCustomPos.TrackBar1Change(Sender: TObject);
  45. begin
  46.   Chart1.Title.Left:=TrackBar1.Position
  47. end;
  48.  
  49. procedure TTitleCustomPos.TrackBar2Change(Sender: TObject);
  50. begin
  51.   Chart1.Title.Top:=TrackBar2.Position
  52. end;
  53.  
  54. initialization
  55.   RegisterClass(TTitleCustomPos);
  56. end.
  57.