Delphi GCharts下载-Delphi Delphi GCharts源代码下载

Delphi GCharts

三方组件

1.0.0

下载

Delphi-Gcharts

Delphi-Gcharts是一个Delphi组件库，可使用Google Charts API在Unigui框架中生成图表。

目前，它支持以下Google图表类：

注解
区域
酒吧
气泡
日历
烛台
柱子
组合
差异
油炸圈饼
甘特
测量
地理
直方图
间隔
线
组织
馅饼
Sankey图
分散
阶梯式区域
桌子
时间表
树地图
趋势线
瀑布
单词树

成分

图书馆有两个主要组成部分：

TCFSGCHARTPRODUCER （非视觉）：此组件负责根据要生成的类图表的数据和选项生成JavaScript代码。
TUNIGCHARTSFRAME ：此组件用于查看和与TCFSGCHARTPRODUCER产生的图表进行交互。

安装

Delphi-Gcharts已在Delphi 10.4 Sydney进行了编码和测试，其Unigui版本： 1.90.0 build 1557 ，但肯定可以编译为更早或更新版本。

安装“可视组件” cfs.charts.unigui.xxx.dpk，该dpk在包装夹中，还添加到库搜索路径源文件夹中。

基本使用示例

生成此饼图的基本示例：

饼图样本

 unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses,
  cfs.GCharts.uniGUI;

type
  TMainForm = class (TUniForm)
    uniGChartsFrame1: TuniGChartsFrame;
    procedure UniFormCreate (Sender: TObject);
  private
  public
  end ;

function MainForm : TMainForm;

implementation

{ $R *.dfm }

uses
  uniGUIVars, MainModule, cfs.GCharts; // <--- Add this unit

function MainForm : TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end ;

procedure TMainForm.UniFormCreate (Sender: TObject);
var
  Chart: IcfsGChartProducer; // Defined as TInterfacedObject. No need try..finally
begin
  Chart := TcfsGChartProducer.Create;
  Chart.ClassChartType := TcfsGChartProducer.CLASS_PIE_CHART;

  // Data
  Chart.Data.DefineColumns([
    TcfsGChartDataCol.Create(TcfsGChartDataType.gcdtString, ' Topping ' ),
    TcfsGChartDataCol.Create(TcfsGChartDataType.gcdtNumber, ' Slices ' )
  ]);
  Chart.Data.AddRow([ ' Mushrooms ' , 3 ]);
  Chart.Data.AddRow([ ' Onions ' , 1 ]);
  Chart.Data.AddRow([ ' Olives ' , 1 ]);
  Chart.Data.AddRow([ ' Zucchini ' , 1 ]);
  Chart.Data.AddRow([ ' Pepperoni ' , 2 ]);

  // Options
  Chart.Options.Title( ' How Much Pizza I Ate Last Night ' );

  // Generate
  uniGChartsFrame1.DocumentInit;
  uniGChartsFrame1.DocumentSetBody( ' <div id="Chart" style="width:100%;height:100%;"></div> ' );
  uniGChartsFrame1.DocumentGenerate( ' Chart ' , Chart);
  uniGChartsFrame1.DocumentPost;
end ;