Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi GDI+ unter Delphi 7 (https://www.delphipraxis.net/173834-gdi-unter-delphi-7-a.html)

BMI 19. Mär 2013 22:17

Delphi-Version: 7

GDI+ unter Delphi 7
 
Liste der Anhänge anzeigen (Anzahl: 3)
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".

DeddyH 20. Mär 2013 07:17

AW: GDI+ unter Delphi 7
 
Das hier (GDI+-Units enthalten) habe ich auch unter Delphi 7 geschrieben. Es gab zwar noch eine etwas einfachere GDI+-Lib von progdigy.com, aber die ist anscheinend momentan nicht zu downloaden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz