Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Полигон в Teechart [D6, Win2k]


sad ©   (2002-09-05 08:02:00) 

Здравствуйте, подскажите, пожалуйста, как нарисовать полигон в Teechart по заданным координатам.
Заранее спасибо


sad   (2002-09-09 08:21:00) [1]

Если ориентироваться на оси TeeСhart (координаты одни и те же (абс.значения), а полигон выходит меньше размером


MBo   (2002-09-06 16:18:00) [2]

>меньше чем надо
????


sad   (2002-09-06 15:57:00) [3]

Спасибо. точки нашел.
Однако мой полигон меньше чем надо.. я так понимаю нужны некие коэффициенты коррекции ...жестко-то их задать можно..но хочется
по-красивее..


MBo   (2002-09-05 13:02:00) [4]

см. свойства TChartAxis


sad   (2002-09-05 10:44:00) [5]

Почему-то не могу никак вычислить координаты точки пересечения осей TeeChart"а чтобы поместить полигон в эту точку.

Определяем отступ от края слева и снизу
x:=trunc( Chart1.Width*(Chart1.MarginLeft/100))
y:=trunc( Chart1.Height*((100-Chart1.MarginBottom)/100))
и че-то абсолютно не совпадают точки


MBo   (2002-09-05 08:11:00) [6]

procedure TForm1.Button1Click(Sender: TObject);
var p:array[0..3] of tpoint;
i:integer;
begin
for i:=0 to 3 do begin
p[i].x:=50+random(200);
p[i].y:=50+random(200);
end;
Chart1.Canvas.PolygonWithZ(p,0);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо