| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поворачиваем картинку, а потом увеличиваем ее [D5, Win95/98, Win2k]
Fostr © (2002-12-20 23:21:00)Здравствуйте, уважаемые!
Прошу подсказать как быть в следующей ситуации!
Есть у меня картинка формата 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 то
вышеуказанный код не работает :-(
ПОДСКАЖИТЕ В ЧЕМ ТУТ МОЖЕТ БЫТЬ ДЕЛО!!
Fostr (2002-12-21 21:31:00) [1]Не работает - это значит, что нет никакого эффекта увеличения. Картинка как есть повернутая со своим размером, так и остается сколько ни нажимай кнопочку. Про width, height - что-то не догадался, спасибо!
AlexT1000 (2002-12-21 10:17:00) [2]что знач не работает?!
и вообще если turnRight это поворот на 90 градусов то Width и Height нужно местами менять
| |
