Об prop:Width и prop:Height для Image

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Об prop:Width и prop:Height для Image

Сообщение kreator »

Есть контрол 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)
We are hard at work… for you. :)
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: Об prop:Width и prop:Height для Image

Сообщение Admin »

Попробуй

Код: Выделить всё

PROP:NoWidth        EQUATE(7A40H)  ! boolean: was a width specified?
PROP:NoHeight       EQUATE(7A41H)  ! boolean: was a height specified?
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Re: Об prop:Width и prop:Height для Image

Сообщение kreator »

Все отлично. Красота!!! Спасибо большое.
We are hard at work… for you. :)
Ответить