Как из TImage удалить картинку?

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Dr_Grizzly
Сообщения: 407
Зарегистрирован: 13 сен 2004, 12:05
Откуда: Курган
Контактная информация:

Всем привет! Такая вот зараза эта TImage, загружаю в него картинку через OpenDialog, в свойствах Image стоит Stretch, AutoSize и Proportional = true. Загружаю в его картинку размерм 400х400, все ништяк, загружаю в него же картинку 300х300 происходит косяк, остальные 100х100 отображаю старую картинку, т.е. произошло наложение картинок разных размеров. Как этого избежать? В идеале нужно вернуть первоначальный вид компонента Image, как-будто в него ничего не грузили еще.

Код: Выделить всё

Image1.Canvas.StretchDraw(Rect(0,0,x,y),I1_Pic.Picture.Graphic);

где x и y это размеры картинки. 400х400 и т.д.
ПРобовал закрасить фоном формы, получается что при загрузки второй картинки у меня рамка больше чем сама картинка.
Чем проще - тем оригинальней, а значит гениально, т.к. все гениальное - просто! ;) Да! Кстати! Ctrl+V реально вставляет!!! ХDD
Dr_Grizzly
Сообщения: 407
Зарегистрирован: 13 сен 2004, 12:05
Откуда: Курган
Контактная информация:

Ура! Я опять нашел выход )))

Image1.Picture:=nil;
Чем проще - тем оригинальней, а значит гениально, т.к. все гениальное - просто! ;) Да! Кстати! Ctrl+V реально вставляет!!! ХDD
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

ты вц попробуй учебик по Delphi почитать причём любой..
Ответить