[danswin]

Всем привет.
Научился сохранять в базу картинки супер, вытаскивать еще супер, а вот щас вопрос:
Есть DBImage1 в нем отображается изображение как мне это изображение с помощью вызванной кнопки функции развернуть изображение на 90 градусов (-90 или 90) ?

[danswin]

Вот я тут нарыл нужно както убыстрить перемешение кто поможет?

procedure TForm1.Button2Click(Sender: TObject);
var bmp:tbitmap;
i,j:integer;

begin
bmp:=tbitmap.Create;
bmp.Height:=DBImage1.Picture.Bitmap.Width;
bmp.Width:=DBImage1.Picture.Bitmap.Height;

for i:=0 to DBImage1.Picture.Bitmap.Height-1 do
for j:=0 to DBImage1.Picture.Bitmap.Width-1 do
bmp.Canvas.Pixels[i,j]:=DBImage1.Picture.Bitmap.Canvas.Pixels[j,i];

DBImage1.Picture.Assign(bmp);
bmp.Free;
end;