Ja, das geht, Du musst nur ExtCreatePen verwenden, wie z.B. wie folgt:
Delphi-Quellcode:
const
FlatPenStyle = PS_GEOMETRIC or PS_DOT or coDefault_Endcap or PS_JOIN_MITER;
var
LogBrush: TLOGBRUSH;
begin
LogBrush.lbStyle := BS_SOLID;
LogBrush.lbColor := clGray;
LogBrush.lbHatch := 0;
Canvas.Pen.Handle := ExtCreatePen(FlatPenStyle, 1, LogBrush, 0, nil);
...