refreshform Method
Object: frmcategory
Expand/Collapse source code of procedure refreshform Source Code
LOCAL lcFile

IF FILE(category.picture_file)
	lcFile = category.picture_file
ELSE
	lcFile = ''
ENDIF

this.pageframe1.page1.imgPicture.Picture = lcFile
tsBaseForm::RefreshForm()