Как сделать, чтобы TImage перестал отображать что-либо?

← →
Barvetal (2006-07-03 15:21) [0]

Всем привет!

Есть программа, содержащая компонент TImage на главной форме. Этот компонент в зависимости от ситуации показывает рисунки, загружаемые при помощи LoadFromFile.

Так вот. Есть ситуации, когда нужно, чтобы этот компонент ничего не показывал. Но я не знаю, как корректно стереть существующее изображение!!! У объекта Image нету методов по типу Clear(). Есть только Empty() у TImage.Picture.Graphic, но оно ReadOnly.

Что делать? Как стереть существующее изображение в TImage???

Всем заранее спасибо!

← →
MBo © (2006-07-03 15:23) [1]

Image.Picture := nil

← →
Barvetal (2006-07-03 15:56) [2]

Image.Picture:=nil;
Ага...
И дальше по коду:
PhotoImage.Picture.LoadFromFile(sPhotoFile)
которе вызовет AccessViolation.

Я вот думал сделать
Image.Picture.Graphic := nil.
Как вы думаете?

Или лучше сделать
Image.Picture:=nil;
а дальше по коду:
PhotoImage.Picture := TPicture.Create(Self); PhotoImage.Picture.LoadFromFile(sPhotoFile)

Но в этом случае может возникнуть ситуация, когда программа будет расширяться, и кто-то забудет создать TImage.Picture.

Вообщем, подскажите, пожалуйста, самое корректное решене.

← →
MBo © (2006-07-03 16:01) [3]

>которе вызовет AccessViolation.
А ты попробуй ;)

← →
Джо © (2006-07-04 03:47) [4]

> [2] Barvetal (03.07.06 15:56)
> Image.Picture:=nil;
> Ага...
> И дальше по коду:
> PhotoImage.Picture.LoadFromFile(sPhotoFile)
> которе вызовет AccessViolation.

Посмотри исходники метода TPicture.Assign (к вызову которого сводится TImage.Picture := nil) и TPicture.LoadFromFile. Будешь приятно удивлён :-)

← →
Германн © (2006-07-04 03:57) [5]

> Джо © (04.07.06 03:47) [4]
Будешь приятно удивлён :-)

Борис уже давно запостил смайлик. :-)

← →
Джо © (2006-07-04 03:59) [6]

> [5] Германн © (04.07.06 03:57)
> Борис уже давно запостил смайлик. :-)

Ну, это я на всякий случай показал Барветалю, где именно искать приятное удивление :)

fillRect

← →
Мефисто (2006-07-04 09:52) [8]

Visible := false;

Как сделать, чтобы TImage перестал отображать что-либо? Найти похожие ветки