| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как рисовать оружность на Canvas?
!aLeXa! © (2006-08-30 13:48:00)Именно окружность, то есть круг без внутренней части
DevilDevil (2006-08-31 11:30:00) [1]
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);
!_SM_! (2006-08-31 03:09:00) [2]> [0] !aLeXa! © (30.08.06 13:48)
Canvas.Brush.Style:=bsClear;
Canvas.Pen.Width:=5;
Canvas.Ellipse(10,10,100,100);
MBo (2006-08-30 14:12:00) [3]>без внутренней части
Brush.Style измени
Fay (2006-08-30 13:55:00) [4]Ellipse
| |
