Отправлено: 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'"
В чём проблема ? О_о

 Отправлено: 16.03.10 23:48. Заголовок: SkyNET пишет: В чём..

SkyNET пишет:

цитата:

В чём проблема ?

Команда CHANGE FONT предназначена для использования исключительно при печати (она определена в файле winprint.ch)

 Отправлено: 17.03.10 02:22. Заголовок: А как тогда поменять..

А как тогда поменять шрифт по выбору пользователя ?
Как получить указатель шрифта по его свойствам ?

Такая конструкция не работает !
Скрытый текст

aFont:=GetFont() FOR nI:=1 TO 7 TBROWSE_1:ChangeFont(GetFontHandle(aFont),nI) NEXT

 Отправлено: 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

 Отправлено: 19.03.10 17:19. Заголовок: Спасибо ! :sm15: П..

Спасибо !
Правда команда RELEASE FONT не работает (точнее работает вхолостую), но эту проблему решил глобальным счётчиком...