Hi,
können: NP, machen: Nein.
Der Grund ist einfach, wenn du dich intensiver mit dem Thema beschäftigst lernst du wirklich ne Menge.
Paar Hinweise sind natürlich nicht verkehrt.
Delphis Koordinatensystem beginnt dummerweise oben Links. Du hast sicherlich schonmal bemerkt, dass ein größerer Top-Wert (Praktisch die Y-Achse) eine Komponente weiter nach unten anstatt nach oben setzt.
Du müsstest also den Mittelpunkt umbauen und die Y-Achsen-Richtung umkehren.
Das ist leicht, einfach die Hälfte der Zeichenfläch zu den Zielkoordinaten hinzuaddieren und bei dem Y-Wert das umgekehrte Vorzeichen nehmen.
Dann ist noch die Längeneinheit von 1 Pixel lästig, bisschen klein. Einfach die fertigen Koordinaten mit der Wunschlänge multiplizieren.
Beispiel, die Koordinate 1/2 mit einer Längeneinheit von 20 Pixeln:
x := (1 + (Image1.Width / div 2)) * 20;
y :=- (2 + (Image1.Height div 2)) * 20;
Mit Canvas.MoveTo gehst du zum gewünschten Startpunkt der Linie, 0/0. Also in dem Fall (Image1.Width Div 2)/(Image1.Height div 2).
Und mit LineTo zeichnest du dann die Linie.