| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

framerect пунктиром

Chuck Bass ©   (2012-04-11 14:57:00) 

как нарисовать framerect пунктиром. делаю так, ничего не получается:

 Canvas.Brush.Color := clRed;
 Canvas.Pen.Style := psDashDot;
 Canvas.FrameRect(Bounds(100, 100, 100, 100));

---

Jeer   (2012-04-12 15:21:00) [1]

А мне нравится "муравьиный" FrameRect :)

---

Омлет   (2012-04-12 15:05:00) [2]

> Ну если это именно Rectangle, то можно и так.

FrameRect круги не рисует.

---

Ega23   (2012-04-12 14:35:00) [3]

> Rectangle(Bounds(100, 100, 100, 100));


Ну если это именно Rectangle, то можно и так.

---

Омлет   (2012-04-12 13:51:00) [4]

 with Canvas do
 begin
   Pen.Color := clRed;
   Pen.Style := psDashDot;
   Pen.Mode := pmNotXor;
   Brush.Style := bsClear;
   Rectangle(Bounds(100, 100, 100, 100));
 end;


---

Ega23   (2012-04-11 16:23:00) [5]

with Canvas do
begin
  Pen.Style:=psDot;
  Pen.Mode:=pmXOR;

  MoveTo(CutFrame.Left,CutFrame.Top);
  LineTo(CutFrame.Right,CutFrame.Top);
  LineTo(CutFrame.Right,CutFrame.Bottom);
  LineTo(CutFrame.Left,CutFrame.Bottom);
  LineTo(CutFrame.Left,CutFrame.Top);
end;

Ну и Style и Mode взат потом верни.

---

Юрий Зотов   (2012-04-11 16:03:00) [6]

DrawFocusRect

---

Anatoly Podgoretsky   (2012-04-11 15:04:00) [7]

> Chuck Bass  (11.04.2012 14:57:00)  [0]

А Width какой?

---

Наверх