| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дуга окружности [D7, XP]
San1 © (2007-02-28 10:01:00)Подскажите пожалуйста, как нарисовать в Image дугу зная координаты ее центра, радиус, начальный и конецный угол.
Заранее спасибо
MBo (2007-02-28 10:29:00) [1]procedure DrawArc(ACanvas: TCanvas; XC, YC, R: Integer; StartAngle, SweepAngle:
Double);
begin
SetArcDirection(ACanvas.Handle, AD_CLOCKWISE);
ACanvas.Arc(XC - R, YC - R, XC + R, YC + R,
Round(XC + R * Cos(StartAngle)),
Round(YC + R * Sin(StartAngle)),
Round(XC + R * Cos(StartAngle - SweepAngle)),
Round(YC + R * Sin(StartAngle - SweepAngle)));
end;
TUser (2007-02-28 10:06:00) [2]The Arc function draws an elliptical arc.
BOOL Arc(
HDC hdc, // handle to device context
int nLeftRect, // x-coordinate of bounding rectangle's upper-left corner
int nTopRect, // y-coordinate of bounding rectangle's upper-left corner
int nRightRect, // x-coordinate of bounding rectangle's lower-right corner
int nBottomRect, // y-coordinate of bounding rectangle's lower-right corner
int nXStartArc, // first radial ending point
int nYStartArc, // first radial ending point
int nXEndArc, // second radial ending point
int nYEndArc // second radial ending point
);
| |
