24-Bit Bitmap um 90 grad drehen - Resourcen-Optimierung

[Harry Stahl]

Habe das mit den Füllbytes noch mal aufgegriffen und mache die Höhe oder Breite passend.

Von einem Test-Bitmap mit Breite = 2348 und Höhe= 3181 wird dann aus der Höhe 3184. Wenn ich nun die Bytes des alten Bitmaps in die vergrößerte Bitmap kopiere, wird alles kopiert und ich kann das Bitmap danach auch weiter drehen.

Allerdings: Ich habe eine um 3 Pixel vergrößerte Bitmap. Wenn ich die dann wieder kürze, gibt es aber beim nächsten Mal drehen ein Problem mit der Anzeige.

Wie macht man das wohl richtig?

Delphi-Quellcode:

procedure Drehe90Rechts24 (bm: TBitmap);
type
  TMyHelp = array [0..0] of TRGBTriple;
var
  P, Pend : PRGBTriple; x, y, b, h, oldw, oldh: Integer;  RowOut: ^TMyHelp;  help: TBitmap;
begin
  help := TBitmap.create;
  help.pixelformat := pf24bit;

  oldw := bm.Width;
  oldh := bm.Height;

  b := bm.height;
  h := bm.width;

  if bm.Width mod 4 <> 0 then
     h := ((bm.Width div 4) * 4) + 4;
   if bm.Height mod 4 <> 0 then
     b := ((bm.Height div 4) * 4) + 4;

  help.SetSize (b, h);
  PEnd := Bm.scanline[bm.height-1];

  for y := 0 to bm.width-1 do begin

    rowout := help.scanline [y];
    p := PEnd;
    inc (p, y);

    for x := 0 to bm.height-1 do begin
      rowout [x] := p^;
      inc (p, bm.Width);
    end;

  end;

  bm.Assign (help);
  //bm.SetSize(oldh, oldw);
  //BitBlt(bm.canvas.handle, 0,0, bm.Width, bm.Height, help.canvas.handle, 0,0, SRCCopy); // funktioniert nur beim 1. drehen
  help.free;
end;