Установка TeeChart 7.06

[Akhmad]

Компиляция компонента проходит нормально, но в Lazarus'e нет и намека на TeeChart. Как его прикрутить к Lazarus?

[Сергей Смирнов]

Насколько я знаю, интеграция в IDE ещё не готова. Так что всё ручками

[Akhmad]

Упс! А как? Просветите! Или ссылку с подробным описанием

[Akhmad]

И еще. А есть ли замена TeeChart'у? Поставил TAChart. Разбираюсь. А есть ли еще более навороченней компонент?

[Сергей Смирнов]

Ну так как-то:

Код: Выделить всё

uses
  ...,
  Series, Chart, TeEngine, TeeProcs;      

...

procedure TfrmRateHistory.FormCreate(Sender: TObject);
begin
  FHistoryCount := 0;
  FHistoryMax := 0;
  FCurrencyID := '';
  FFirstDate := Now();
  FLastDate := Now();
  FGraph := TChart.Create(Self);
  FGraph.Parent := Self;
  FGraph.Chart3DPercent := 30;
  FGraph.AllowZoom := False;
  FGraph.AllowPanning := pmHorizontal; // (pmNone,pmHorizontal,pmVertical,pmBoth);
  FGraph.ScrollMouseButton := mbLeft;
  FGraph.Align := alClient;
//  FGraph.Legend.Alignment := laRight; // (laLeft,laRight,laTop,laBottom)
  FGraph.Legend.Visible := False;
  FGraph.Title.Font.Size := 14;
  FGraph.LeftAxis.Title.Caption := 'Курс, руб.';
  FGraph.LeftAxis.Title.Font.Size := 10;
  FGraph.BottomAxis.LabelStyle := talText; // Стиль меток оси X (talAuto,talNone,talValue,talMark,talText)
  FGraph.BottomAxis.LabelsAngle := 90;
  FGraph.BottomAxis.LabelsFont.Size := 10;
end;

procedure TfrmRateHistory.DrawGraph;
var
  s: TLineSeries;
//  s: TBarSeries;
  i: Integer;
begin
  if FHistoryCount = 0 then
    Exit;
  FGraph.BottomAxis.SetMinMax(0, 19);
  FGraph.Title.Text.Clear;
  FGraph.Title.Text.Add(FCurrencyName + ' за период с ' + FormatDateTime('dd/mm/yy', FHistory[0].Date) + ' по ' + FormatDateTime('dd/mm/yy', FHistory[FHistoryCount - 1].Date));
  s := TLineSeries.Create(Self);
//  s := TBarSeries.Create(Self);
  s.ParentChart := FGraph;
//  s.Marks.Style := smsValue; // Это стиль меток над столбиками
  s.LineBrush := bsSolid; // (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal,
                  // bsBDiagonal, bsCross, bsDiagCross, bsImage, bsPattern
  for i := 1 to FHistoryCount - 1 do
    s.Add(FHistory[i].RateValue / FHistory[i].Nominal, FormatDateTime('dd/mm/yy', FHistory[i].Date));
end;

Более навороченного компонента нет.

[Akhmad]

Спасибо!