Article #17724: How do I use Paths and Geometric Pens?

 Question and Answer Database
FAQ2724D.txt How do I use Paths and Geometric Pens?
Category :Windows API
Platform :All
Product :All 32 bit
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;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99