Автор | Сообщение |
|
| |
Пост N: 72
Зарегистрирован: 23.06.08
|
|
Отправлено: 16.03.10 21:57. Заголовок: Смена шрифта в TS_Browse
Здравствуйте ! Работаю с TSBRowse, пытаюсь сделать кнопочку "Поменять шрифт" с помощью GetFont(). Во всех примерах используется DEFINE FONT, а потом :ChangeFont(GetFontHandle()). Как можно поменять отдельные свойства ? Или почему не работает код: Скрытый текст Главная форма: DEFINE FONT TSBR_FONT FONTNAME "Arial" SIZE 12 Модуль: IF !Empty (aFont[1]) CHANGE FONT TSBR_FONT NAME aFont[1] SIZE aFont[2] IF aFont[3]==.T.; CHANGE FONT "TSBR_FONT" BOLD; ELSE; CHANGE FONT TSBR_FONT NOBOLD; ENDIF IF aFont[4]==.T.; CHANGE FONT TSBR_FONT ITALIC; ELSE; CHANGE FONT TSBR_FONT NOITALIC; ENDIF IF aFont[6]==.T.; CHANGE FONT TSBR_FONT UNDERLINE; ELSE; CHANGE FONT TSBR_FONT NOUNDERLINE; ENDIF IF aFont[7]==.T.; CHANGE FONT TSBR_FONT STRIKEOUT; ELSE; CHANGE FONT TSBR_FONT NOSTRIKEOUT; ENDIF FOR nI:=1 TO 7 TBROWSE_1:ChangeFont(GetFontHandle("TSRB_FONT"),nI) NEXT ENDIF
| Выдаёт ошибку: Syntax error "syntax error at 'FONT'" В чём проблема ? О_о
|
|
|
Ответов - 4
[только новые]
|
|
|
| moderator
|
Пост N: 19
Зарегистрирован: 11.02.10
|
|
Отправлено: 16.03.10 23:48. Заголовок: SkyNET пишет: В чём..
SkyNET пишет: Команда CHANGE FONT предназначена для использования исключительно при печати (она определена в файле winprint.ch)
|
|
|
|
| |
Пост N: 73
Зарегистрирован: 23.06.08
|
|
Отправлено: 17.03.10 02:22. Заголовок: А как тогда поменять..
А как тогда поменять шрифт по выбору пользователя ? Как получить указатель шрифта по его свойствам ? Такая конструкция не работает ! Скрытый текст aFont:=GetFont() FOR nI:=1 TO 7 TBROWSE_1:ChangeFont(GetFontHandle(aFont),nI) NEXT
|
|
|
|
|
| moderator
|
Пост N: 20
Зарегистрирован: 11.02.10
|
|
Отправлено: 17.03.10 12:54. Заголовок: SkyNET пишет: Как п..
SkyNET пишет: цитата: | Как получить указатель шрифта по его свойствам ? |
| Попробуй так: цитата: | aFont:=GetFont() IF ! _IsControlDefined ( "Font_1" , "Main" ) _DefineFont ( ; "Font_1", ; aFont[1], ; aFont[2], ; aFont [3], ; aFont [4], ; aFont [6], ; aFont [7] ) ENDIF FOR nI:=1 TO 7 TBROWSE_1:ChangeFont(GetFontHandle("Font_1"),nI) NEXT |
| и после закрытия формы RELEASE FONT Font_1
|
|
|
|
| |
Пост N: 75
Зарегистрирован: 23.06.08
|
|
Отправлено: 19.03.10 17:19. Заголовок: Спасибо ! :sm15: П..
Спасибо ! Правда команда RELEASE FONT не работает (точнее работает вхолостую), но эту проблему решил глобальным счётчиком...
|
|
|
|