TImage ZOOM

← →
able © (2004-02-14 13:23) [0]

Здраствуйте, уважаемые коллеги!
Как сделать zoom для TImage?
Использовал TJPEGImage(..).scale:=... но там только 4 параметра... Может кто знает, как сделать типа 10% от картинки и т.д.

← →
Fenik © (2004-02-14 14:29) [1]

Перевести в TBitmap и далее уменьшать стандартными средствами.

← →
able © (2004-02-14 15:18) [2]

>Перевести в TBitmap и далее уменьшать стандартными средствами.
А можно поподробнее об "стандартных средствах"?

← →
Fenik © (2004-02-14 15:25) [3]

>able © (14.02.04 15:18) [2]

Canvas.CopyRect или StretchBlt

← →
Fenik © (2004-02-14 15:30) [4]

Кстати, можно ни куда не переводить, а работать прямо с TImage:
TImage.Stretch := True; - а дальше меняешь размеры имага.

Просто я не люблю этот компонент, вот и посоветовал немного не в тему.

>А какой ты компонент используешь?

Свой. Или просто TBitmap. Иногда TPaintBox.

TImage ZOOM Найти похожие ветки