Полоса прокрутки Легенда TDBchart

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;

Надеемся, что это поможет вам.

Заранее спасибо

С уважением