В Chart не отображаются слишком длинные Label на нижней оси

@bincubator · Регистрация: 28.02.2018

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

При добавлении новых значений через Series.Add(Число,Label,Цвет) происходит такая неприятность что система игнорирует слишком длинные по её мнению Label, видимо стремясь чтобы они не залезали друг на друга.
Каким образом это можно исправить?
Я залез в справку фирмы что делала Charts, кстати всем рекомендую потому что там весьма подробно все описано.
По свойствам Label есть несколько опций что касаются этой проблемы. Больше всего меня порадовала опция LabelsMultiLine, но вот в чем суть Если я её прописываю, то буквально ничего не происходит, вообще ничего, картинка не меняется.

Delphi

  With Chart1.bottomAxis do
 begin
  Chart1.bottomAxis.LabelsMultiLine:=True;
  Title.Caption := 'ДОЛЖНОСТИ';
 end;
 
 for I := 1 to  TableResults.RowCount-1 do
 begin
 series1.add(strToreal(TableResults.Cells[6,i])),[U]TableResults.Cells[1,i][/U],CPW);
 series2.add(strToreal(TableResults.Cells[4,i])),'',CMW);
 end;

Если я должен воспользоваться той процедурой, что описана в конце справки, то подскажите, пожалуйста, как это сделать.

At run-time(Как я понимаю у меня как раз Label добавляются run-time, потому я не заранее их прописываю, а беру из таблицы?) you can always split the label into lines programatically using the OnGetAxisLabel event:

Delphi

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
TeeSplitInLines(LabelText,' '); 
end;

Заранее спасибо за вашу помощь!

@bincubator · 24.04.2018, 13:50 **[ТС]**

Чем разбираться в тонкостях, решил проблему написав такую функцию

// вставка №13 вместо пробелов, если длина строчки слишком велика

Delphi

  function BreakLongLine(s:string):string;
  var k:integer;
  begin
    k:=length(s);
    if k<8 then result:=s
    else
    begin
    result:=StringReplace(S,' ',#13,[rfReplaceAll, rfIgnoreCase]);
    end;
 
  end;

но сообщение удалять не буду, вдруг кому-нибудь пригодиться.

Опции темы