Автор | Сообщение |
|
| |
Пост N: 3490
Зарегистрирован: 17.05.05
|
|
Отправлено: 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 а окно уже не такое как было при первом вызове и намного меньше. Что не так делаю ? Помогите разобраться. Спасибо.
|
|
|
Ответов - 22
, стр:
1
2
All
[только новые]
|
|
|
| |
Пост N: 139
Зарегистрирован: 21.04.13
|
|
Отправлено: 21.06.15 21:34. Заголовок: Пользователи..
Суха теория, а древо жизни вечно зеленеет.. Психология, новолуние, не дали премию , что-то еще..не всегда понятное.. Если им дать быструю горячую клавишу изменения размера шрифта ( типа Ctrl+ в броузере), может и попривыкнут..
|
|
|
|
| |
Пост N: 4937
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.06.15 21:35. Заголовок: Andrey пишет: Сдела..
Andrey пишет: Ты имеешь в виду в таблицах , кнопках и других контролах ? Но тогда нужно вероятно и размеры их рассчитывать соответственно и возможно координаты. По ходу шрифт в MAIN MENU не укажешь и это только в настройках винды можно сделать.
|
|
|
Ответов - 22
, стр:
1
2
All
[только новые]
|
|