Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

type TF_Chart = class(TForm)

 SpeedPanel: TPanel;

 ExitBtn: TSpeedButton;

 NB: TNotebook;

 TB: TTabSet;

 Chart1: TChartFX;

 Chart2: TChartFX;

 procedure ExitItemClick(Sender: TObject);

 procedure FormCreate(Sender: TObject);

 procedure TBClick(Sender: TObject);

 procedure FormResize(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

 Procedure Build1(Ch : TChartFX);

 Procedure Build2(Ch : TChartFX);

end;

var F_Chart: TF_Chart;

implementation

{$R *.DFM}

procedure TF_Chart.ExitItemClick(Sender: TObject);

begin

 Close;

end;

procedure TF_Chart.FormCreate(Sender: TObject);

begin

 TB.Tabs := NB.Pages;

 NB.PageIndex := 0;

 Build1(Chart2);

 Build2(Chart2); {добавляем

значения для Chart2: length... и т.д.}

end;

procedure TF_Chart.TBClick(Sender: TObject);

begin

 NB.PageIndex := TB.TabIndex;

end;

Procedure TF_Chart.Build1(Ch : TChartFX);

begin

 {Эта процедура изменяет свойства, которые могут устанавливаться во время разработки или временя выполнения. В коментариях подробно указано чем занимается метод Design}

 with Ch do begin

Adm[CSA_GAP] := 25.0;

{Design: Используйте свойство AdmDlg для изменения координаты Y}

pType := BAR or CT_LEGEND;

{Design: Изменяем свойство ChartType с 1 - lineна 2 - bar.}

DecimalsNum[CD_YLEG] := 0;

{Design:

Изменяем свойство Decimals с 2 до 0}

Stacked := CHART_STACKED;

{Design: Изменяем свойство Stacked с 0 - None на 1 - Normal}

RightGap := 20;

{Design: Тоже}

OpenData[COD_COLORS] := 2;

Color[0] := clBlack;

Color[1] := clYellow;

CloseData[COD_COLORS] := 0;

{Фу!!}

{Design: Для изменения цветов 2 серий:1) Убедитесь, что ThisSerie установлен в 0. ИзменитеThisColor на clBlack.2) Установите ThisSerie в 1. Измените ThisColor наclYellow.}

Title[CHART_TOPTIT] := 'Статьи и заголовки';

Title[CHART_LEFTTIT] := 'CCM';

Title[CHART_BOTTOMTIT] := 'Карты';

{Design: щелкните на свойстве TitleDlg и установите верхний, левый и нижний заголовки}

 end;

end;

Procedure TF_Chart.Build2(Ch : TChartFX);

 {Данная процедура устанавливает свойства, которые не могут (насколько я определил это) быть установлены в режиме разработки}

const

 XAbbrevs : array[0..4] of string[4] =('Acc', 'Bar', 'Mas', 'Amex', 'Din');

 SeriesTitles : array[0..1] of string[8] =('Статьи', 'Заголовки');

 XTitles : array[0..4] of string[20] = ('Access', 'Barclaycard', 'Mastercard', 'American Express', 'Diners');

 {естественно, вы должны нормально читать из базы данных xTitles и значения}

 Values : array[0..1, 0..4] of double =((50, 60, 70, 80, 90),(30, 35, 25, 37, 42));

var i, SerieNo : integer;

begin

 with Ch do begin

LegendWidth := 120;

{Установка количества серий, количества значений ******************}

OpenData[COD_INIVALUES] := MAKELONG(2, 5);

CloseData[COD_INIVALUES] := 0;

{*********************************************************}

OpenData[COD_VALUES] := 2;

{если вы пропускаете приведенное выше утверждение, (в котором вы вводите номер SERIES и VALUES), и CloseData ниже, назначение значений не создает ошибки, но и не работает! Назначение значений Legend и KeyLeg работает без OpenData/CloseData}