Форум » [x]Harbour » Смена "режима" под GTWVT » Ответить
Смена "режима" под GTWVT
Dima: Заведу отдельную тему все же. [pre2] #include "hbgtinfo.ch" proc main local j:=.f. local a REQUEST HB_GT_WVT REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" ) hb_gtInfo(HB_GTI_CODEPAGE, 255) hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console') hb_gtInfo(HB_GTI_FONTQUALITY,4) do while .t. if(j,Wvt_setmode(35,130),Wvt_setmode(25,80)) for a=0 to maxrow() @ a,0 say a color "w/n" next inkey(0) j:=!j if lastkey()==27 exit endif enddo return ************* Func Wvt_setmode(nrow,ncol) HB_GtInfo(HB_GTI_FONTSIZE , Int(HB_GtInfo(HB_GTI_DESKTOPHEIGHT)/(nrow))) HB_GtInfo(HB_GTI_FONTWIDTH, Int(HB_GtInfo(HB_GTI_DESKTOPWIDTH) /(ncol))) return Setmode(nrow,ncol) [/pre2] При первом вызове установится Setmode 25x80 и окно почти на весь экран Жмем пробел Установится Setmode 35x130 и окно почти на весь экран Жмем пробел Установится Setmode 25x80 а окно уже не такое как было при первом вызове и намного меньше. Что не так делаю ? Помогите разобраться. Спасибо.
Ответов - 22, стр:
1 2 All
petr707: Суха теория, а древо жизни вечно зеленеет.. Психология, новолуние, не дали премию , что-то еще..не всегда понятное.. Если им дать быструю горячую клавишу изменения размера шрифта ( типа Ctrl+ в броузере), может и попривыкнут..
Dima: Andrey пишет: Сделай им выбор шрифта Ты имеешь в виду в таблицах , кнопках и других контролах ? Но тогда нужно вероятно и размеры их рассчитывать соответственно и возможно координаты. По ходу шрифт в MAIN MENU не укажешь и это только в настройках винды можно сделать.
полная версия страницы