Hallo,
und zwar brauche ich Linien mit u.a. abgerundeten Enden für mein Programm.
(andere Endestücke - je mehr verschiedene, desto besser - sind mir auch willkommen)
Nach etwas Suche im Netz, bin ich folgenden Code gestoßen, den ich auch in meinem Programm gerne verwenden würde.
Der basiert wohl auf Verwendung der GDIplus.
Hat jemand eine Idee, wie ich dies oder vergleichbares realisieren kann?
Denn ich habe hier nur Delphi 7 zur Verfügung.
ich fummle schon den ganzen Abend.
Braucht man da wirklich eine höhere Delphi Version zu?
Google bringt mir auch nur wenige Informationen darüber und wenn dann meist über .NET und wie toll das alles damit ist, wenn ich 'Linecap' oder ähnlichs eingebe.
ich brauche aber freie Linien in der Art.
Was kann ich denn machen?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var g: Graphics;
myPen: Pen;
Punkte: array[0..2] of PointF;
begin
g := Self.createGraphics;
mypen := pen.CreateColor(Color.Red, 15);
Punkte[0] := PointF.Create(100, 50);
Punkte[1] := PointF.Create(300, 150);
Punkte[2] := PointF.create(100, 250);
myPen.startcap := Linecap.Round;
myPen.Endcap := Linecap.Round;
myPen.Linejoin := Linejoin.Round; // Verbindung 2 Linien, rund
g.DrawLines(mypen, Punkte);
end;
im voraus vielen Dank.
angehängt: die Projektdatei, ein Bild, was ich mir in etwa vorstelle (runde Enden), und ein Screenshot mit der
Unit und den Fehlermeldungen. Zeile 27 ist die mit "var g: Graphics".