Вниз
Скачать: 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.01 c
1-71115
Андрей Вдовин
2002-08-13 07:24
2002.08.22
Подсветка слов в RichEdit


1-71207
Zelius
2002-08-09 17:40
2002.08.22
Подскажите компонент панелей в стиле Outlok а


14-71371
blackman
2002-07-23 17:31
2002.08.22
Что делают люди в последний час перед уходом в отпуск ?


1-71171
Ярослав
2002-08-13 20:46
2002.08.22
Delphi & MySQL - это возможно?


8-71273
Gena
2002-04-01 20:27
2002.08.22
Подгонка под размеры экрана




   Наверх