Об prop:Width и prop:Height для Image
Добавлено: 16 Май 2011, 12:02
Есть контрол Image. В него вливаю файл. Изначально ширина и высота Image задана как default. Первое вливание происходит на ура, ширина и высота контрола определяются сами и как надо. Только потом чтобы я не вливал эти значения не меняются. Вопрос. Как сбросить prop:Width и prop:Height на default? Если невозможно, как обойти эту проблему красиво. Clarion 5.5f, ABC. Ниже приведен кусок текста.
Код: Выделить всё
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)