Delphi 3 и создание приложений баз данных

         

Методы компонента TChartSeries


function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; ACoIor: TColor): Longint;

Добавляет новую точку в серию. Параметры AXValue и AYValue содержат соответственно значения по осям Х и Y. Параметр AXLabel содержит метку для добавляемой точки серии. Параметр ACoIor определяет цвет. Функция возвращает позицию новой точки в серии. Например:

DbChartl.Series[0].AddXY(TmpX,TmpY,TmpLabel,clAqua) ;

function AddY(Const AYValue: Double; Const AXLabel: String; AColor: TColor): Longint;

добавляет в серию новое значение по оси X. Применяется для тех серий, в которых график строится по Х и меткам значений по Х (например, Pie, Bar). Назначение параметров такое же, как у метода AddXY.

procedure Assign Values(Source: TChartSeries); -

копирует все точки из серии Source в текущую серию.

procedure CheckDataSource; -

обновляет точки в серии, независимо от того, какой компонент является источником данных - набор данных или другая серия. Обновление производится по текущим данным источника. Метод рекомендуется вызывать в случае изменений данных в источнике.

procedure Clear; -

удаляет все значения из серии; если вслед за этим не занести новых точек, будет показываться пустой график.

procedure ColorRange(AValueList: TChartValueList ;Const From Value, To Value: Double; AColor: TColor);

Изменяет цвет указанного диапазона точек серии. AValueList - либо XValues, либо YValues. From Value указывает начальное, а То Value конечное значение в списке AValueList. AColor - новый цвет. Например:

WITH DbChartl.Series[0] do begin

ColorRange(XValues,XValues.Value[2], XValues.Value[2],clAqua) ;

END;//with

function Count : Longint; -

возвращает число точек в серии. Например, поместить все значения по Х и Y точек серии в ListBoxl:

ListBoxl. Items . Clear;

WtTH DbChartl.Series [0] do begin for i := 0 TO Count - 1 do

ListBoxl.Items.Add(



FloatToStr(XValues.Value[i]) + ' ' + FloatToStr(YValues.Value[i])) ;

END;//with

procedure Delete(ValueIndex : Longint); -

удаляет из серии точку с номером ValueIndex. График, к которому принадлежит серия, автоматически перерисовывается. Например: DBChartl.Series[0].Delete(4) ;

procedure DoSeriesClick(ValueIndex:LongInt; Button:TMouseButton; Shift:

TShiftState; X, Y: Integer); virtual; -

инициирует наступление события OnClick.

function GetCursorValueIndex : Longint; -

возвращает индекс точки серии в TChart ValueList, ближе всего к которой расположен курсор мыши. Если такую точку определить не удается, возвращается - 1. Например, в следующем фрагменте Label7.Caption будет содержать индекс ближайшей точки к курсору мыши или '???', если такая точка не определена:

procedure TForm1.DBChartlDblClick(Sender: TObject);

var Tmp : Integer;

begin

Tmp := DBChartl.Series[0].GetCursorValueIndex;

IF Tmp >= 0 THEN Label7.Caption := IntToStr(Tmp)

ELSE Label7.Caption := '???';

end;

procedure GetCursorValues( Var x, у: Double

); - возвращает значения по X и Y точки графика (а не только серии), ближе всего к которой расположен курсор мыши. Например, Label lO.Caption и Labell2.Caption в следующем фрагменте содержат соответственно значения координат Х и Y графика, соответствующие точке, на которой находится курсор мыши:

var TmpX, TmpY : Double;

DBChartl.Series[0].GetCursorVaiues(TmpX,TmpY);

LabellO.Caption := Format('%10.2f,[TmpX]);

Labell2.Caption := Format('%10.2f,[TmpY]);

function GetHorizAxis: TChartAxis; -

возвращает указатель на назначенную серии горизонтальную ось. Используя данный указатель, можно вызывать методы оси, обращаться к ее свойствам.

function GetVertAxis:TChartAxis; -

возвращает указатель на вертикальную ось.

function MaxXValue: Double; virtual; -

возвращает максимальное значение по X.

function MinXValue: Double; virtual; -

возвращает минимальное значение по X.

function MaxYValue: Double; virtual; -

возвращает максимальное значение по Y.

function MinYValue: Double; virtual; -

возвращает минимальное значение по Y.

procedure RefreshSeries; -

обновляет значения серии из источника данных, указанного в свойстве DataSource.

procedure Repaint; -

приводит к полной перерисовке всего графика. Рекомендуется вызывать этот метод в случае изменения хотя бы одного из основополагающих свойств серии (например, при изменении значения в DataSource и др.).

function ValuesListCount:LongInt; -

возвращает число списков значений точки, используемых в серии. Обычно это 2 (XValues и YValues), но некоторые серии используют 3 (BubbleSeries - XValues, YValues, Radius; GanttSeries -Y, Start,End).

function VisibleCount: Longint; -

возвращает число точек серии, видимых на графике.

Содержание раздела