Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2008, 16:16   #1
SunKnight
Участник клуба Подтвердите свой е-майл
 
Аватар для SunKnight
 
Регистрация: 14.12.2007
Сообщений: 1,434
Смущение Рисование в Chart

Подскажите как реализовать рисование линий и точек и т.п., на уже построеном графике. Пробовал:
Form1.Series1.Pointer.DrawPointer(f alse,-10,0,0,0,clGreen,psStar);
нечего не происходит.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
SunKnight вне форума Ответить с цитированием
Старый 06.02.2008, 16:31   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А что за проблема сделать еще одну серию, задать ей тип точка или линия и указать координаты?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.02.2008, 16:48   #3
SunKnight
Участник клуба Подтвердите свой е-майл
 
Аватар для SunKnight
 
Регистрация: 14.12.2007
Сообщений: 1,434
Печаль

мне надо чет типа вот этого
Изображения
Тип файла: jpg Безымянный.JPG (57.5 Кб, 193 просмотров)
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
SunKnight вне форума Ответить с цитированием
Старый 07.02.2008, 09:16   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну дык и я о том же:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var i:real;
begin
i:=0;
while i<360 do begin
 Series1.Addy(sin(i));
 if (round(i) mod 10)=0 then begin
  Series2.AddY(sin(i));
  setlength(k, high(k)+2);
  k[high(k)]:=TLineSeries.Create(Chart1);
  k[high(k)].LinePen.Width:=3;
  with k[high(k)] do begin
   Addxy(Series2.XValues.Value[Series2.XValues.Count-1],
      Series2.YValues.Value[Series2.yValues.Count-1]);
   AddXy(Series2.xValues.Value[Series2.xValues.Count-1],0);
  end;
  Chart1.AddSeries(k[high(k)]);
 end;
 i:=i+30;
end;
end;

end.
ТОлько я не помню как задавать для линий цвет
I'm learning to live...

Последний раз редактировалось Stilet; 07.02.2008 в 09:18.
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Опять Chart BigBB Помощь студентам 32 29.04.2008 22:41
Chart оси lenivec Общие вопросы Delphi 1 09.02.2008 11:37
Компонент Chart. Небесный Общие вопросы Delphi 17 09.02.2008 08:48
Точки в Chart yulia Компоненты Delphi 3 26.09.2007 22:22