| GetWebWise 2004-09-29, 3:55 pm |
| I have a list of products which includes a picture of each item. I have stored
each pic in a blob and then can display them on the update form.
I now would like to display each image on the Browse, when its record is
highlighted in its list box.
I am using the following code with no result:-
!Display photo from stored BLOB
?Image1{PROP:NoWidth} = TRUE
?Image1{PROP:NoHeight} = TRUE
IF SELF.OriginalRequest <> InsertRecord
?Image1{PROP:ImageBlob} = PRO:Photograph{PROP:Handle}
ELSE
?Image1{PROP:Text} = 'NoPhoto.BMP'
PhotoChanged = TRUE
END
DO DisplayImage
This the PROCEDURE ROUTINE used
DisplayImage ROUTINE !Display photo maintaining aspect ratio - Checked OK
IF ?Image1{PROP:Height} > 170
AspectRatio$ = ?Image1{PROP:Width}/?Image1{PROP:Height}
?Image1{PROP:Height} = 170
?Image1{PROP:Width} = 170 * AspectRatio$
END
IF ?Image1{PROP:Width} > 170
AspectRatio$ = ?Image1{PROP:Height}/?Image1{PROP:Width}
?Image1{PROP:Width} = 170
?Image1{PROP:Height} = 170 * AspectRatio$
END
It may be that I am placing the code in the wrong embed point or my priority
level is wrong or both, or I am completely off track.
If someone would help me, I would really appreciate it.
|