熟悉CHART组件的帮帮忙

Question

本帖最后由 q441233365 于 2013-07-03 21:12:54 编辑

Answer 1

  OutChart.Canvas.Pen.Width := 2;
  OutChart.Canvas.Brush.Style := bsClear;
  OutChart.Canvas.Pen.Color := clBlack; //RGB(64, 128, 128);  for i := 0 to OutChart.CustomAxes.Count - 1 do
  begin
    if i = 0 then
      R.Left := OutChart.TopAxis.IStartPos
    else
      R.Left := (OutChart.CustomAxes[i].IStartPos + OutChart.CustomAxes[i - 1].IEndPos) div 2;    if i = OutChart.CustomAxes.Count - 1 then
      R.Right := OutChart.TopAxis.iEndPos
    else
      R.Right := (OutChart.CustomAxes[i].iEndPos + OutChart.CustomAxes[i + 1].IStartPos) div 2;    R.Top := (Outchart.SubTitle.TitleRect.Top + Outchart.Title.TitleRect.Bottom) + 5;
    R.Bottom := OutChart.LeftAxis.IEndPos;
    OutChart.Canvas.Rectangle(R, 0);
  end;可以以这个为参考，在AfterDraw事件里写