Entwickler-Ecke

Multimedia / Grafik - Zeichnen


Nano-Ware - Di 13.07.10 20:43
Titel: Zeichnen
Hey,

ich will nur wissen wie ich eine Linie zeichne, ich habe vom Start und Endpunkt die Koordinaten. Und wie zeichne ich einen Pfeil ;D

LG Nano-Ware


Tilo - Di 13.07.10 20:46

DrawLine?

Mit welchen Komponenten arbeitest Du?
Was steht Dir zur Verfügung?

Geht leider nicht besser.


elundril - Di 13.07.10 20:52

Ich geb dir mal n paar stichwörter:

Canvas
MoveTo
LineTo

Weiters gibts bei [url]http://www.Delphi-Treff.de[/url] ein Tutorial fürs Canvas. ;)

lg elundril


Nano-Ware - Di 13.07.10 20:57

Ich bin da einfach ein totaler anfänger. Ich möchte eine Line mit der dicke 3-4 Pixel zeichnen ;D Von 0,0 nach 220,200 ich weiß garnicht wie ich da vorgehen soll. Außerdem ist vielleicht wichtig, dass ich die Linien auf einem Panel zeichnen möchte!

Thx schonmal!


jaenicke - Di 13.07.10 20:59

user profile iconNano-Ware hat folgendes geschrieben Zum zitierten Posting springen:
Ich möchte eine Line mit der dicke 3-4 Pixel zeichnen ;D Von 0,0 nach 220,200 ich weiß garnicht wie ich da vorgehen soll.
Einfach die genannten Funktionen nutzen. :nixweiss:
Die Parameter sollten eigentlich selbsterklärend sein...

user profile iconNano-Ware hat folgendes geschrieben Zum zitierten Posting springen:
Außerdem ist vielleicht wichtig, dass ich die Linien auf einem Panel zeichnen möchte!
Dann hast du zwei Möglichkeiten:
Entweder eine geeignete Komponente stattdessen nehmen (TPaintBox, ...) oder sehr viel Aufwand betreiben...


Dude566 - Di 13.07.10 22:19


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TmainForm.btnZeichnenClick(Sender: TObject);
var
  x1,x2,y1,y2 : integer;
begin
  // Koordinaten initialisieren
  x1 := 0;
  y1 := 0;
  x2 := 220;
  y2 := 200;
  // Stiftdicke
  PaintBox1.Canvas.Pen.Width := 3;
  // Startpunkt setzen
  PaintBox1.Canvas.MoveTo(x1,y1);
  // Linie zum Endpunkt zeichnen
  PaintBox1.Canvas.LineTo(x2,y2);
end;