[gelöst] TBitmap drehen

[Dejan Vu]

Vielleicht ist die Schleife einfach komplett falsch (P wird falsch gesetzt und falsch erhöht => Copy&Paste Fehler):

Delphi-Quellcode:

 P := Memory;
 For J:=0 To Pred(H) Do   // <- funktioniert leider nicht :-(
 Begin
   rowOut:=Bitmap.ScanLine[Pred(H) - J];
   For I:=Pred(W) Downto 0 Do
   Begin
     rowOut[I]:=p^.rgb;
     Inc(P);
   End;
 End;

Das sollte imho funktionieren (ungestestet)

[Schwedenbitter]

Zitat von Dejan Vu:

Vielleicht ist die Schleife einfach komplett falsch (P wird falsch gesetzt und falsch erhöht => Copy&Paste Fehler)
...
Das sollte imho funktionieren (ungestestet)

Tausend Dank!
War also doch ein Denkfehler, weil P zeilenweise erhöht werden muss. Der (ungetestete) Code spiegelt das Ganze - sieht lustig aus und merke ich mir vor, falls ich es mal brauche! Aber wenn man dann noch den Zeilen-Zähler anpasst, passt es perfekt.

Delphi-Quellcode:

         rdUpturn   :   Begin
                        P:=Memory;                  // reset pointer
                        For J:=0 To Pred(H) Do
                        Begin
                           rowOut:=Bitmap.ScanLine[J];
                           For I:=Pred(W) Downto 0 Do
                           Begin
                              rowOut[I]:=p^.rgb;
                              Inc(P);
                           End;
                        End;
                     End;

[Dejan Vu]

He he: stimmt (mit dem Spiegeln)...