Копирование из TImage в TPaintBox
Здравствуйте!
Столкнулась вот с какой проблемой: загружаю картинку размера 736х600 в TImage, размером 500х500 (Proportional и Stretch - true). Если картинка прямоугольная, то она занимает не весь квадрат TImage, при этом изображение не обрезается и его пропорции сохраняются.
Далее мне нужно скопировать то, что я вижу в TImage, на канву TPaintBox размера 500х500 (т.е. получить рядом две совершенно одинаковые картинки). Так вот, именно этого я сделать не в состоянии - что я ни пробую, результат всё время один и тот же - в PaintBox отображается только часть исходного изображения, размером 500х500.
Как мне заставить программу полностью копировать именно то, что я ВИЖУ на TImage, а не то, что туда впихнули ?
Заранее спасибо всем откликнувшимся!
|