Интерфейс

Класс Resizer библиотеки классов Resizer способен пересчитывать размеры и позиции ВСЕХ объектов ЛЮБОЙ ВЛОЖЕННОСТИ, находящихся на форме.

Возможности:

1. Установление зависимости размеров формы от размеров экрана монитора.

2. Сохранять или не сохранять пропорции формы (соотношение высоты и ширины) при изменении размеров формы.

Resizer1.Lock_proportion = .T.       && Сохранять
Resizer1.Lock_proportion = .F.       && Не сохранять

3. Можно задать минимальную высоту формы при Resizer1.Lock_proportion = .T.

Resizer1.min_height = Минимальная высота      && (По умолчанию = 0)

4. Есть возможность выбора - при изменении размеров объектов пересчитывать FontSize или нет.

Resizer1.font_size = .T.       && Пересчитывать
Resizer1.font_size = .F.       && Не пересчитывать

5. Можно задать список базовых классов (через пробел), для которых запрещено масштабирование. По умолчанию масштабируются все базовые классы.

Resizer1.FixSizeBaseClass = 'image column'

6. Можно задать список объектов, запрещенных для масштабирования (через пробел). Будет изменяться только месторасположения этих объектов. Размер и содержимое объектов изменяться не будут.
Resizer1 . ObjNotMove = ‘container1’

7. Восстановление первоначальных размеров формы

Resizer1.Reset()

Как использовать:

1. Поместить объект класса Resizer на форму (напр., Resizer1)

2. В Init() формы написать:

      * Если задаем список объектов, запрещенный для масштабирования:
Thisform.ObjNotMove = ‘container1’

      * Без привязки к размерам экрана
Thisform.Resizer1.get_sizes()
или
      * С привязкой к размерам экрана
m.kW = 90       && Желаемый размер вашей формы относительно размера экрана, %.
Thisform.Resizer1.ToScreen(m.kW)

Примечание:

     Кв > Кш => пропорции расчитываются, исходя из значения высоты формы.

3. В Resize() формы написать - Thisform.Resizer1.set_sizes()

Дополнительная информация по использованию класса:

1. После программного добавления или удаления объектов формы писать - Thisform.Resizer1.get_sizes()

2. При использовании ресайзера в версиях VFP ниже седьмой необходимо откорректировать класс следующим образом:

• в классе использовано свойство объекта Header (в колонках грида) - HeaderHeight, которое появилось только в VFP7. Поэтому, надо убрать код, относящийся к этому свойству:

  Метод ADDTOARRAY, строки:

  IF TYPE("oControl.HeaderHeight") = "N"
     .aControlStats[nLen,6] = oControl.HeaderHeight
  ENDIF

  Метод SET_SIZES, строки:

  * Работаем с заголовками гридов
  IF TYPE("oControl.HeaderHeight")="N"
     oControl.HeaderHeight = THIS.aControlStats[nPos,6]
  ENDIF

• Для VFP5 (для шестой версии - не тестировалось) обнаружено, что команда oControl # Thisform выдает несовпадение типа оператора. Для обхода глюка корректируем следующие коды:

  1.в методе Get_sizes вместо This.Recurs(Thisform) написать This.Recurs(Thisform, 0)

  2. в методе Recurs добавить параметр nn - LPARAMETERS oControl, nn

  3. строку метода Recurs IF oControl # Thisform заменить на IF nn = 1;

  4. конструкцию (тот же метод)

  IF TYPE("."+aMems[m.i]) = "O"
     this.recurs(oControl)
  ENDIF

  заменить на
  IF TYPE("."+aMems[m.i]) = "O"
      nn = 1
      this.recurs(oControl, nn)
  ENDIF

Глюки:

1. Vladimir V. Ten: "При смене RecordSource в гриде слетают Caption введенные заранее руками, а востанавливаются те которые относяться к RecordSource."

Да, оказалось, что ресайзер как-то неадекватно реагирует на изменение RecordSource в гриде. И причина возникает где-то еще при самой первой рекурсии, что из Init'а формы. Даже если дальше нигде не писать Thisform.Resizer1.set_sizes().

Почему - не знаю, ресайзер при сборе данных об объектах вроде ничего в форме менять не должен. Ошибка - после смены RecordSource реальные объекты в гриде как бы не соответствуют тем данным о них, которые содержатся в массиве ресайзера. На форме они отражаются правильно, а обратиться программно к ним не получается. Любители шарад и ребусов, подключайтесь - Родина вас не забудет!

Вообще, от многих слышала, что динамические изменения RecordSource чреваты непредсказуемостями. Лично я предпочитаю при открытии необходимых таблиц присваивать им конкретный псевдоним и указываю его в качестве источника один раз.

Но для этого случая, все-таки хоть и огородами, но выход есть (в проекте пример прилагается - форма pr1_r). Может, со временем, будет что-нибудь более элегантное.

Условия использования и распространения:

Ресайзер опубликован на сайте Visual Foxpro Club в знак глубокой признательности этому сайту и его посетителям за массу ценнейшей информации, идей и советов, полученных и успешно примененных автором этого класса.

Использование класса - бесплатное, распространение - свободное. Следовательно, автор не несет никакой ответственности за последствия применения ресайзера и не гарантирует его идеальной работоспособности :).

Доработки и обновления:

Пример использования класса прилагается.

Е.В.Белюкова

Автор публикации

не в сети 23 года

ElenaB

Комментарии: 0Публикации: 3Регистрация: 28-09-2001