垂直放置字幕时出现的问题

时间:2019-03-01 13:13:44

标签: delphi graph report delphi-2007 fastreport

我在打印图形时遇到问题(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;

0 个答案:

没有答案