Отправлено: 29.08.13 16:33. Заголовок: Смена "режима" под GTWVT

Заведу отдельную тему все же.

 
  
 #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) 
 

При первом вызове установится Setmode 25x80 и окно почти на весь экран
Жмем пробел
Установится Setmode 35x130 и окно почти на весь экран
Жмем пробел
Установится Setmode 25x80 а окно уже не такое как было при первом вызове и намного меньше.
Что не так делаю ?
Помогите разобраться.
Спасибо.

 Отправлено: 21.06.15 21:34. Заголовок: Пользователи..

Суха теория, а древо жизни вечно зеленеет..
Психология, новолуние, не дали премию , что-то еще..не всегда понятное..
Если им дать быструю горячую клавишу изменения размера шрифта ( типа Ctrl+ в броузере),
может и попривыкнут..

 Отправлено: 21.06.15 21:35. Заголовок: Andrey пишет: Сдела..

Andrey пишет:

цитата:

Сделай им выбор шрифта

Ты имеешь в виду в таблицах , кнопках и других контролах ? Но тогда нужно вероятно
и размеры их рассчитывать соответственно и возможно координаты.
По ходу шрифт в MAIN MENU не укажешь и это только в настройках винды можно сделать.