1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

TDrehargument = (90grad,180grad,270grad);

type TDrehbild = class(Timage)
 private
  tempmap : TBitmap;
  procedure 90drehen;
  procedure 180drehen;
  procedure 270drehen;
 public
    procedure drehen(argument:TDrehargument);


procedure TDrehbild.drehen(argument:TDrehargument);
begin
if argument = 90grad then 90drehen;
if argument = 90grad then 180drehen;
if argument = 90grad then 270drehen;
end;

procedure TDrehbild.90drehen;
var
xx,yy : integer;
begin
tempmap := TBipmap.create;
tempmap.assign(picture.bitmap);
  with tempmap do begin
     for xx := 0 to tempmap.width do begin
       picture.bitmap.pixels[xx,0] := pixels[yy,xx]
       inc(yy);
     end;
  end;
tempmap.free;

  // hier wird nun gedreht...
  // Ich zeige das exemplarisch für die erste Zeile der 90Grad Drehung
  // da ich das hier nicht als Quellcode gepasted habe sondern direkt
  // tippe das wird so nur voller Fehler :-) Und es ist schon spääät.... 

  end;
end;

procedure TDrehbild.180drehen;
begin
//   hier wird nun gedreht...
end;

procedure TDrehbild.270drehen;
begin
//   hier wird nun gedreht...
end;					

1:
2:
3:
4:

var
  bild : TDrehBild;

bild.drehen(270grad);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type
  TRGBTripleArray = array[0..32768] of TRGBTriple;
  pRGBTripleArray = ^TRGBTripleArray;
...

procedure Proc_BildDrehen90Grad(Bitmap:TBitmap);
//bild um 90° drehen
var src,dest: pRGBTripleArray;
    srcx,srcy,breite,hoehe : Integer;
    Hilfsbitmap    : TBitmap;
    UrsprungSrc,UrsprungDest      :  pRGBTripleArray;
    ScanlineBytesSrc,ScanlineBytesDest :  Integer;
BEGIN
   Bitmap.PixelFormat := pf24bit;
   Hilfsbitmap := TBitmap.Create;
   try
     Hilfsbitmap.PixelFormat := pf24bit;
     breite            := bitmap.Width;
     hoehe             := bitmap.Height;
     Hilfsbitmap.Width := hoehe;
     Hilfsbitmap.height:= breite;

     UrsprungSrc      := Bitmap.Scanline[0];
     ScanlineBytesSrc := Integer(Bitmap.Scanline[1]) - Integer(UrsprungSrc);
     UrsprungDest     := Hilfsbitmap.Scanline[0];
     ScanlineBytesDest:= Integer(Hilfsbitmap.Scanline[1]) - Integer(Ursprungdest);
     //y-Achse
     for srcy := 0 to (hoehe-1) do
       begin
         src  := pointer(integer(UrsprungSrc)+srcy*ScanlineBytesSrc);
         //x-achse
         for srcx := 0 to (breite-1) do
           begin
             dest := pointer(integer(UrsprungDest)+srcx*ScanlineBytesDest);
             dest[hoehe-1-srcy] := src[srcx];
           end;
       end;
     bitmap.Assign(Hilfsbitmap);
   finally
     Hilfsbitmap.Free;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  with RotateImage do begin
    RotateImage.Picture.LoadFromFile(BildDateiName);
    Angle:=0;//Winkel...
    AutoSize:=false;
    Center:=True;
    Stretch:=True;
    UniqueSize:=false;

    Width:=100;
    Height:=100;
    Left:=Trunc((MainForm.ClientWidth-RotateImage.Width)/2);
    Top:=Trunc((MainForm.ClientHeight-RotateImage.Height)/2);
    Invalidate;
  end;