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

點擊下載最新版TeeChart Pro VCL/FMX

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

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

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

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

    修改此屬性后，我們在圖表中看起來只有一個甜甜圈系列，如此處所示。

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

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

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

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

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

2. 還可以添加一個Button組件，這是用來啟動動畫的組件。
   

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

    通過代碼做的第一件事是創(chuàng)建一個方法，將會重置并初始化所有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時也是如此：

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動畫的代碼：

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īng)用程序并查看結(jié)果。

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

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

TeeChart Pro VCL/FMX連載教程>>

TeeChart 2019資源集合>>

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

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