try
p_1.visible = true
p_1.picturename = ls_open
// integer fh
// blob Emp_pic
//
// fh = FileOpen(ls_open, StreamMode!)
// IF fh <> -1 THEN
// FileRead(fh, Emp_pic)
// FileClose(fh)
// if p_1.SetPicture(Emp_pic)=-1 then
// MessageBox('try','Файл никак не подходит для системы.')
// end if
// END IF
p_1.visible = false
catch (Exception er)
p_1.picturename=''
MessageBox('catch','Файл не подходит для системы.~r~n'+er.GetMessage())
er.setmessage('Не подходит')
return -1
finally
p_1.picturename=''
end try