Форум » [x]Harbour » шрифт в консольной программе » Ответить
шрифт в консольной программе
rvu: А как выставить нужный шрифт в консольной программе? Допустим, нужен Lucida Console, размер 24. Имеется в виду, можно ли его самой программой задавать?
Ответов - 7
Dima: Глянь тему http://clipper.borda.ru/?1-4-0-00000624-000-0-0-1310319878
rvu: Пробовал сделать так: #include "gtinfo.ch" gtInfo(GTI_FONTNAME, 'Lucida Console') gtInfo(GTI_FONTSIZE, 24) Ничего не происходит. Что-то еще нужно?
PSP: rvu пишет: Что-то еще нужно? Чем компилируем? Какой терминал?
PSP: FUNCTION Main( ... ) HB_GTInfo( HB_GTI_FONTNAME, "Lucida Console" ) HB_GTInfo( HB_GTI_FONTSIZE, 10 ) CLS WHILE .T. ? "Hello" IF Inkey( 0 ) == K_ESC EXIT END HB_GTInfo( HB_GTI_FONTSIZE, HB_GTInfo( HB_GTI_FONTSIZE ) + 1 ) HB_GTInfo( HB_GTI_FONTWIDTH, HB_GTInfo( HB_GTI_FONTWIDTH ) + 1 ) END // WHILE RETURN NIL
rvu: xHarbour Compiler build 1.0.0 (SimpLex). Терминал я нигде не указываю, поэтому не знаю. gtwin, наверное.
PSP: rvu пишет: xHarbour Compiler build 1.0.0 (SimpLex). Терминал я нигде его не указываю, gtwin, наверное. Даже не знаю, работает ли HB_GTInfo в этом xHarbour или нет. Это точно работает в Harbour 3.0.0 (и в 2.0.0 тоже работало) PS. gtwin, наверное. В Harbour сказочно работает gtWVT.
Andrey: rvu пишет: xHarbour Compiler build 1.0.0 (SimpLex). Терминал я нигде не указываю, поэтому не знаю. gtwin, наверное. Я работаю под терминалом GTWVT для xHarbour-а. В нем можно программно менять шрифты. Смотри мой пример http://clipper.borda.ru/?1-4-0-00000624-000-20-0 GTWIN - не будет менять программно шрифты. В этом терминале наверно не предусмотрено. Я его не использую. Для сборки под терминал GTWVT используй утилиту HBMAKE.EXE Как ей пользоваться читай - http://clipper.borda.ru/?1-4-160-00000515-000-0-0-1267900828
полная версия страницы