Главная страница
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.017 c
1-87906
TY
2003-03-17 02:28
2003.03.27
Как добавить в PopupMenu линию разделитель между пунктами


1-88060
Anar
2003-03-12 15:09
2003.03.27
Мигание заголовка окна


14-88194
Alexsys
2003-03-11 08:55
2003.03.27
Литература по TCP, портам и т.д.


3-87851
Shurko
2003-03-05 20:37
2003.03.27
Работа с укр. шрифтом


14-88218
Anonimus
2003-03-11 10:17
2003.03.27
Уважаемые мастера!!! Подскажите плиз как перезагрузить комп