title image


Smiley Re: bitmaps rotieren
procedure Drehen90Grad(Bitmap:TBitmap);var P       :PRGBQuad; //^THelpRGB;    x,y,b,h :Integer;    RowOutstyle="mso-spacerun: yes">  : ^TMyHelp;    helpstyle="mso-spacerun: yes">    : TBitmap; BEGIN   Bitmap.PixelFormat:= pf32bit;   help :=TBitmap.Create;   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];     Pstyle="mso-spacerun: yes">  := Bitmap.scanline[bitmap.height-1];     inc(p,y);     for x := 0 to(b-1) do begin        rowout[x] :=p^;        inc(p,h);     end;   end;  bitmap.Assign(help);end; procedure Drehen180Grad(Bitmap:TBitmap);var i,j     :style="mso-spacerun: yes">  INTEGER;    rowIn :style="mso-spacerun: yes">  pRGBArray;    rowOut:style="mso-spacerun: yes">  pRGBArray;    helpstyle="mso-spacerun: yes">  : TBitmap; begin   help :=TBitmap.Create;   help.Widthstyle="mso-spacerun: yes">  := Bitmap.Width;   help.Height :=Bitmap.Height;   help.PixelFormat:= Bitmap.PixelFormat;    // onlypf24bit for now   FORstyle="mso-spacerun: yes">  j := 0 TO Bitmap.Height - 1 DO BEGIN     rowInstyle="mso-spacerun: yes">  := Bitmap.ScanLine[j];     rowOut :=help.ScanLine[Bitmap.Height - j - 1];     FOR i := 0 TOBitmap.Width - 1 DO rowOut[Bitmap.Width - i - 1] := rowIn[i]   END;  bitmap.assign(help);   help.free;end;

Gruss anubis

Rechtschreibfehler sind geistiges Eigentum des Authors und dürfen ohne ausdrückliche Erlaubnis weder verändert oder kopiert werden.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: