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

Книги → Советы по Delphi. Версия 1.4.3 от 1.1.2001 → Использование ChartFX

Delphi 1

Это код, который я использую для установки chartfx.

chart1.Opendata[cod_values]:=makelong(no_of_series, no_of_classes);

{установка последовательных значений}

chart1.closedata[cod_values]:=0;

unit TstChart;

interface

uses= WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Menus, Dialogs, StdCtrls, Buttons, ExtCtrls, Tabs, ChartFX, {Похоже, действительно необходимо включить этот модульв список, чтобы иметь доступ к константам, например к COD_VALUES} VBXCtrl, Chart2fx;

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 и установите верхний, левый и нижний заголовки}

← предущий раздел следующая →

Страницы раздела: 1 2

Публикация компанией Dropbox кода Zulip – средства общения для IT-разработчиков

20.11.2015
Одной из одобрительно встреченных программистами инициатив, реализующихся в рамках акции Hack Week, стала публикация исходного кода приложения Zulip – веб-приложения для общения между собой разработчиков в сфере IT-технологий.

Объединение ОС Android и Chrome

17.11.2015
Слухи об объединении двух крупнейших ОС компании Google, Android и Chrome, гуляют по Интернету уже более 5 лет, но до сих пор этого не случилось, хотя очевидно, что с течением времени эти ОС становятся всё более похожими: так, в последнее время появилось немало Android-устройств, к которым прилагаются клавиатуры, а Chrome OS «научилась» работать с сенсорными экранами.

Конференция Linux Piter 2015

15.11.2015
Уже почти через неделю в Санкт-Петербурге впервые в истории пройдёт конференция, посвящённая проблемам свободного программного обеспечения – Linux Piter 2015.