Procedure TForm1.Button1Click(Sender: TObject); //кнопка запуска

Var i:Integer; Begin Gauge3.MinValue:=0; Gauge3.MaxValue:=60;

Gauge3.Kind:=gkPie; Gauge3.ShowText:=False; I:=GetTickCount;

While GetTickCount<=I+60000 //цикл на одну минуту (п.1.7.3)

Do Gauge3.Progress:=(GetTickCount‑I) Div 1000 End;

 

2.3.7.7. Диаграмма (Chart)

Компонент (панель Additional) позволяет строить дву‑ и трехмерные диаграммы. Создать диаграмму можно двумя способами: мастером диаграмм и программными средствами Паскаля (п. 2.2.8.4).

Мастер диаграмм вызывается командой File/New/ Busi­ness/Tee­ChartWizard. После выбора источника (база данных или нет), типа диаграммы (рис.2.3.7.7), вывода леген­ды и меток появляется но­вая форма с объектом Chart1. Настройка этого объ­екта осуществляется ре­дак­тором, который вызы­вается двойным щелчком по объекту Chart.

Рис. 2.3.7.7.Окно выбора типа диаграммы

При программном варианте можно сразу разместить объект Chart и настроить его редактором. Редактор имеет две страницы (рис.2.3.7.8).

Рис. 2.3.7.8. Страницы редактора диаграмм

Страница Chart (диаграмма) содержит следующие панели:

Series (ряд данных) ‑ объединяет ряд диаграмм в одну кнопкой Add, при этом над значениями можно выполнять различные арифметические и другие операции.

General (общие) ‑ элементы управления: экспорт (Export), сдвиг границы изображения (Margins), масштабирование (Zoom), прокрутка (Allow Scroll).

Axis (оси) ‑ координаты осей, масштаб, заголовки, шаги сетки и др.

Titles (заголовки) ‑ оформление заголовка, положение, шрифты, цвет.

Legend (легенда) ‑ внешний вид и содержание легенды.

Panel (панель) ‑ форма и вид основы, на которой находится диаграмма.

Paging (страницы) ‑ разделение диаграммы на страницы, подбирая значе­ния числа на странице (Points per Page).

Walls (границы) ‑ цвет и размеры границ диаграммы.

3D (объем) ‑ вращение и масштабирование объемной диаграммы.

Страница Series (ряды данных) ‑ задаются параметры каждого ряда (графика), добавленного при помощи страницы Chart. Выбор наст­раиваемо­го ряда производится из верхнего открывающегося списка. Страница имеет следующие панели:

Format (формат) ‑ внешний вид: линии, цвета и др.

Point (точки) ‑ размеры, стили, рамки элементов диаграммы.

General (общие) ‑ элементы управления: показ легенды и вид курсора (General), форматы вывода чисел и процентов (Formats), число и расположение осей и текущего времени.

Marks (метки) ‑ внешний вид меток (Label ‑ наименование легенд).

Data Source (источник данных) ‑ указывает тип источника данных: Random Values (генерация случайных чисел), No Data (отказ от генерации значений), Function (результат применения выбранной функции к значениям ряда).

Свойство Series содержит описание числовых рядов (отсчет с нуля). Каждый элемент массива типа TPointSeries описывает один ряд.

Специфичные методы

Add(V:Double, L:String,C:TColor):Longint ‑ добавляет в ряд новое значение V с названием L и выводит цветом C.

Delete(N) ‑ удаляет значение под номером N из ряда.

Clear ‑ удаление всех значений из ряда.

Пример формирования диаграммы (изображенной в заставке данного пункта) из двух плоских линейных графиков, значения для которых берутся из строк многостроковых полей Memo1 и Memo2.