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;