Question

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

我的teechart版本是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;

希望这会对你有所帮助。

提前致谢

此致

滚动条图例TDBchart

1 个答案: