Вниз
Скачать: CL | DM;

Как нарисовать дугу?   Найти похожие ветки 

 
Shaman2002 ©   (2002-11-05 18:41) [0]

Люди подскажите как нарисовать дугу по трем точкам в PaintBox.
Точнее говоря полэлипса под углом к оси ОХ. Известны координаты трех вершин.
Буду очень признателен за помощь.


 
MBo ©   (2002-11-06 06:25) [1]

Дугу окружности по трем точкам нарисовать можно, а вот для эллипса трех точек недостаточно - нужно либо 4 точки, либо еще какой-то параметр эллипса, например, эксцентриситет или (что проще) отношение большой и малой полуосей


 
ZEE ©   (2002-11-06 09:13) [2]

На счет "полэлипса" - не знаю, но вообще кривые (по трем точкам) я рисую так:

var aPts:array[0..4]of TPoint;
...
aPts[0]:=Point(x1,y1);
aPts[1]:=Point(x1,y1);
aPts[2]:=Point(x2,y2);
aPts[3]:=Point(x3,y3);
aPts[4]:=Point(x3,y3);
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.FillRect(Rect(0,0,0,0));
// сам не знаю как эта штука влияет на прорисовку,
// но почему-то без нее не работает
Image1.Canvas.Brush.Style:=bsClear;
PolyBezier(Image1.Canvas.Handle,aPts,4);
...


Может конечно не совсем правильно, но кто умеет лучше - пусть кинет в меня правильным кодом :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
3-45749
kalan
2002-10-25 04:37
2002.11.14
Работа с клиентским набором данных


3-45714
seter
2002-10-24 11:10
2002.11.14
Базы данных


3-45790
Nick-From
2002-10-22 17:09
2002.11.14
Изменение значений DBEdit и DBCheckBox


4-46188
serge_af
2002-10-03 17:50
2002.11.14
RegEnumValue


1-45802
delphi4fun
2002-11-04 21:08
2002.11.14
вставить image в TreeView




   Наверх