Mega Code Archive
How do i use paths and geometric pens
<![CDATA[
Question:
How do I use Paths and Geometric Pens?
Answer:
You will need to call the Windows API function ExtCreatePen() to
create a geometric pen style, and use the Canvas.Handle property to
use the Windows Path functions.
Example:
procedure TForm1.Button1Click(Sender: TObject);
var
lb : TLogBrush;
begin
lb.lbStyle := BS_SOLID;
lb.lbColor := RGB(255, 0, 0);
lb.lbHatch := 0;
Form1.Canvas.Pen.Handle :=
ExtCreatePen(PS_GEOMETRIC or
PS_INSIDEFRAME or
PS_ENDCAP_SQUARE or
PS_JOIN_BEVEL,
20,
lb,
0,
nil);
BeginPath(Form1.Canvas.Handle);
Form1.Canvas.MoveTo(100, 30);
Form1.Canvas.LineTo(200, 100);
Form1.Canvas.LineTo(300, 30);
EndPath(Form1.Canvas.Handle);
StrokePath(Form1.Canvas.Handle);
Form1.Canvas.Pen.Width := 1;
end;
]]>