framerect пунктиром

← →
Chuck Bass (2012-04-11 14:57) [0]

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

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

← →
Anatoly Podgoretsky © (2012-04-11 15:04) [1]

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

А Width какой?

← →
Юрий Зотов © (2012-04-11 16:03) [2]

DrawFocusRect

← →
Ega23 © (2012-04-11 16:23) [3]

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-12 13:51) [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-12 14:35) [5]

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

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

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

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

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

framerect пунктиром Найти похожие ветки