В каком юните находится функция Arc?

← →
Прайм (2009-01-12 22:25) [0]

В справке написано:
procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); overload;
procedure Arc(X, Y, W, H, Angle, AngleLength: Integer); overload;

Первый Arc описан в юните Graphics, второй - не нашёл. Где он находится?
Или на худой конец как перевести параметры первого арка во второй?

← →
Pavia © (2009-01-12 22:52) [1]

Это CLX смотри юнит QGraphics

← →
Jeer © (2009-01-12 22:55) [2]

unit RpBase
исходников в поставке нет

← →
Прайм (2009-01-12 23:08) [3]

Вот облом то.

← →
Прайм (2009-01-12 23:11) [4]

Написал по-бырому свою функцию, пользуйтесь кому надо.

procedure Arc2(aCanvas : TCanvas; X, Y, W, H : Integer; Angle, AngleEnd : Single); var i1, i2 : Integer; f0 : Single; begin f0 := Sqrt(Sqr(W) +Sqr(H)); i1 := (X +(W div 2)); i2 := (Y +(H div 2)); aCanvas.Arc(X, Y, X +W, Y +H, Round(Cos(-Angle ) *f0 +i1), Round(Sin(-Angle ) *f0 +i2), Round(Cos(-AngleEnd) *f0 +i1), Round(Sin(-AngleEnd) *f0 +i2) ); end;

← →
Jeer © (2009-01-12 23:17) [5]

Вот все и кинулись на халяву :)

← →
Игорь Шевченко © (2009-01-12 23:22) [6]

> Где он находится?

в GDI+

← →
Anatoly Podgoretsky © (2009-01-12 23:57) [7]

> Jeer (12.01.2009 23:17:05) [5]

А еще осталось?

← →
Jeer © (2009-01-13 00:01) [8]

У кого ?
У меня в доме всегда прием "бэзвозмездный", как сказала бы Сова :)

← →
Германн © (2009-01-13 01:10) [9]

> Anatoly Podgoretsky © (12.01.09 23:57) [7]

Приезжай. Бар полон всего. (Вот только пива не держу :)

← →
Jeer © (2009-01-13 01:14) [10]

> Германн © (13.01.09 01:10) [9]

Далеко до тебя, уж лучше к нам :)

← →
Германн © (2009-01-13 01:29) [11]

> Jeer © (13.01.09 01:14) [10]
>
>
> > Германн © (13.01.09 01:10) [9]
>
> Далеко до тебя, уж лучше к нам :)
>

Это куда? На Колыму? :)
В твоей, с позволения сказать, анкете адрес ну никак не указан. :)

← →
Jeer © (2009-01-13 01:33) [12]

Дык, давно уж все ( кроме тебя ) знают - на буквe К, но не Колыма :)
Калуга все ж ближе к маскве.

← →
Прайм (2009-01-13 15:51) [13]

Кто знает, как сделать, чтобы функцией Arc рисовалась не дуга, а закрашенный сегмент круга?

> Прайм (13.01.09 15:51) [13]

Твоей функцией ?
Или той самой что ты искал, но не нашел ?

← →
Прайм (2009-01-13 16:10) [15]

> Сергей М. © (13.01.09 15:58) [14]
>
> > Прайм (13.01.09 15:51) [13]
>
> Твоей функцией ?
> Или той самой что ты искал, но не нашел ?

Любой.

Любой не получится.
Справка к TCanvas.Arc гласит:

Draws an arc on the image along the perimeter of the ellipse bounded by the specified rectangle

Остается только твоей собственной.

Т.е. тебе следует переписать свою процедуру, добавив в нее требуемую функциональность.

pie

В каком юните находится функция Arc? Найти похожие ветки