滚动条图例 TDBchart

Question

>我有一个项目delphi 2007，我使用合成器TDBCHART，我为TDBCHart添加了图例，我的问题是我想在图例中添加垂直滚动条，但是没有找到解决方案。

我的图表版本是2011年。

Answer 1

一种简单的方法是使用 TeeLegendScroll Bar 工具。下面的代码向您展示了如何做到这一点：

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeeGDIPlus, TeEngine,ExtCtrls,  TeeProcs, Chart;
type
TForm1 = class(TForm)
DBChart1: TDBChart;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Series, TeeTools,TeeLegendScrollBar;
var series1:TLineSeries;
legendtool :TLegendScrollBar;
procedure TForm1.FormCreate(Sender: TObject);
begin
DBChart1.View3D := False;
series1 := TLineSeries.Create(self);
DBChart1.AddSeries(series1);
series1.FillSampleValues(200);
legendtool := TLegendScrollBar.Create(self);
DBChart1.Tools.Add(legendtool);
end;