TeeChart Pro VCL/FMX是一款主流的圖表制作工具。提供了數(shù)百種用于可視化的2D、3D圖形樣式、56種數(shù)學(xué)、統(tǒng)計(jì)和金融函數(shù)，以及不限數(shù)量的坐標(biāo)軸和30種調(diào)色板組件。    

點(diǎn)擊下載最新版TeeChart Pro VCL/FMX

    目前TeeChart Pro for VCL / FMX沒(méi)有可用于本文章將會(huì)展示如何使用另一個(gè)系列類型和一些技巧去創(chuàng)建活動(dòng)量表。

    需要用到甜甜圈類型，我們要在圖表上添加盡可能多的Donut系列作為我們想要的活動(dòng)。直接從圖表編輯器本身入手。    

    當(dāng)在表格中添加了圖表并且添加的是不同的甜甜圈系列，似乎無(wú)法獲得所需的結(jié)果，但我們會(huì)看到...... 這時(shí)候，首先要做的是將圖表設(shè)置為2D，隱藏標(biāo)題和傳奇，我們也會(huì)隱藏每個(gè)系列的標(biāo)記。我們?cè)谶@里：    

    現(xiàn)在，需要修改一個(gè)將開(kāi)始進(jìn)行更改的重要屬性。它是名為Multiple Pies的屬性，在編輯器 - >系列 - > Series1 - > Donut - > Options - > Multiple Pies。默認(rèn)情況下，此項(xiàng)設(shè)置為自動(dòng)，我們會(huì)將所有系列更改為禁用。

    修改此屬性后，我們?cè)趫D表中看起來(lái)只有一個(gè)甜甜圈系列，如此處所示。

    接著修改另一個(gè)將更改圖表的重要屬性，它是名為Hole％的屬性，我們?cè)诟袷竭x項(xiàng)卡中的每個(gè)系列的選項(xiàng)中找到它。在這里，要為每個(gè)Donut系列的孔設(shè)置不同的百分比值，在不同系列之間分配大小。第一個(gè)系列必須包含較小的孔尺寸，我們可以設(shè)置值60％，在第二個(gè)系列中（在我們有三個(gè)系列的情況下）我們將設(shè)置值74％，第三個(gè)88％。 結(jié)果將是：

    現(xiàn)在，您所要做的就是為每個(gè)系列隱藏筆，或者設(shè)置不同的顏色和大小，我們將看到我們想要的圖表。

    作為系列或圖表的一個(gè)額外特征，我將在中心添加一個(gè)文本，它將顯示活動(dòng)的價(jià)值。為此，我可以使用TeeChart中已有的注釋工具，也可以通過(guò)TChart編輯器創(chuàng)建/添加。將注釋對(duì)齊設(shè)置為居中并格式化字體。

    這個(gè)系列類型（活動(dòng)量表）的一個(gè)重要特征是它的動(dòng)畫(huà)。TeeChart Pro為不同的系列類型合并了幾個(gè)動(dòng)畫(huà)，但在這種情況下，由于正在創(chuàng)建的是一種完全個(gè)性化的系列，所以將手動(dòng)創(chuàng)建動(dòng)畫(huà)。

1. 要在表單中添加三個(gè)TTimer對(duì)象，每個(gè)系列一個(gè)，將它們?cè)O(shè)置為Enabled為False并定義Interval為10。
   

2. 還可以添加一個(gè)Button組件，這是用來(lái)啟動(dòng)動(dòng)畫(huà)的組件。
   

3. 接著給它功能；我們將通過(guò)代碼執(zhí)行后續(xù)步驟。
   

    通過(guò)代碼做的第一件事是創(chuàng)建一個(gè)方法，將會(huì)重置并初始化所有Series值，名為ResetValues， 代碼：

procedure TActivityGaugeForm.ResetValues;
var i : integer;
begin
  ChartTool1.Text := '0 %';
  Chart1.Hover.Visible := false;

  for i := 0 to Chart1.SeriesCount-1 do
  begin
    Chart1[i].FillSampleValues(2);
    Chart1[i].YValue[0] := 100;
    Chart1[i].YValue[1] := 0;
    Chart1[i].ValueColor[0] := Series1.Pen.Color;
  end;
end;

    將從Application的CreateForm事件中調(diào)用此方法，并且每次單擊Button1時(shí)也是如此：

procedure TActivityGaugeForm.FormCreate(Sender: TObject);
begin
  ResetValues;
end;

procedure TActivityGaugeForm.Button1Click(Sender: TObject);
begin
  ResetValues;
  Timer1.Enabled := true;
  Button1.Enabled := false;
end;

    ;最后，唯一缺少的是在相應(yīng)的Timer事件中添加生成Series動(dòng)畫(huà)的代碼：

procedure TActivityGaugeForm.Timer1Timer(Sender: TObject);
begin
  Series1.YValue[0] := Series1.YValue[0]-1;
  Series1.YValue[1] := Series1.YValue[1]+1;

  ChartTool1.Text := round(Series1.YValue[1]).ToString() + ' %';

  if (Series1.YValue[1] = 90) then
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := true;
  end;
end;

procedure TActivityGaugeForm.Timer2Timer(Sender: TObject);
begin
  Series2.YValue[0] := Series2.YValue[0]-1;
  Series2.YValue[1] := Series2.YValue[1]+1;

  ChartTool1.Text := round(Series2.YValue[1]).ToString() + ' %';

  if (Series2.YValue[1] = 75) then
  begin
    Timer2.Enabled := false;
    Timer3.Enabled := true;
  end;
end;

procedure TActivityGaugeForm.Timer3Timer(Sender: TObject);
begin
  Series3.YValue[0] := Series3.YValue[0]-1;
  Series3.YValue[1] := Series3.YValue[1]+1;

  ChartTool1.Text := round(Series3.YValue[1]).ToString() + ' %';

  if (Series3.YValue[1] = 60) then
  begin
    Timer3.Enabled := false;
    Button1.Enabled := true;
  end;
end;

    完成以上所有操作之后，需要運(yùn)行應(yīng)用程序并查看結(jié)果。

    希望以上操作對(duì)您有幫助，如果你有任何的建議或者想法都可以聯(lián)系

相關(guān)資料推薦：

TeeChart Pro VCL/FMX連載教程>>

TeeChart 2019資源集合>>

TeeChart Pro VCL/FMX已加入在線訂購(gòu)，現(xiàn)在搶購(gòu)可立享特別優(yōu)惠！！！

 關(guān)注慧聚IT微信公眾號(hào)???，了解產(chǎn)品的最新動(dòng)態(tài)及最新資訊。