Скачать: CL | DM;

Как сделать, чтобы 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)
> Борис уже давно запостил смайлик. :-)

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

---

← →
boalse ©   (2006-07-04 08:00) [7]

fillRect

---

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

boalse  ©   (04.07.06 08:00) [7]

Не... Нето.

---

← →
Zeqfreed ©   (2006-07-04 14:03) [9]

Visible := false;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.036 c