Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
!aLeXa! ©   (2006-08-30 13:48) [0]

Именно окружность, то есть круг без внутренней части

---

← →
Fay ©   (2006-08-30 13:55) [1]

Ellipse

---

← →
MBo ©   (2006-08-30 14:12) [2]

>без внутренней части
Brush.Style измени

---

← →
!_SM_!   (2006-08-31 03:09) [3]

> [0] !aLeXa! ©   (30.08.06 13:48)

Canvas.Brush.Style:=bsClear;
Canvas.Pen.Width:=5;
Canvas.Ellipse(10,10,100,100);

---

← →
DevilDevil ©   (2006-08-31 11:30) [4]

procedure Crug(X, Y, Diameter : integer);
begin
 Form1.Canvas.Ellipse(Bounds(X, Y, Diameter, Diameter));
end;

// OnMouseDown
Canvas.Brush.Style:=bsClear;
Canvas.Pen.Width:=5;
Canvas.Pen.Color := RGB(random(256), random(256), random(256));

Crug(X, Y, 100);

---

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

Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.06 c