Страница 1 из 1
Глобальное изменение пользователем шрифтов
Добавлено: 01 Июль 2012, 14:56
gopstop2007
Добрый день! Нужен шаблон см.сабж в котором пользователь приложения мог сам изменять шрифты для всех контролов, или что-то похожее. И кто какие шаблоны использует для "автоматизации" изменений шрифтов при создании приложений.
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 12:39
Губин Игорь
Ну делал такое. Правда не в прямом виде, а как кусок своего шаблона локализации приложения. Только учти небольшой ньюанс - если менять и размеры шрифтов, то ничего хорошего не получится - придётся ещё и масштабировать к изначальному. Потому и не использую эту фишку.
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 16:51
gopstop2007
У меня окна приложения фиксированного размера (все в мах) , надо для каждого пользователя в зависимости от "состояния" зрения глобально изменить шрифт, например во всех: таблицах, popup-ах, tip и необязательное изменение на кнопках, меню. То есть, я не собираюсь менять шрифт окна.
Игорь, если Ваши шаблоны хотя бы частично подходят, можно ими воспользоваться?
Нашел в инете, что есть шаблоны AnyFont от Capesoft , может у кого есть. Поделитесь в личку может подойдут.
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 17:03
Дед Пахом
Может проще поменять сразу настройки ОС?
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 17:13
gopstop2007
Дед Пахом писал(а):Может проще поменять сразу настройки ОС?
Тут совсем всё плохо. Нетбуки, на фиксированное нестандартное разрешение (типа 1356*...). При запуске приложения, приложение полностью использует рабочий стол, по максиму. Я сделал выбор и изменение шрифтов для каждой таблицы в отдельности, но хотелось бы красиво, зашел в настройки выбрал для таблиц шрифт, один для всех таблиц. И заодно изменить для выше указанных контролов. Я разве многого хочу?
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 19:11
Губин Игорь
gopstop2007 писал(а):Игорь, если Ваши шаблоны хотя бы частично подходят, можно ими воспользоваться?
Да никаких проблем. Если подождёшь до завтра, то сделаю специально для тебя рыбу и пришлю (давай адрес). Я просто посмотрел в каком состоянии там сейчас задание шрифтов и ужаснулся (я давно уже шрифтами не играюсь).
А так вырежу ненужное, вставлю необходимое и получится готовый простенький шаблончик. А там уже сам долижешь до нужного тебе уровня.
А вообще-то думаю, что тебе стоит посмотреть и готовый пример из хелпа по PROP:NextField. ИМХО - 100% попадание )))
Код: Выделить всё
An array property which returns the next control number in sequence of a window or report. (READ-ONLY) The control number returned is the control following the array element numbered control. The order in which PROP:NextField returns field numbers is undefined. PROP:NextField returns zero when the array element number is the last control in its list. This property easily allows you to loop through all the controls in a window or report, whether those controls have USE attributes or not.
Example:
WinView WINDOW('View'),AT(0,0,320,200),MDI,MAX,HVSCROLL
IMAGE(),AT(0,0,,),USE(?Image)
BUTTON('Save Picture'),AT(80,180,60,20),USE(?SavePic)
BUTTON('New Picture'),AT(160,180,60,20),USE(?NewPic)
BUTTON('Last Picture'),AT(240,180,60,20),USE(?LastPic)
END
ThisField SHORT(0)
CODE
OPEN(WinView)
LOOP
ThisField = WinView{PROP:NextField,ThisField} !Process every control
IF ThisField
ThisField{PROP:FontName} = 'Arial' !Changing the font
ThisField{PROP:FontSize} = 10
ELSE
BREAK !Break when done
END
ACCEPT
END
Re: Глобальное изменение пользователем шрифтов
Добавлено: 02 Июль 2012, 20:16
gopstop2007
Никогда шаблонами не занимался, но попробовать никогда не поздно.
вот почта gopstop_собака_mail.ru
А вообще-то думаю, что тебе стоит посмотреть и готовый пример из хелпа по PROP:NextField. ИМХО - 100% попадание )))
Насчет 100% попадания- самое оно! : ) СпасибА огромное!