Поворот изображения

← →
Игорь Г. (2003-08-08 00:21) [0]

Подскажите пожалуйста, как перевернуть изображение в компоненте TImage на 90 градусов? Или как перевернуть TBitmap или jpeg?

← →
MBo © (2003-08-08 06:45) [1]

С помощью ScanLine или
http://www.delphimaster.ru/articles/pixels/index.html

← →
Zev (2003-08-08 07:43) [2]

http://www.bcbdev.ru/cbuilder/articles/bmprotation/bmprotation.htm

← →
Fenik © (2003-08-08 11:23) [3]

procedure Rotate90(Bitmap: TBitmap);
var x, y, W, H: Integer;
Dest: pRGBTriple;
VertArray: array of pByteArray;
Bmp: TBitmap;
begin
Bitmap.PixelFormat := pf24Bit;
Bmp := TBitmap.Create;
try
Bmp.Assign(Bitmap);
W := Bitmap.Width - 1;
H := Bitmap.Height - 1;
Bitmap.Width := H + 1;
Bitmap.Height := W + 1;
SetLength(VertArray, H + 1);
for y := 0 to H do VertArray[y] := Bmp.ScanLine[H-y];
for x := 0 to W do begin
Dest := Bitmap.ScanLine[x];
for y := 0 to H do begin
with Dest^ do begin
rgbtBlue := VertArray[y, x*3];
rgbtGreen := VertArray[y, x*3+1];
rgbtRed := VertArray[y, x*3+2];
end;
Inc(Dest);
end;
end
finally
Bmp.Free;
end;
end;

Поворот изображения Найти похожие ветки