Код: Выделить всё
LOC:OldPicFile = LOC:PicFile
lx# = len(clip(LOC:PicFile))
loop x#=lx# to 1 by -1
if LOC:PicFile[x#] = '\'
setpath(LOC:PicFile[1:x#-1])
LOC:PicFile = LOC:PicFile[x#+1:lx#]
break
end
end
if filedialog('Выбор файла',LOC:PicFile,'Файлы изображений|*.bmp;*.gif;*.jpg;*.pcx;*.wmf',FILE:LongName)
?Image1{Prop:Text} = LOC:PicFile
else
LOC:PicFile = LOC:OldPicFile
end
display(?LOC:PicFile)
display(?Image1)