Вниз
Скачать: 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.46 MB
Время: 0.012 c
14-71333
Geser
2002-07-25 22:06
2002.08.22
Люди, подкиньте идею для программы.


1-71206
[BAD]Angel
2002-08-09 13:07
2002.08.22
Мастера, помогите!!!


6-71281
chp0k
2002-06-08 20:26
2002.08.22
шайтанский пинг


3-70975
Arso
2002-08-04 23:05
2002.08.22
Совместная работа ExpressQuantumGrid и Halcyon v 6.94


3-71000
Дмитрий Калугин
2002-07-31 16:22
2002.08.22
Обнуление генератора




   Наверх