How to test if a TImage has a graphic assigned to it?

Question

There's a TImage component on a form in my program.

In some situation, the program must test:

If "there is an image assigned to the picture property of the TImage component" then ...

How can I do this?

Gabriel · Answer 1 · 2019-04-09T11:04:43.693

3

if Image1.Picture.Graphic = NIL 
then ShowMessage("There is no image.")
else ShowMessage("Image found.");

If working with bitmaps, you can also do this:

if Image.Picture.Bitmap.Empty then ShowMessage("There is no spoon");

edited Apr 09 '19 at 11:04

answered Jul 13 '11 at 17:42

Gabriel

1

`if NOT Image.Picture.Empty then DoStuff` as the OP asked to run `DoStuff`only when there's a picture. – Fabricio Araujo Jul 13 '11 at 21:11
2

@FabricioAraujo - I just supposed that the OP knows how to adjust the code (use a negation) to adapt it for its needs :) – Gabriel Apr 09 '19 at 11:12

score 2 · Answer 2 · answered Feb 06 '15 at 22:43

2

Better late than never!
The right way is:

if Assigned(Image1.Picture.Graphic) then ...

answered Feb 06 '15 at 22:43

Xalo

score 0 · Answer 3 · answered Jun 23 '10 at 08:00

0

You don't say, but I'll assume you're talking about Delphi.

You can check whether there's a bitmap in the TImage control by testing:

if Image.Picture.Bitmap.Width > 0 then
  // do whatever

answered Jun 23 '10 at 08:00

Rob McDonell

I think that testing for the presence of the object itself is better than testing for one of the properties of that object. – Gabriel Apr 09 '19 at 11:07

3 Answers3