Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

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

 
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 нужно местами менять


 
Fostr ©   (2002-12-21 21:31) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
7-88276
NewGuest
2003-01-30 16:17
2003.03.27
Вопрос по LPT. Длительность посылаемого сигнала.


7-88253
CRACKISH
2003-01-28 20:20
2003.03.27
Отключение в XP?????????????


1-87991
Yozch_
2003-03-13 22:04
2003.03.27
Как узнать ширину текста в Label.caption и пикселах?


3-87849
Rule
2003-03-10 21:17
2003.03.27
Необходимо поставить Фаербёрд сервер под виндой.


1-87896
Delphi5.01
2003-03-16 09:01
2003.03.27
String to Procedure Name