Einzelnen Beitrag anzeigen

Jacks

Registriert seit: 7. Mär 2016
14 Beiträge
 
#1

Canvas: Zeichnen Line mit BrushStyle

  Alt 1. Sep 2016, 10:13
Hi,

kann man in Delphi breite Linien mit einem TBrushStyle füllen?
Oder muss ich die Linie erst in ein Polygon wandeln?

Aktuell erhalte ich nur gefüllte Linien.

Code:
  try
    MyCanvas.Brush.Style := TBrushStyle(StrToInt(MyPenStyle))
  except
    MyCanvas.Brush.Style := TBrushStyle.bsSolid;
  end;
  MyCanvas.Brush.Color := MyPencolor;
  MyCanvas.Pen.Color := MyPencolor;
   MyCanvas.Pen.Width := (PixelWidth);


   MyCanvas.MoveTo(X1, Y1);
   MyCanvas.LineTo(X2, Y2);
Danke
Jacks
  Mit Zitat antworten Zitat