Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

TeeChart   Найти похожие ветки 

← →
Sergo ©   (2002-07-27 08:54) [0]

Есть код:
unit Contour_Levels;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Base, TeEngine, TeeSurfa, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
TContourLevels = class(TBaseForm)
Series1: TContourSeries;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
Procedure AddCustomLevels;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

procedure TContourLevels.FormCreate(Sender: TObject);
begin
inherited;
Series1.FillSampleValues(20);
AddCustomLevels;
end;

procedure TContourLevels.CheckBox1Click(Sender: TObject);
begin
Series1.AutomaticLevels:=not CheckBox1.Checked;
if not Series1.AutomaticLevels then AddCustomLevels;
end;

Procedure TContourLevels.AddCustomLevels;
begin
Series1.NumLevels:=10;
Series1.CreateAutoLevels;
With Series1.Levels do
begin
Items[0].UpToValue:=-1;
Items[1].UpToValue:=-0.8;
Items[2].UpToValue:=-0.6;
Items[3].UpToValue:=-0.4;
Items[4].UpToValue:=-0.2;
Items[5].UpToValue:= 0;
Items[6].UpToValue:= 0.2;
Items[7].UpToValue:= 0.4;
Items[8].UpToValue:= 0.6;
Items[9].UpToValue:= 0.8;
end;
end;

initialization
RegisterClass(TContourLevels);
end.
Как образуется процедура: Procedure TContourLevels.AddCustomLevels;

---

← →
Sergo ©   (2002-07-27 10:52) [1]

Неужели никто не подскажет, ее нет в Events, плииз.

---

← →
Hooch ©   (2002-07-27 11:33) [2]

ты о чем ?

---

← →
Sergo ©   (2002-07-27 12:36) [3]

Это пример кода (поставляется вместе с TeeChartPro 5), я попытался с ним поэкспериментировать, но не пойму как образовать эту процедуру, если ее просто набрть ручками, то Дельфя начинает ругаться, а где назначить ее не найду. :(

---

← →
Hooch ©   (2002-07-27 13:38) [4]

А куда ты её назначать собрался ??? Оъясни подробнее что хочеш сделать и получить ?

---

← →
Sergo ©   (2002-07-27 13:39) [5]

эта процедура добавляет уровни контурного графика

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c