DrawRotate

← →
Nostradamus © (2002-10-12 21:53) [0]

Как перевернуть картинку не находящуюся в TDXImageList, а просто подгружаемую мной вручную. Нашёл ещё DrawRoate у TDXDraw.Surface, но чё-то оно у меня не переварачивает ничего... :-(

← →
Nostradamus © (2002-10-12 23:15) [1]

Только что загрузил FastLib при попытке переворота и прорисовке графики вообще вся прога виснет.

← →
MBo © (2002-10-14 08:04) [2]

Какую именно картинку надо перевернуть? Bmp?

← →
Nostradamus © (2002-10-18 16:46) [3]

Да Bmp ну или Dib (хотя по большому счёту какая разница)

← →
MBo © (2002-10-18 16:48) [4]

StretchBlt c отриц. высотой

← →
Nostradamus © (2002-10-18 21:28) [5]

>Mbo
Блин не знаю, уже чё только не перепробовал. Чё-то я торможу. Подскажи что я тут не так делаю???

var B : TBitmap; TempBmp : TBitmap; begin ... TempBmp := TBitmap.Create; TempBmp.Width := 144; TempBmp.Height := 142; TempBmp.LoadFromFile(FileName); B := TBitmap.Create; B.Width := 144; B.Height := 142; StretchBlt(B.Handle, 0, 0, 144, -142, TempBmp.Handle, 0, 0, 144, 142, SRCCOPY); ... end;

← →
Gandalf (2002-10-18 22:36) [6]

Попробуй:
B.Canvas.CopyRect(Rect(0,142,144,0),TempBmp.Canvas,Rect(0,0,144,142));

← →
Nostradamus © (2002-10-20 20:05) [7]

>Gandalf
Огромное спасибо - сработало.

← →
Nostradamus © (2002-10-20 20:29) [8]

Хотя... хм... всё равно не совсем то оно таким образом делает флип как бы, а мне нужно её перевернуть на 90 градусов.

← →
Gandalf (2002-10-20 21:06) [9]

>Хотя... хм... всё равно не совсем то оно таким образом делает >флип как бы, а мне нужно её перевернуть на 90 градусов.

Извини но ты просил (см. выше)

>...Как перевернуть картинку не находящуюся
^^^^^^^^^^^
ПОвернуть (Rotate,Revolve) и ПЕРЕвернуть (Mirrow,Flip) - это разные вещи.
А девяносто градусов это тоже не сложно - но тут тебе CopyRect не поможет - надо по пикселям работать.

← →
Nostradamus © (2002-10-20 21:40) [10]

>Gandalf
Ну дык как с этими пикселями работать чтоб картинку на 90 градусов перевернуть???
Я могу предположить что нужно просто в цикле пройтись по всем пикселям нарисовать их в нужном месте на другом битмапе, но как то это звучит коряво, может есть способ получше?

Вот набросал код для переворота на 90 градусов попиксельно. Код работает, НО только для квадратных рисунков, а вот для рисунков произвольного размера чё-то никак алгоритм не шифрану...

procedure TMain.Rotate90n(const Src : TBitmap; var Dest: TBitmap; K: Integer); var I, J, N : Integer; B : TBitmap; begin if (K < 1) or (K > 3) or (not Assigned(Src)) or (not Assigned(Dest)) then Exit; B := TBitmap.Create; B.Assign(Src); for N := 1 to K do begin Dest.Width := B.Width; Dest.Height := B.Height; for I := 0 to Dest.Width do for J := 0 to Dest.Height do Dest.Canvas.Pixels[I, J] := B.Canvas.Pixels[J, B.Height + 1 - I]; B.Assign(Dest); end; B.Free; end;

В StretchBlt используется не Bitmap.Handle, а Bitmap.Canvas.Handle - но этот метод подходит для горизонтального или вериткального отражения.
Для поворота на 90*N градусов можно использовать присвоение цветов, подобное описанное Nostradamus, для увеличения скорости лучше пользоваться Scanline.
Алгоритм для поворота неквадратной - если Src размером M*N, то
результат N*M

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035159435&n=9

Желаю успехов

>Rouse_
для 90*N градусов этот алгоритм невыгоден по скорости и может давать неприятный сдвиг на пиксел из-за ошибок округления.

DrawRotate Найти похожие ветки