Создадим небол ьшую программу «Диаграммы».  Для этого добавим на форму  программы «Диаграммы».  четыре кнопки с панели Standart  и три компонента Chart с вкладки панели компонентов Additional. Компоненты Chart расположим один над  другим и установим им одинаковые  размеры. Добавим так же компонет SavePictureDialog для сохранения наших диаграмм, которые будем сохранять в формате BMP(см. рис.).

 

Графика Delphi– программа Диаграммы.

 

 


Для того чтобы насторить компонент сначала нужно щёлкнуть на форме программы «Диаграммы»  и выбрать тип диаграммы, но предварительно нужно кликнуть на кнопочке Add.

 

Графика Delphi– программа Диаграммы.

 

 

Графика Delphi– программа Диаграммы

 

 


Далее на диалоговом окне выше проходимся по вкладочкам и настраиваем нашу диаграмму, так как нам нужно. Вот так будет выглядеть наша программа диаграммы на Delphi (см. рис.).

 

Графика Delphi– программа Диаграммы

 

 


Ниже привожу исходный код программы «Диаграммы»:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series, ExtDlgs;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Chart1: TChart;
Series1: TFastLineSeries;
Chart2: TChart;
Series2: TBarSeries;
Button3: TButton;
Button4: TButton;
SavePictureDialog1: TSavePictureDialog;
Chart3: TChart;
Series3: TPieSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Button4.Visible := True;
Chart2.Visible :=  False;
Chart3.Visible :=  False;
Chart1.Visible :=  True;
Chart2.Canvas.Brush.Color := clLime;
with Series1 do
begin
Add(100, 'Иванов' ,clGreen);
Add(120, 'Петров' ,clBlue);
Add(50, 'Сидоров' ,clRed);
Add(200, 'Ибрагимов' ,clYellow);
Add(150, 'Кузнецов' ,clBlack);
Add(250, 'Николаев' ,clGray);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button4.Visible := True;
Chart2.Visible :=  True;
Chart1.Visible :=  False;
Chart3.Visible :=  False;
Chart2.Canvas.Brush.Color := clLime;
with Series2 do
begin
Add(50,'2001',clGreen);
Add(100,'2002', clBlue);
Add(150,'2003', clBlack);
Add(200,'2004', clRed);
Add(250,'2005', clYellow);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := 'Диаграмма1';
Button2.Caption := 'Диаграмма2';
Button3.Caption := 'Диаграмма3';
Button4.Caption:= 'Сохранить(BMP)';
Button4.Visible := False;
Chart1.Visible :=  False;
Chart2.Visible :=  False;
Chart3.Visible :=  False;
SavePictureDialog1.DefaultExt := 'bmp';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SavePictureDialog1.Execute ;
if  Chart1.Visible =  True then
Chart1.SaveToBitmapFile(SavePictureDialog1.FileName);
if  Chart2.Visible =  True then
Chart2.SaveToBitmapFile(SavePictureDialog1.FileName);
if  Chart3.Visible =  True then
Chart3.SaveToBitmapFile(SavePictureDialog1.FileName)
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button4.Visible := True;
Chart3.Visible :=  True;
Chart1.Visible :=  False;
Chart2.Visible :=  False;
Chart2.Canvas.Brush.Color := clLime;
with Series3 do
begin
Add(50,'2001',clGreen);
Add(100,'2002', clBlue);
Add(150,'2003', clBlack);
Add(200,'2004', clRed);
Add(250,'2005', clYellow);
end;
end;
end.

Скачать исходник «Графика Delphi – программа Диаграммы »:

 

 

Добавить комментарий


Защитный код
Обновить