>DODEFAULT() >*** Add the image to column1 >SELECT v_sPatients >SCAN > IF NOT EMPTY( cIcon ) > THIS.colCustom1.AddObject( "img" + ALLTRIM( cIcon ), "Image" ) > ELSE > THIS.colCustom1.AddObject( "imgUnknown", "Image" ) > ENDIF > THIS.colCustom1.Controls[ THIS.colCustom1.ControlCount ].Picture = ALLTRIM( cIcon ) + '.bmp' > THIS.colCustom1.Controls[ THIS.colCustom1.ControlCount ].Stretch = 2 > THIS.colCustom1.Controls[ THIS.colCustom1.ControlCount ].BackStyle = 0 >ENDSCAN >THIS.colCustom1.DynamicCurrentControl = [IIF( NOT EMPTY( v_sPatients.cIcon ), "img" + ALLTRIM( v_sPatients.cIcon ), "imgUnknown" )] >>