Subject Re: Display Images on the form from a local imagefolder
From AGOSTINHO <AGOSTINHOTEIXEIRA@YAHOO.COM>
Date Fri, 22 Sep 2023 22:47:20 -0400
Newsgroups dbase.getting-started

A special thanks to all of you that helped me out with this issue.
I will work around it to see witch of these options will work better for me.
Have a wonderful day/night.
Agostinho

Akshat Kapoor Wrote:

> Good Morning Agostinho,
 > > I've been trying to use images from my computer directory location but
 > > can't get it to work.
 > >
> > I added a character field named "imagefolder" to my fish4.dbf file and wrote the image files name to this particular record "C:\Users\HOME_PC\Desktop\blueangelfish.png"
 > >
> > Dropped an image controle  from the componed pallete  to the form
 > > and have programmed an onNavigate function into the form.
 > >
> > this.IMAGE1 = new IMAGE(this)
 > >     with (this.IMAGE1)
 > >        height = 4.84
 > >        left = 73.1111
 > >        top = 3.96
 > >        width = 17.8889
 > >     endwith
 > >
> > function form_onNavigate(nWorkArea)
 > >               local cImageFileName
 > >               // Assuming I have a field in my table that contains image file paths
 > >              cImageFileName = form.fish41.rowset.fields["imagefolder"]
 > >              // Image control's ImageFile property to display the image
 > >            this.image1 = cImageFileName
 > >    return
 >
> The code I use
 >
>  
 > disp_image(alltrim(form.invedatamodule1.photo.rowset.fields["path"].value)
> ,alltrim(z["company"].value)+" " + alltrim(z["item"].value) + " "+
> alltrim(z["descrip"].value) )
 >
>
> function disp_image
 >     parameters mfile , title
 >     ?mfile
 >     ?title
 >     local image_f
 >     image_f = new form()
 >     with image_f
 >        height = 22.7273
 >        left = 5.7143
 >        top = 0.0
 >        width = 142.0
 >        text = iif(type('title') = "C","Photo of "+alltrim(title),"Photo
> of ")
 >     endwith
 >
>     image_f.IMAGE1 = new IMAGE(image_f)
 >     with (image_f.IMAGE1)
 >        height = 22.6364
 >        left = 0.0
 >        top = 0.0
 >        width = 142.0
 >        dataSource = [FILENAME "]+mfile+["]
 >        ?datasource
 >        alignment = 3        // Keep Aspect Stretch
 >        anchor = 3        // Left
 >     endwith
 >     image_f.mdi = false
 >     ?"Going to open form"
 >     image_f.readmodal()
 >     image_f.release()
 > return true
 >
>
> It is working perfectly.
 >
> Watch for wordwrap.
 > Note the property datasource and use of keyword Filename.
 >
> Test it and then customise it according to your needs.
 >
> Another line that is working well.
 >
> mform.image1.dataSource = 'FILENAME "'+
> form.e_invedatamodule1.photo.rowset.fields["path"].value +'"'
 >
> Please take note of delimiters. They require special handling.
 > mform.image1.dataSource = 'FILENAME "myfile.jpg"'
 >
> should be the net result.
 >
> Regards
 > Akshat