Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1230
  • Last Modified:

Create Image Object at run time

I want to add images as needed at run time to a form.  I tried:
x=createobject('Image')
x.name='image2'
x.picture='c:\discipline.bmp'
x.left=25
x.Top=25
x.height=20
x.Width=20
x.visible=.t.

No error is generated nor does my image appear.
Can this be done?
0
wcsoctu
Asked:
wcsoctu
  • 2
1 Solution
 
pcelbaCommented:
The Image object must be on some form, try e.g. following code:


PUBLIC oForm
oForm = CREATEOBJECT("ImageForm")
oForm.Visible = .T.
*oForm.Image2.PictureVal = cImg.exp  && Image in Memo field
oForm.Image2.Picture = 'c:\discipline.bmp'


DEFINE CLASS ImageForm AS Form
  
  ADD OBJECT Image2 AS Image ;
      WITH Top = 0, Left = 0, ;
           Height = 300, Width = 500, ;
           Stretch = 2

ENDDEFINE

Open in new window

0
 
pcelbaCommented:
You may also create object in the screen window (same code is possible to use in any other form):

_screen.AddObject('image1','Image')
_screen.image1.Top = 0
_screen.image1.Left = 0
_screen.image1.height = 300
_screen.image1.width = 300
_screen.image1.stretch = 2
_screen.Image1.Picture = 'c:\discipline.bmp'
_screen.image1.visible = .t.

Open in new window

0
 
wcsoctuAuthor Commented:
Using your second example with thisform instead of _screen I was able to accomplish it.  I want to add an unknown number of images at run time.   Thank You
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now