Zitat:
erst später sichtbar
daran scheiterts .. du musst das ganze zuerst in ein bitmap speicehrn
würde ca so aussehen
Delphi-Quellcode:
var bit : TBitmap;
begin
Bit := TBitmap.Create();
Bit.Width := Form2.Width;
Bit.height := Form2.Height;
Bit.canvas.pen.color:=clred;
LINKS:=(80+((Akt_KNOTEN -1)*96)); // Ausgangsknoten
OBEN:=(Y_Werte[Akt_KNOTEN] + 8); // Ausgangsknoten
Bit.Canvas.Moveto(LINKS,OBEN);
ZL:=(((KN_Zielknoten[Akt_KNOTEN]-1)*96)-6); // Zielknoten
ZO:=(Y_Werte[KN_Zielknoten[Akt_KNOTEN]] +8);
Bit.Canvas.Lineto(ZL,ZO);
Form2.Canvas.Draw(0,0,Bit);
end;
wenn was nicht stimmt .. hab das ganze in 1 minute geschrieben
