TeeChart for .NET中文版讓您在使用和學習上沒有任何語言障礙，至少可以節省30%的開發時間。TeeChart for .NET中文版具有易上手，使用方便，穩定性好，性價比高，價格優惠等優勢，并且針對Web應用提供無限制服務器分發授權方式，非常有利于產品集成。

---

在圖表上自行繪制

如果想增加與圖表軸相關聯的文本框或其他形狀， TShapeSerie序列是最好的選擇，如果這個滿足不了用戶的要求，就可以在圖表上繪制各種形狀。TeeChart提供了通過坐標軸或屏幕像素訪問圖表區域的能力這里主要介紹如何將點坐標轉換到像素坐標以及如何精確定義圖表組件中的每個圖形元素。

為了建立數值與坐標間相互轉換的關系，圖表軸( ChartAxis)和序列組件提供了CalcPosValue、CalcSizeValue、CalcYPos、CalcXpos、XScreenToValue和YScreenToValue等函數，進行屏幕坐標(像素)與數值間的轉換，使用戶可以根據窗口的X、Y坐標得出該點位置所代表的數值，或者由具體的數值得出該值在窗口的位置坐標X、Y。

軸的值轉換到屏幕坐標

• CalcPosValue：計算給定的值在屏幕的位置，可以使用任一坐標軸

Var?MyPos:?Integer; MyPos:=?Chart1.?LeftAxis.?CalcPosValue(100.0?);

MyPos保存著值1000在 Chart1， LeftAxis軸上的像素坐標，使用這個坐標就可以自行繪制當前這個點。如果想將像素坐標轉換到軸的值，可以使用下面的函數。

● CalcPosPoint

var?MyValue:Double MyValue?:=Chart1.?LeftAxis.?CalcPosPoint(100?);

MyValue中保存著100屏幕像素坐標在坐標軸上的值。屏幕坐標從0開始，(0,0)是圖表圓點。在直接繪制到元文件、用戶定義畫布或打印時，圖表原點是不同的。

• CalcSizeValue：該函數計算屏幕空間在巫標軸上的范圍。

Var?Space?:?Integer; Space?:?=Chart1.?LeftAxis.CalcSizeValue(1000);

還可將時間軸轉換一個日期范圍周期：

Var?Space:?integer; Space?:=Chart1.?BottomAxis.?CalcSizeValue( EncodeDate(2000,?12,?31)-Encode?Date(2000,1,1)); EncodeDate(2000,12,31)-EncodeDate(2000,1,1);

• CalcYPos和CalcXpos：當使用CalcYPos和CalcXpos繪制時坐標原點(0,0)是圖表矩形( ChartRect)的左上角。ChartRect是由圖表四個軸構成的封閉區域。下面的例子是利用畫布特性畫一條線段：

procedure?TForm1.?Button1Click(Sender:?TObject)； varMyHalfwayPoint,?YPosition:?Integer; BeginWith?Series1.?YValues?doMyHalfwayPoint:?-round(((MaxValue-MinValue)*0.?5)+?MinValue);//計算上述值的屏幕像素坐標YPosition:=DBChart1.LeftAXis,?CalcYPosValue(MyHalfwayPoint);With?DBChart1.Canvas?dobeginPen.Width:?=3;Pen.Style:?=psSolid;Pen.Color:?=clBlack;With?DBChart1?dobeginMoveTo(ChartRect.?Left,?YPosition);LineTo(ChartRect.?Left+Width3D,?YPosition-Height3D);LineTo(?ChartRect.Right+Width3D,?YPosition-Height?3D);end;end; end;

序列的值轉換到屏幕坐標

序列也有類似轉換坐標到點值的方法，其不同之處是使用序列提供的方法，而不需要知道軸的精確位置。

• CalcPosValue：這段代碼計算Series的值為1000時，序列在屏幕的位置。

Var?Mypos:?Integer; Mypos?:?=Series1.?CalcPosValue(1000);

或者:

MyYPos:=Series1.CalcPosValue(?Series1.YValue[0])；//第一個點

• CalcXPos和 CalcY Pos：計算一個指定的點或值的X、Y坐標。

MyXPos?:?=Series1.CalcXPos(EncodeDate(2000,?12,?31));

或者:

MyXPos?:?=Series1.CalcXPos(Series1.XValues.Last?);?//最后一個點

• XScreenToValue和YScreenTovalue：從屏幕像素轉換到點的值。

Var?MyValue:Double; MyValue?:?=Series1.YScreenToValue(Y);

利用這個方法可以使用 Series.Clicked功能，給出一對XY坐標，就可以得到點的值。

圖表畫布( Chart Canvas)

Chart.Canvas是一個標準的Delphi畫布，使用畫布特性可以控制圖表的外觀。

• 寫畫布( Writing to the Canvas)

下面的代碼將畫布的背景劃分為5個區域，并根據顏色數組著色：

procedure?TDrawForm.LineSeries1BeforeDrawValues(Sender:?Tobject); ConstMyColors:array?1..5]?of?TColor?(clNavy,?clGreen,?clYellow,?clRed,?S00000080); var?t,?partial:?Integer;tmpRect:TRect;With?Chart1?doBegintmpRect:?=ChartRect;tmpRect.?Right:?=tmpRect?.Left;partial:?=ChartWidth?div?5;??//劃分為5部分Canvas.Brush.Style:=bsDiagCross;//改變刷子風格Canvas.Pen.Style:?=psClear;for?t:=1?to?5?do??????//每部分填充不同的顏色BegintmpRect.Right:=tmpRect.Right+partial+1；//調節矩形的維數Can???????????????Right+Width3D,?Bottom-Height3D);tmpRect.?Left:=tmpRect.Right;????//調節矩形end;end; end;

內部位圖( Internal Bitmap）

TChart組件有一個內部位圖對象，作為一個隱含的緩沖區，當繪制完成后，緩沖區被復制到屏幕視頻區域后顯示。TChart的Canvas屬性返回一個內部位圖畫布對象。在Chart繪制到內部位圖以后，它被拷貝到屏幕畫布，Chart的Canvas屬性引用這個最初的“真”的圖表畫布。

圖表區域( Chart Regions）

通過調用 Chart1.Invalidate或Series1.Repaint可以強行重新繪制。圍繞圖表的最大矩形區域是 ChartBounds屬性，ChartWidth、ChartHeight、ChartXCenter和ChartYCenter是基于ChartBounds屬性的合適的坐標。坐標軸被繪制在這個空間里， ChartRect屬性返回由軸限制的矩形區域內(2D和3D相同)。

圖表的圖例有一個RectLegend全局屬性，定義了圖例的矩形范圍。圖表的標題和頁角有一個TitleRect全局屬性定義了標題和頁角所在的矩形區域。圖表的Width3D和Hight3D(像素)是3D深度的維數， SeriesWidth3D和SeriesHeight3D是圖表中每個序列的維數。

繪制( Drawing）

下面是繪制的一個例子，這個例子在Chart1的中間繪制一條水平線：

procedure?TForm1.?Chart1AfterDraw(Sender:?Tobject); begin With?Chart1?do begin Canvas.Pen.Color:=clYellow; Canvas.MoveTo(ChartBounds.Left,?ChartYCenter?); Canvas.LineTo(ChartBounds.Right,?ChartYCenter); end; end;

在坐標軸空間內繪制：

procedure?TForm1,?Chart1AfterDraw(Sender:TObject); begin Canvas.Pen.Color:=clYellow;Canvas.MoveTo(ChartRect.Left,?ChartYCenter?);Canvas.LineTo(ChartRect.Right,?ChartYCenter); end; end;

在序列Series1的每個點繪制一條線段：

procedure?TForml.Series1AfterDrawValues(Sender:?Tobject); var??t,?x,?y?:?Integer; beginfor?t:=0?to?Series1.?Count?-1?dobeginx:=Series1.?CalcXPos(t);y:=Series1.?CalcYPos(t);Chart1.Canvas.?MoveTo(x-8,y-8);Chart1.Canvas.?LineTo(x+8,?y+8);end; end;

繪制文本( Drawing Text）

如果想在屏幕顯示、打印的字體尺寸和元文件的字體尺寸相同的話，可以總是設置Chart1.Canvas.Font.Height為負值，而無需使用 Font.Size設定字體的尺寸。也就是說，為了避免屏幕顯示、打印和繪制到元文件的字體不一致，只需將 Chart1.Canvas.Font.Height設為負值，而不要去設置字體的尺寸。

下一節我們將會介紹第三章圖表與序列的操作維護：點擊事件。如果有對Teechart圖表感興趣的朋友，可以多多關注本教程，并且歡迎在評論區留言。

Teechart 2019資源合集

總結

以上是生活随笔為你收集整理的Teechart图表应用技术详解—第三章之在图表上自行绘制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。