Bild um 270° drehen

[resyiii]

das ist der quelltext, um ein bild mittels canvas um 90 grad zu drehen,

Code:

procedure BitmapDrehen_90Grad(const Bitmap: TBitmap);
var P: PRGBQuad; //^THelpRGB;
    x,y,b,h : Integer;
    RowOut: ^TMyHelp;
    help: TBitmap;
begin
  Bitmap.PixelFormat := pf32bit;
  help := TBitmap.Create;
  try
    help.PixelFormat := pf32bit;
    b := bitmap.Height;
    h := bitmap.Width;
    help.Width := b;
    help.height := h;
    for y := 0 to (h-1) do
    begin
      rowOut := help.ScanLine[y];
      P  := Bitmap.scanline[bitmap.height-1];
      inc(p,y);
      for x := 0 to (b-1) do
      begin
        rowout[x] := p^;
        inc(p,h);
      end;
    end;
  finally
    bitmap.Assign(help);
    help.Free;
  end;
end;

ich will mein bild aber auch in die andere richtung drehen, also entweder in -90° oder in 270°
wie ist das möglich?

[Popov]

Versuch mal etwas mit for x zu machen.

[resyiii]

hab was versucht, programm bricht aber immer zusammen

[Popov]

Warum?

[Bummi]

http://www.delphipraxis.net/165404-b...ll-drehen.html #7
eine neuere Unit ist auch enthalten in
http://www.delphipraxis.net/167172-r...-ausgeben.html

[zeina]

Hallo,
ich habe noch dies Problem,gibt es jemanden mir ein paar tipp zu geben??