| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
обозначение углов [D7]
likenoother © (2007-04-17 14:05:00)такая вот проблема, есть 3 точки по ним начерчен угол в Timage,нужно в месте где образовывается угол,обозначить его,ну тоесть начеритить небольшуюю дугу.пытался возится с ARC но так и не понял как правильно задать аргументы,что бы она была правильно построина.
MBo (2007-04-17 14:48: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;
В твоем случае последние 4 параметра уже есть, так что замени на координаты точек.
Сергей М. (2007-04-17 14:35:00) [2]
> даже он
Там что, буквы незнакомые ?)
likenoother (2007-04-17 14:16:00) [3]даже он.
Сергей М. (2007-04-17 14:08:00) [4]
> так и не понял как правильно задать аргументы,что бы она
> была правильно построина
Что, даже пример в справке не помог ?)
| |
