Советы по Delphi
Вращение изображения
Вот быстрый и примитивный способ вращения изображения. Должно работать. По крайней мере хоть какой-то выход из-положения, поскольку Windows этого делать не умеет. Но сначала попробуйте на небольший изображениях.
| procedure RotateRight(BitMap : tImage);var FirstC, LastC, c, r : integer; procedure FixPixels(c,r : integer);var SavePix, SavePix2 : tColor;i, NewC, NewR : integer;beginSavePix := Bitmap.Canvas.Pixels[c,r];for i := 1 to 4 do beginnewc := BitMap.Height-r+1;newr := c;SavePix2 := BitMap.Canvas.Pixels[newc,newr];Bitmap.Canvas.Pixels[newc,newr] := SavePix;SavePix := SavePix2;c := Newc;r := NewR;end;end; beginif BitMap.Width <> BitMap.Height then exit;BitMap.Visible := false;with Bitmap.Canvas do beginfirstc := 0;lastc := BitMap.Width;for r := 0 to BitMap.Height div 2 do beginfor c := firstc to lastc do beginFixPixels(c,r);end;inc(FirstC);Dec(LastC);end;end;BitMap.Visible := true;end; |
-Mike Williams [000715]
