GDIの制限を知っています。GDI は、幅が 1 ピクセル以上の線のみを描画できます。それでも、プリンターで 1 ピクセルよりも細く見える線を描きたいのです。
次のようにできるということですか?
with cLogBrush do
begin
lbStyle := BS_Solid;
lbColor := ACanvas.Pen.Color;
lbHatch := 0;
end;
dwStyle := PS_COSMETIC or PS_ALTERNATE;
ACanvas.Pen.Handle := ExtCreatePen(dwStyle, 1, cLogBrush, 0, nil);
ACanvas.MoveTo(X1, Y1);
ACanvas.LineTo(X2, Y2);