zoukankan      html  css  js  c++  java
  • 利用TChart做分离饼形图

    unit Unit1;

    interface

    ……
    type
      TForm1 = class(TForm)
        Chart1: TChart;
        Series1: TPieSeries;
    ……
    var
      Form1: TForm1;
      ps: TPieSeries;

    implementation

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ps.Free;
      ps := TPieSeries.Create(self);
      ps.Clear;
      ps.Repaint;

      ps.CustomXRadius := 70;
      ps.CustomYRadius := 70;
      ps.Marks.Arrow.Visible := False;
      ps.Marks.ArrowLength := -50;
      ps.Marks.Transparent := True;
      ps.Marks.Frame.Visible := False;
      ps.Marks.Style := smsLabel;
      ps.ParentChart := Chart1;
      ps.AddPie(10, '第一部分', clRed);
      ps.AddPie(20, '第二部分', clGreen);
      ps.AddPie(5, '第三部分', clBlue);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      MoveDesPart(1);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      MoveDesPart(2);
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
      MoveDesPart(3);
    end;

    procedure TForm1.MoveDesPart(i: Integer);
    var
      j: Integer;
    begin
      for j := 1 to 3 do
        begin
        if j = i then
          begin
          ps.ExplodedSlice.Value[j-1] := 10;
          end
        else
          begin
          ps.ExplodedSlice.Value[j-1] := 0;
          end;
        end;
    end;

    end.

  • 相关阅读:
    vue $refs的用法
    .net 合并GridView中某列相同信息的行(方法1)
    vue 将编号转换成名字显示
    base64转图片的工具网站
    html +css + js 实现自定义模态框
    asp 弹窗效果
    vue 关于$emit的用法
    Git 合并分支
    asp 学习网站
    Tomcat部署方法
  • 原文地址:https://www.cnblogs.com/gaodu2003/p/1505720.html
Copyright © 2011-2022 走看看