Hilfe! Rechtecke im Imagefenster

[Flare]

Muss die Prozedur von alzaimar nicht so aussehen?

Delphi-Quellcode:

Procedure RechteckImRechteck (P1,P2,P3,P4 : TPoint; Ebene : Cardinal);
Begin
  If Ebene > 1 Then
    RechtEckImRechteck (
              Point ((P1.x+P2.x)/2, (P1.y+P2.y)/2),
              Point ((P2.x+P3.x)/2, (P2.y+P3.y)/2),
              Point ((P3.x+P4.x)/2, (P3.y+P4.y)/2),
              Point ((P4.x+P1.x)/2, (P4.y+P1.y)/2)
     Ebene - 1);
  ZeichneReckeck (P1,P2,P3,P4) // Das muss man selbst programmieren
End;

...
  RechtEckImRechtEck (P1,P2,P3,P4,4); // Zeichnet 4 ineinander verschachtelte Rechtecke
...

Davor wurde nämlich nur das letzte Rechteck gezeichnet.


Flare