Delphi生成Chart柱状图表控件附效果演示.rar

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;