文件名称:Delphi生成Chart柱状图表控件附效果演示.rar
文件大小:589KB
文件格式:RAR
更新时间:2022-07-30 05:19:47
Delphi源码-报表打印
Delphi7.0源码生成一个柱状图表chart,使用了ntdll.dll,这个直方图表效果如图所示。使用了第三方控件实现的图表制作生成软件,功能比较强大。以下是图表测试源代码: Chart := TChart.Create(nil); try Chart.Parent := Application.MainForm; Chart.Visible := False; Chart.Title.Text.Text := '测试图表'; S := TBarSeries.Create(Chart); Chart.AddSeries(S); S.Title := '嘿嘿'; S.AddXY(1, 56, '一月', clGreen); S.AddXY(2, 67, '二月', clYellow); S.AddXY(3, 34, '三月', clBlue); S.AddXY(4, 78, '四月', clRed); Chart.View3D := False; Chart.BackColor := clWhite; Chart.Gradient.StartColor := clWhite; Chart.Gradient.EndColor := clWhite; Chart.Gradient.Visible := True; TmpFile := Application.ExeName '.bmp'; Chart.SaveToBitmapFile(TmpFile); Img1.Picture.LoadFromFile(TmpFile); finally Chart.Free; end;
【文件预览】:
srcfans.com
----chart()
--------__history()
--------Project1.res(61KB)
--------Project1.identcache(95B)
--------Unit1.dfm(6KB)
--------Project1.dproj.local(2KB)
--------Project1.dpr(234B)
--------Project1.skincfg(1018B)
--------Unit1.pas(5KB)
--------ntdll.dll(1.25MB)
--------Project1.dproj(25KB)