Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c
3-71028
lejik
2002-07-25 13:05
2002.08.22
Как отучить от автодобавления записи


14-71317
Слесарь нематерящийся
2002-07-26 07:49
2002.08.22
Прога


3-70962
Enig
2002-08-01 08:15
2002.08.22
Экспорт


1-71107
zjuzin
2002-08-09 14:48
2002.08.22
О


4-71420
Sword
2002-06-18 19:31
2002.08.22
Спасите! Не знаю как копировать




   Наверх