Поворачиваем картинку, а потом увеличиваем ее

← →
Fostr © (2002-12-20 23:21) [0]

Здравствуйте, уважаемые!
Прошу подсказать как быть в следующей ситуации!
Есть у меня картинка формата jpeg. Я ее загружаю программным образом в Image1. C помощью написанного мной кода:

procedure TForm1.SpeedButton5Click(Sender: TObject);
var ImWidth, ImHeight, DeltaHeight, DeltaWidth: integer;
TempPicture: TPicture;
begin
TempPicture:=Image1.Picture;
Image1.Stretch:=true;
ImWidth:=Image1.Width; {Присваиваем начальные размеры}
ImHeight:=Image1.Height;
DeltaHeight:=Trunc(ImHeight/10); {Считаем приращения, равное 10% от начальных размеров}
DeltaWidth:=Trunc(ImWidth/10);
Image1.Picture.Assign(TempPicture);
Image1.Height:=ImHeight+DeltaHeight;
Image1.Width:=ImWidth+DeltaWidth;
Image1.Picture:=TempPicture;
end;
можем увеличить картинку! НО! Если ее перед этим покрутить с помощью процедуры turnRight(src, dst: Tbitmap) из janFX.pas то
вышеуказанный код не работает :-(
ПОДСКАЖИТЕ В ЧЕМ ТУТ МОЖЕТ БЫТЬ ДЕЛО!!

← →
AlexT1000 (2002-12-21 10:17) [1]

что знач не работает?!
и вообще если turnRight это поворот на 90 градусов то Width и Height нужно местами менять

Не работает - это значит, что нет никакого эффекта увеличения. Картинка как есть повернутая со своим размером, так и остается сколько ни нажимай кнопочку. Про width, height - что-то не догадался, спасибо!

Поворачиваем картинку, а потом увеличиваем ее Найти похожие ветки