![](http://delphi.ktop.com.tw/loadfile.php?TOPICID=21876522&CC=489258)
小弟想將上面圖裡紅色框框內的每一個Label全部顯示出來~應該要怎麼設定?? 下面是小弟的程式碼(只列主要部份的地方)
=====================================================
Chart3.BottomAxis.LabelsAngle := 90;
Chart3.DestroyComponents;
Chart3.LeftAxis.Title.Angle := 0;
Chart3.Legend.Visible := False;
Chart3.Title.Caption := SuiComboBox9.Text;
Chart3.Title.Visible := False;
If Chart3.SeriesCount = 0 Then Begin
For I := 0 To Length(LineChart01)-1 do Begin
LineChart01[I] := TPointSeries.Create(Chart3);
LineChart01[I].ParentChart := Chart3;
LineChart01[I].Name := 'LineChart01' + IntToStr(I);
LineChart01[I].Pointer.Visible := True;
J := (I Mod 7) ;
Case J of
0 : LineChart01[I].Pointer.Style := psRectangle;
1 : LineChart01[I].Pointer.Style := psCircle;
2 : LineChart01[I].Pointer.Style := psTriangle;
3 : LineChart01[I].Pointer.Style := psDownTriangle;
4 : LineChart01[I].Pointer.Style := psDiamond;
5 : LineChart01[I].Pointer.Style := psLeftTriangle;
6 : LineChart01[I].Pointer.Style := psRightTriangle;
End;
J := Round(I Div 7) ;
Case J of
0 : LineChart01[I].Pointer.Color := clRed;
1 : LineChart01[I].Pointer.Color := clBlue;
2 : LineChart01[I].Pointer.Color := clGreen;
3 : LineChart01[I].Pointer.Color := clBlack;
4 : LineChart01[I].Pointer.Color := clPurple;
5 : LineChart01[I].Pointer.Color := clYellow;
6 : LineChart01[I].Pointer.Color := clAqua;
End;
LineChart01[I].Marks.Visible := False;
//LineChart01[I].OnDblClick := SeriesClick;
LineChart01[I].Cursor := crHandPoint;
LineChart01[I].Title := ASG2.Cells[0,I];
End;
End; {開始把圖丟進去}
For I := 0 To ASG3.RowCount-1 do begin
J := StrToInt(ASG3.Cells[7,I]);
If ASG3.Cells[4,I] <> '' Then Begin
LineChart01[J].AddXY(StrToInt(ASG3.Cells[6,I]),StrToFloat(ASG3.Cells[4,I]),ASG3.Cells[0,I]);
End Else Begin
LineChart01[J].AddXY(StrToInt(ASG3.Cells[6,I]),0,ASG3.Cells[0,I])
End;
End; ========================================== 發表人 - deemster04 於 2005/04/27 14:35:42