Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > StretchDraw

Автор: ASPMaster 16.3.2007, 23:08

Почему при многократном выводе Bitmap'a на Канву с помощью StretchDraw картинка накладывается на Image1 в уменьшенном варианте, а не в прямоугольник 100х100?
Как сделать, чтобы картинка выводилась на канве в области 100х100, например.

Код


Image1.Canvas.StretchDraw(Rect(0,0,100,100),Image1.Picture.Bitmap);
Image1.Canvas.StretchDraw(Rect(0,0,100,100),Image1.Picture.Bitmap);
Image1.Canvas.StretchDraw(Rect(0,0,100,100),Image1.Picture.Bitmap);

Автор: Snowy 17.3.2007, 01:52

Потому что ты выводишь его на самого себя.
Допустим у тебя картина 200х200.
Ты выводишь её на себя в размере 100х100.
В результате ты получаешь имадж 200х200, из которых имага занимает четверть.
Повторяем - 1х16-я
Повторяем - 1х64-я...
Размеры имаги не меняются. Меняй размеры - получишь нужный результат.
Либо раздели источник и результат.