Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1264249 Thu, 14 Sep 2006 10:51:17 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1264249 DimaBr Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1264192 Thu, 14 Sep 2006 10:27:16 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1264192 Цитата DimaBr @ 13.09.06, 07:22

Минимальная переделка и работает для более младших братьев.

Это я сделаю, просто времени пока нет.

По 1 пункту - учту.

Цитата DimaBr @ 13.09.06, 07:22

Испрвлю, метод AddValue добавлю.

Цитата DimaBr @ 13.09.06, 07:22

А вообще, я за две минуты написал вот такой код, который делает все тоже самое но возможностей по оформлению графика в тысячу раз больше

const Count = 50;

procedure TForm1.FormCreate(Sender: TObject);

var i: integer;

begin

Series1.Clear;

for i := 0 to Count do

Series1.Add(Random(100));

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i: integer;

begin // эффект перемещения

for i := 0 to Count-1 do

Series1.ValuesList.ValueList[1].Value[i] := Series1.ValuesList.ValueList[1].Value[i+1];

Series1.ValuesList.ValueList[1].Value[Count] := Random(100);

Chart1.Invalidate;

end;

А я по возможностям оформления не с кем и не соревнуюсь :whistle:]]> Angel_19 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1262235 Wed, 13 Sep 2006 07:22:25 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1262235
Добавлено 13.09.06, 07:23
1. При перемещении мыши над компонентом жизнь останавливается. Предлагаю сделать замену

procedure TGrafik.MouseMove(Shift: TShiftState; X, Y: Integer);

begin

inherited;

// Paint;

Invalidate;

end;

2. не совсем ясна концепция добавления данных, метод AddValue(Value : TTData; ValueTime : TDateTime); не помешал бы.
В пояснении опечатка
(" Для передачи данных в график используем вызов
Grafik1.DataIn(TGrafik.Create(Данные,Time));")
а нужно Grafik1.DataIn(TDataInOb.Create(Данные,Time));

3. Нет смысла каждый раз рисовать сетку, можно хранить и пересоздавать при Resize

Добавлено 13.09.06, 07:28
А вообще, я за две минуты написал вот такой код, который делает все тоже самое но возможностей по оформлению графика в тысячу раз больше

const Count = 50;

procedure TForm1.FormCreate(Sender: TObject);

var i: integer;

begin

Series1.Clear;

for i := 0 to Count do

Series1.Add(Random(100));

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i: integer;

begin // эффект перемещения

for i := 0 to Count-1 do

Series1.ValuesList.ValueList[1].Value[i] := Series1.ValuesList.ValueList[1].Value[i+1];

Series1.ValuesList.ValueList[1].Value[Count] := Random(100);

Chart1.Invalidate;

end;

]]> DimaBr Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1261142 Tue, 12 Sep 2006 12:37:41 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1261142 Angel_19 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1260153 Tue, 12 Sep 2006 05:43:30 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1260153

procedure TGrafik.CalcDelta;

begin

FTempCanvas.SetSize(Width-FOgrVertUp-FOgrVertDown, Height-FOgrGorUp-FOgrGorDown);

FTempCanvas2.SetSize(Width, Height);

FDelta := FTempCanvas.Height/(Max-Min);

end;

[Error] UnitGrafik.pas(199): Undeclared identifier: 'SetSize'

Point := CalcCursorPos;

if MouseInClient then

if (Point.X>(FOgrVertUp-1)) and

(Point.X<(Width-FOgrVertDown)) then

[Error] UnitGrafik.pas(382): Undeclared identifier: 'MouseInClient'

procedure TGrafik.ReadMax(Reader: TReader);

begin

FMax := Reader.ReadDouble;

end;

[Error] UnitGrafik.pas(586): Undeclared identifier: 'ReadDouble'

procedure TGrafik.WriteMax(Writer: TWriter);

begin

Writer.WriteDouble(FMax);

end;

[Error] UnitGrafik.pas(700): Undeclared identifier: 'WriteDouble'

]]> DimaBr Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1254707 Thu, 07 Sep 2006 16:28:56 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1254707 Angel_19 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1254690 Thu, 07 Sep 2006 16:16:59 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1254690 Цитата Rouse_ @ 07.09.06, 08:13

У меня работает :)

И на том спасибо. :)]]> Angel_19 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1253596 Thu, 07 Sep 2006 08:13:52 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1253596 Rouse_ Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1252924 Wed, 06 Sep 2006 18:25:27 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1252924 Angel_19 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1248826 Sun, 03 Sep 2006 12:10:48 +0000 Тестирование компонента https://forum.sources.ru/index.php?showtopic=153287&view=findpost&p=1248826
Нашел небольшую ошибку. Файл для скачивания обновил.]]> Angel_19 Delphi: Разработка компонентов