Canvas: Zeichnen Line mit BrushStyle

[Jacks]

Danke,

erhalte nun folgendes Ergebnis


Das verändern vom Brush Style funktioniert gut.
Allerdings wird bei mir die Kante der Linie nicht mehr gezeichnet?

Code:

  
try
    LogBrush.lbStyle := BS_HATCHED;
     LogBrush.lbHatch := StrToInt(MyStyle);
  except
    LogBrush.lbStyle := BS_SOLID;
  end;
  LogBrush.lbColor := MyColor;
  MyCanvas.Pen.Handle := ExtCreatePen(  PS_GEOMETRIC , MyWidth, LogBrush, 0, nil);