Wie haben es die Entwickler von Delphi geschafft Pfeile....

[Nico1]

.... im diagrammblatt darzustellen


also ich meine wie sie das gemacht haben mit den neuen Punkten bei Pfeilen ... das die Pfeile immer zum Memo zeigen etc....


weiß jemand den Circa Code?
Wär echt toll!!!



Beilage : falls ich mich zu kompliziert ausgedrückt habe Ein Screen

[Jens Schumann]

Hallo,
jeden Anfangs und Endpunkt einer Linie in einer verketteten Liste (selber machen) oder in
TList merken. Dann darüber iterieren und Linien zeichnen.

[Nico1]

was heißt iterieren?

:mrgreen: weiß es echt nicht

[Jens Schumann]

Zitat:

Zitat von Nico1

was heißt iterieren?

:mrgreen: weiß es echt nicht

Das heißt man geht von einem Element zum Nächsten usw.

[Nico1]

THX ich probiers mal umzusetzten

[Luckie]

Es geht auch ohne verkettet Liste und dem Pointer-Gedönse. ;)

Delphi-Quellcode:

type
  TLinienZug = record
    pt: Tpoint;
  end;

var
  LinienZug: array of TLinienZug;
  LenLinienZug: Cardinal = 0;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Inc(LenLinienZug);
  setlength(LinienZug, LenLinienZug);
  LinienZug[LenLinienZug-1].pt.X := X;
  LinienZug[LenLinienZug-1].pt.Y := Y;
  Listbox1.Items.Add('x: '+IntToStr(LinienZug[LenLinienZug-1].pt.X)+' , y: '+IntToStr(LinienZug[LenLinienZug-1].pt.Y));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Cardinal;
begin
  Canvas.MoveTo(LinienZug[0].pt.X, LinienZug[0].pt.Y);
  for Loop := 0 to LenLinienZug-1 do
    Canvas.LineTo(LinienZug[Loop].pt.X, LinienZug[Loop].pt.Y);
end;

[Jens Schumann]

Zitat:

Zitat von Luckie

Es geht auch ohne verkettet Liste und dem Pointer-Gedönse. ;)

Oh - mit einem dyn Array - voll VB-mäßig :wink:

[Luckie]

Nein, nur .NET sicherer Code, da dort Pointer als unsicher gelten. ;) Und das mit dem VB will ich überhört haben. ;) :mrgreen: