Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-71105
atmospheric
2002-08-12 23:13
2002.08.22
Чужой Memo (RichEdit)...


1-71175
TAlex
2002-08-13 23:12
2002.08.22
Tray и Popup


3-70971
TaiphooN
2002-08-04 12:54
2002.08.22
SQL с условиями


1-71116
oguz
2002-08-12 15:07
2002.08.22
Как в ячейку StringGrid вписать несколько строк


14-71302
ded_di
2002-07-25 17:12
2002.08.22
Тех.Задание





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский