Отображение легенды для диаграммы

dimabubyakin · Регистрация: 16.10.2013

Студворк — интернет-сервис помощи студентам

Не отображает легенду, когда строю диаграмму, везде в параметрах Legend поставил true, но отображает только пустой квадратик рядом с диаграммой

Delphi

procedure TForm1.MenuItem8Click(Sender: TObject);
var
   i:integer;
begin
for i:=1 to 5 do
      Chart1BarSeries1.Add(i,inttostr(i),random($ffffff));
end;

@volvo · 01.03.2014, 17:18

Pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1BarSeries1.Marks.Style := smsLabel;
  Chart1BarSeries1.Marks.Visible := False;
  Chart1BarSeries1.Legend.Multiplicity := lmPoint;
  Chart1BarSeries1.ShowInLegend := true;
end;

Опции темы