Проблема при размещении подписей вертикально - PullRequest
Новая
       76

Проблема при размещении подписей вертикально

0 голосов
/ 01 марта 2019

У меня проблема с печатью графика (FastReport). Когда на графике мало столбцов, все идет как положено. Graph ok Но когда столбцов много, я сделал столбцы вертикальными, но впри этом заголовки поднимаются и занимают значительную область области графика.

Graph error Я спрятал исходную шкалу и вставил заметку с информацией, которая мне нужна для отображениямасштаб, поэтому, когда график меняет размер, масштаб остается.Я пытался увеличить его высоту, поскольку в нем есть несколько столбцов, но мне это не удалось. 

 with chSimulados do
  begin

    Chart.Series[0].Title := 'Aluno';
    Chart.Series[1].Title := 'Turma';
    Chart.Series[0].Color := $00BC1B0E; // azul
    Chart.Series[1].Color := $0098DAFE; // laranjinha
    Chart.Series[0].Marks.Visible := false;
    Chart.Series[1].Marks.Visible := false;
    AutoSize := true;

    SeriesData[0].DataType := dtFixedData;
    SeriesData[1].DataType := dtFixedData;

    for t := 0 to listaSimuladosDoAluno.count - 1 do
    begin
      simulados := listaSimuladosDoAluno[t];
      simulados := pegaDisciplina(simulados);
      simulados:=UpperFirst(simulados);
      simuAluno := simuAluno + simulados + ';';

      faixaAluno := pegaNota(listaSimuladosDoAluno[t]);
      faixa := calculaFaixa(faixaAluno);
      simuFaixa := simuFaixa + faixa + ';';

      faixaTurma := pegaNota(listaMediaTurmaSimulados[t]);
      valorFinalFaixaTurma := calculaFaixaPorValor(faixaTurma);
      valorFinalFaixaTurma := CalculaFaixa(valorFinalFaixaTurma);
      simuFaixaTurma := simuFaixaTurma + valorFinalFaixaTurma + ';';
     end;
       Chart.BottomAxis.LabelsFont.Size:=8;
      if listaSimuladosDoAluno.count > 10 then
      begin
         Chart.BottomAxis.LabelsAngle:=90;//vertical labels
      end;
    SeriesData[0].Source1 := simuAluno;
    SeriesData[0].Source2 := simuFaixa; 
    SeriesData[1].Source2 := simuFaixaTurma; 

  end;
end;
...