Построение диаграмм

End.

Begin

Begin

Begin

Begin

Begin

If SavePictureDialogl.Execute then

Begin

If OpenPictureDialogl.Execute then

Begin

Begin

Implementat ion

Var

Public

Private

Type

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Uses

StdCtrls, DBCtrls, ExtCtrls, Db, DBTables, Grids, DBGrids, ExtDlgs, Mask;

TForml = class(TForm)

DataSourcel: TDataSource;

Tablel: TTable;

DBNavigatorl: TDBNavigator;

Buttonl: TButton;

OpenPictureDialogl: TOpenPictureDialog;

SavePictureDialogl: TSavePictureDialog;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

DBMemol: TDBMemo;

DBImagel: TDBImage;

CheckBoxl: TCheckBox;

DBEditl: TDBEdit;

DBEdit2: TDBEdit;

procedure ButtonlClicktSender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure CheckBoxlClick(Sender: TObject);

{ Private declarations }

{ Public declarations }

end;

Forml: TForml;

{$R *.DFM}

procedure TForml.FormCreate(Sender: TObj ect);

OpenPictureDialogl.Filter:=

'Все файлы (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf';

SavePictureDialogl.Filter: ='*.bmpI *.bmp';

end;

procedure TForml.ButtonlClick(Sender: TObject);

DBImagel.Picture.LoadFromFile(OpenPictureDialogl.FileName);

end;

procedure TForml.Button2Click(Sender: TObject);

DBImagel.Picture.LoadFromFile(SavePictureDialogl.FileName);

end;

procedure TForml.Button3Click(Sender: TObject);

DBImagel.CopyToClipboard;

end;

procedure TForml.Button4Click(Sender: TObject);

DBImagel.CutToClipboard;

end;

procedure TForml.Button5Click(Sender: TObject);

DBImagel.PasteFromClipboard;

end;

procedure TForml.Button6Click(Sender: TObject);

Forml.Close;

end;

procedure TForml.CheckBoxlClick(Sender: TObject);

DBImagel.Stretch:=CheckBoxl.Checked;

end;

Отметим, что в отличие от компонента Image, у графического компонента DBImage нет свойства canvas, позволяющего рисовать на поверхности изобра­жения.

Для построения диаграмм на основании информации, содержащейся в наборе данных, предназначен компонент-диаграмма DBChart. Он позволяет выводить диаграммы различных типов, в том числе объемные. Этот компонент является достаточно сложным и имеет большое количество разнообразных свойств, многие из которых являются объектами и также имеют свои свойства. На прак­тике установка значений этих свойств выполняется при разработке приложе­ния с помощью Редактора диаграмм, чье окно Editing DBChart1 показано на рис. 8.11. Редактор дает возможность оперировать со свойствами-объектами, информация о которых отображается на его страницах и вызывается двойным щелчком на компоненте DBChart или через поле значения свойства-объекта в Инспекторе объектов (в этом случае активной становится страница, соответст­вующая выбранному свойству).

Важнейшим свойством компонента DBChart является свойство series [ index:Longint] типа TChartSeries, представляющее собой массив диаграмм, выводимых в области компонента. (Часто компонент DBChart содержит только одну диаграмму.)

Для каждой диаграммы можно установить:

· тип;

· название;

· оси;

· описание;

· источник данных

и другие параметры.

Рис. 8.11. Редактор диаграмм

Разработчик должен как минимум указать тип диаграммы и источник данных. Тип выбранной диаграммы (диаграмм) и ее название отображаются на странице Chart-Series Редактора диаграмм (рис. 8.11). Для добавления новой диаграммы нужно нажать кнопку Add, в результате чего появляется окно, показанное на рис. 8.12. После выбора типа диаграммы, объемного или плоского варианта ее построения и нажатия кнопки ОК, диаграмма добавляется к значению свойства Series и отображается на соответствующей странице Редактора диаграмм.

Для выбранной диаграммы можно выполнить следующие действия:

· изменить название по умолчанию (Series1, Series2 и т. д.) — кнопка Title;

· изменить тип диаграммы — кнопка Change;

· скопировать диаграмму — кнопка Clone;

· удалить диаграмму — кнопка Delete.

Источник данных выбирается на странице Series-DataSource из следующих ва­риантов:

· No Data — значения, вводимые программно;

· Random Values — случайные значения;

· Function — значения, определяемые выбранной функцией;

· DataSet — значения набора данных; компонент DBChart отличается от ком­понента Chart именно тем, что для него в качестве источника данных можно использовать набор данных, т. е. DBChart является более универсальным ком­понентом.

Рис. 8.12. Выбор типа диаграммы

Если выбран программный способ (No Data) ввода значений, то при выполне­нии приложения нужно вызывать соответствующие методы. Для управления зна­чениями, по которым строится диаграмма, часто используются методы Add, Delete или Clear.

Функция Add (Const AValue: Double; Const ALabel: String; AColor: TColor): Longint добавляет к диаграмме значение, указанное параметром AValue. Пара­метры ALabel и AColor содержат соответственно название значения и цвет, ис­пользуемый при выводе. В качестве результата функция возвращает номер зна­чения в массиве значений диаграммы. Кроме Add, существует несколько других методов, также позволяющих добавлять значения.

Процедура Delete (ValueIndex: Longint) удаляет значение с номером, указан­ным параметром ValueIndex. Для удаления всех значений удобно использовать процедуру Clear.

В качестве примера рассмотрим, как осуществляется вывод графика.

Тип диаграммы (график) задан при разработке приложения. Вид графика при выполнении приложения показан на рис. 8.13. Используемые при его построе­нии значения вводятся построчно в редакторе Memol.

Ниже приведены обработчики событий для кнопок формы приложения.

procedure TForml.ButtonlClick(Sender: TObject);

var n: integer;

Дата добавления: 2014-01-11