VPF::получение доступа ко всем контролам формы FoxPro

UMmi

Дата 13.1.2009, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 5.11.2006
Где: МО

Репутация: нет
Всего: 0

Здравсвуйте!
Перерыл весь инет.
Вопрос 1. Подскажите, как получить доступ ко всем контролам на форме. Например нужно поменять шрифт на 20 для всех контролов формы(кнопок, лейблов, листов и т.п.).
Вопрос 2. Что нужно сделать если нужно выполнить один и тот же код при в Init все форм проекта (например поменять шрифт на всех контролах ВСЕХ форм проекта).

ВОПРОС ГЛАВНЫЙ. Как получить из одной формы метод другой формы.

Это сообщение отредактировал(а) UMmi - 13.1.2009, 22:06

Bishop

Дата 14.1.2009, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16

UMmi,

Цитата(UMmi @ 13.1.2009, 20:39

)

Перерыл весь инет.

Не верю.

Ответ на вопрос 1:

Код


* К примеру, в Init формы
For each c_ in this.Controls
    c_.FontSize = 20
    c_.Height = 40
EndFor

Ответ на вопрос 2:
Реализовать нужное поведение в базовом классе, все формы унаследовать от него. Формы (scx) можно наследовать от классов. Существующие формы тоже можно. Для этого их нужно открыть в Class Browser-е и выполнить команду Redefine.
ВОПРОС ГЛАВНЫЙ поясните.

UMmi

Дата 14.1.2009, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 5.11.2006
Где: МО

Репутация: нет
Всего: 0

Bishop, спасибо большое за ответы!!!
ВОПРОС ГЛАВНЫЙ: у меня в проекте множество форм. Нужно сделать в Init всех форм одно и то же. Кроме наследования форм от класса как это можно реализовать? Я читал про файлы prg... можно ли записать приведенный Bishop'ом код в какую-нибудь ФУНКЦИЮ с входными параметрами и ставить в Init форм функцию. Если да, то как это делается?

Это сообщение отредактировал(а) UMmi - 14.1.2009, 13:28

Bishop

Дата 14.1.2009, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16

Содержимое SetFonts.prg

Код


Lparameters cntr_
Do case 
Case Type('cntr_.Controls', 1) == 'C'
    For each c_ in cntr_.Controls
        SetFonts(c_)
    EndFor 
Case Type('cntr_.Buttons', 1) == 'C'
    For each btn_ in cntr_.Buttons
        SetFonts(btn_)
    EndFor 
Case Vartype(cntr_.FontSize) == 'N'
    cntr_.FontSize = 20
    cntr_.Height = 40
EndCase

В Init формы:

Код

SetFonts(this)

Это сообщение отредактировал(а) Bishop - 14.1.2009, 14:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »