Display an image based on the on the contents of a database field.

[BEAMER]

Re: Display an image based on the on the contents of a database field.

Thanks Tom .. now to digest it .. Don

[Ray in Capetown]

Re: Display an image based on the on the contents of a database field.

Nice example Tom
I cant see how one could use that technique for a number of records in one view - say browse or report?
Do you have any ideas?

[Tom Henkel]

Re: Display an image based on the on the contents of a database field.

Ray,
Never had the need, but I'll think about it...

[Tom Henkel]

Re: Display an image based on the on the contents of a database field.

Ray, for a browse how about an on_click or on_doubleclick event that would pop up a dialog with the image?

We do something similar with an on_fetch event when we need to identify a client immediately. Under certain circumstances, the image is popped up with a message for the front desk clerks so they can notify the caseworkers.
The code is somewhat sloppy, but it accomplishes its purpose.

		dim pict1 as C
		pict1 = ""
		if .not.exist(tbl1.SSN,"G:\CASEREG\image.dbf","ssn") then
			'ui_msg_box(trim(aa.bcbss.agency)+" Client Information System","No Image Record exists for this Client")
			UI_MSG_BOX(aa.bcbss.agency+" - WARNING!!!!","ONLY interview on 1st Floor!!!"+chr(13)+chr(13)+"See CASE Folder for Details",16)
			end
		  else
		  	tbl2 = table.open("G:\CASEREG\image.dbf")
			tbl2.index_primary_put("ssn")
			tbl2.fetch_find(tbl1.ssn)
			if upper(tbl2.Alt_payee)="X"
				name1 = upper(trim(tbl2.alt_fname)+" "+trim(tbl2.alt_lname))+" - Auth Rep"
	 		  else
	 		  	name1 = upper(trim(tbl1.fname)+" "+trim(tbl1.lname))
			end if
			pict1 = tbl2.image
			tbl2.close()
		end if
		'pict1 = lookupc("F",client->SSN,"image","image.dbf","ssn")
		if pict1 <>""
			oldfile = "G:\IMAGES"+chr(92)+trim(pict1)+".jpg"
			if .not. file.exists(oldfile)
				UI_MSG_BOX(aa.bcbss.agency+" - WARNING!!!!","ONLY interview on 1st Floor!!!"+chr(13)+chr(13)+"See CASE Folder for Details",16)
				end
			end if
		  else
			UI_MSG_BOX(aa.bcbss.agency+" - WARNING!!!!","ONLY interview on 1st Floor!!!"+chr(13)+chr(13)+"See CASE Folder for Details",16)
			end
		end if
		'new code for xdialog inserted here
		f = file.open(oldfile,FILE_RO_SHARED)
		ui_bitmap_load("temp",f.readb(10000000))
		f.close()
		Dim msg1 as C = " - WARNING - ONLY interview on 1st Floor!!!"
		dim msg2 as C = "See CASE Folder for Details"
		ui_dlg_box(name1,<<%dlg%
		
		{lf};
		{justify=center}
		{font=arial,12,b}{color=Red on Gray}{text=70,msg1};
		{image=temp}; 
		{lf};
		{text=50,msg2}{Color=Black on Gray}{font=arial,8,n}
		{lf};
		<*15&Close>
		%dlg%)
		ui_bitmap_drop("temp")
		delete msg1
		delete msg2
		delete name1

For a report, I'll think about it.

Tom

[Ray in Capetown]

Re: Display an image based on the on the contents of a database field.

Thanks Tom
I was asked to quote for something that will work like a microfiche - remember that screen at the motor dealer where they would insert a slide to pull up the pictorial explosion of your car engine or door, showing the exploded diagram of components?
We want here to call up the model of say a domestic washing machine listing the components but each with a picture so the customer can point to the correct part that he needs to replace.

[Tom Henkel]

Re: Display an image based on the on the contents of a database field.

Ray,

I just put code into an on_doubleclick event for our employee browse. It searches out the employee photo ID based on their employee number, then it builds an xdialog that will show the employee.

For your parts breakdown, you could use the same idea; show the part # and description in the browse, then when the customer thinks they have the right one, double click and see if it is correct.

resultant screen attached. (pardon the picture, its me...) doubleclick.jpg
Code:

dim name1 as C = ""
tc = table.current()
name1 = trim(tc.wname)
G_EMP = table.open("g:\bcbss\employee\g_employ.dbf",FILE_RO_SHARED)
g_emp.index_primary_put("Emp_ID")
found = G_EMP.fetch_find(tc.Emp_ID)
if found >0
	badgeno = G_EMP.badge_no
	dim Shared pict AS C
	dim bmpfile as C
	pict = alltrim(str(badgeno,9,0))
	bmpfile = "g:\bcbss\photo"+chr(92)+trim(pict)+".jpg"
		
	if .not.file_exists(bmpfile) then
		bmpfile = "g:\bcbss\photo"+chr(92)+"not_avail.jpg"
	end if
  else
  	bmpfile = "g:\bcbss\photo"+chr(92)+"not_avail.jpg"
end if
g_emp.close()
'bmpfile = lookupc("F",client->SSN,"image","image.dbf","ssn")

		'new code for xdialog inserted here
		f = file.open(bmpfile,FILE_RO_SHARED)
		ui_bitmap_load("temp",f.readb(10000000))
		f.close()
		Dim msg1 as C = name1
		dim msg2 as C = "~~~~~~~~~~~~~~~~~~~"
		ui_dlg_box("EMPLOYEE PHOTO",<<%dlg%
		
		{lf};
		{justify=center}
		{font=arial,12,b}{color=Red on Gray}{text=70,msg1};
		{image=temp}; 
		{lf};
		{text=20,msg2}{Color=Black on Gray}{font=arial,8,n}
		{lf};
		<*15&Close>
		%dlg%)
		ui_bitmap_drop("temp")
end 
delete bmpfile
delete name1
delete pict
delete badgeno

[Ray in Capetown]

Re: Display an image based on the on the contents of a database field.

Good one
Actually yes I can see it work.
In the header - a picture of the machine AND a picture of all components laid out in relative position as they fit together inside the machine.
They will appear very small but identifiable. The double click on the row will show a clearer picture of the part (better than if every row has a small picture).
Thanks for all the effort Tom IOU1

[CharlesParker]

Re: Display an image based on the on the contents of a database field.

Ray, this idea could be built using hotspots. Just something to consider - good luck sounds like a really cool project

[Ray in Capetown]

Re: Display an image based on the on the contents of a database field.

Mmmm?
An imaginarium
Or a rollover
Probably Toms idea with button on each row instead of double click.

[CharlesParker]

Re: Display an image based on the on the contents of a database field.

Yes, an imaginarium - I like it.
I found this You-Tube video which is a good tutorial for when you (or anyone for that matter) gets stuck in alpha5
Programmers Guide to Decision Making