Форум: "Прочее";
Текущий архив: 2009.03.15;
Скачать: [xml.tar.bz2];
ВнизВ каком юните находится функция 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 рисовалась не дуга, а закрашенный сегмент круга?
← →
Сергей М. © (2009-01-13 15:58) [14]
> Прайм (13.01.09 15:51) [13]
Твоей функцией ?
Или той самой что ты искал, но не нашел ?
← →
Прайм (2009-01-13 16:10) [15]
> Сергей М. © (13.01.09 15:58) [14]
>
> > Прайм (13.01.09 15:51) [13]
>
> Твоей функцией ?
> Или той самой что ты искал, но не нашел ?
Любой.
← →
Сергей М. © (2009-01-13 16:21) [16]Любой не получится.
Справка к TCanvas.Arc гласит:
Draws an arc on the image along the perimeter of the ellipse bounded by the specified rectangle
Остается только твоей собственной.
Т.е. тебе следует переписать свою процедуру, добавив в нее требуемую функциональность.
← →
MBo © (2009-01-13 16:50) [17]pie
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.03.15;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.045 c