捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
利用TChart做分离饼形图(无下载)
关键字：TChart,饼形图,分离指定部分
来　自：原创
平　台：Win2k/XP/NT 下载所需：0 火柴
深浅度：初级 完成时间：2009/6/18
发布者：gaodu2003 发布时间：2009/6/19
编辑器：DELPHI6 语　　种：简体中文
分　类：组件 下载浏览：1813/12126
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
unit Unit1;

interface

……
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.
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论0条
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表