home *** CD-ROM | disk | FTP | other *** search
- unit Legend_CustomPos;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Base_CustomPos, TeEngine, Series, ComCtrls, StdCtrls, ExtCtrls, TeeProcs,
- Chart;
-
- type
- TLegendCustomPos = class(TBaseCustomPos)
- Series1: TPieSeries;
- procedure CheckBox1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure TrackBar1Change(Sender: TObject);
- procedure TrackBar2Change(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- implementation
-
- {$R *.DFM}
-
- procedure TLegendCustomPos.CheckBox1Click(Sender: TObject);
- begin
- Chart1.Legend.CustomPosition:=CheckBox1.Checked;
-
- TrackBar1.Enabled:=CheckBox1.Checked;
- TrackBar2.Enabled:=CheckBox1.Checked;
- end;
-
- procedure TLegendCustomPos.FormCreate(Sender: TObject);
- begin
- inherited;
- Series1.FillSampleValues(7);
-
- Chart1.Legend.CustomPosition:=True;
- Chart1.Legend.Left:=36;
- Chart1.Legend.Top:=20;
-
- TrackBar1.Position:=Chart1.Legend.Left;
- TrackBar2.Position:=Chart1.Legend.Top;
- end;
-
- procedure TLegendCustomPos.TrackBar1Change(Sender: TObject);
- begin
- Chart1.Legend.Left:=TrackBar1.Position
- end;
-
- procedure TLegendCustomPos.TrackBar2Change(Sender: TObject);
- begin
- Chart1.Legend.Top:=TrackBar2.Position
- end;
-
- initialization
- RegisterClass(TLegendCustomPos);
- end.
-