Автор | Сообщение |
|
| постоянный участник
|
Пост N: 229
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.01.07 15:47. Заголовок: Работа с gtwvt терминалом
Всем привет. Кто подскажет как работать с gtwvt терминалом. А именно, правильно руссифицировать его. И как заодно вывести просто на экран BMP-ку в качестве фона. А то в contrib\wvtgui\samples что-то так много всего, а пытаешься использовать операторы оттуда, они не работают. И кстати почему-то не собирается пример WVTGUIE, выдает следущее: Error: Unresolved external '_HB_FUN_WVT_CLS' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_ADDPAINTLIST' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_DISPLABEL' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_DISPBOX' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_DISPGROUPBOX' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_DISPIMAGE' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_GET' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_COPYTOCLIPBOARD' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_PUSHWINDOW' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_COLOR' referenced from WVTGUIE.OBJ Error: Unresolved external '_HB_FUN_WVT_POPWINDOW' referenced from WVTGUIE.OBJ
|
|
|
Ответов - 7
[только новые]
|
|
|
| |
Пост N: 52
Зарегистрирован: 30.05.05
|
|
Отправлено: 18.01.07 18:27. Заголовок: Re:
для руссификации и совместимости со старыми прогами, лично я пока использую, в начале проги: REQUEST HB_CODEPAGE_RU866 hb_SetCodepage("RU866") //REQUEST HB_CODEPAGE_RU1251 //hb_SetCodepage("RU1251") wvt_SetCodepage(255) Wvt_SetFont('Terminal', 12, 6) SetMode(25,80) тут кто-то высказывался как правильно делать, и в примерах кой че можно ковырнуть. по ходу надо запускать: bldwvt.bat wvtgui wvtguie wvt wvtmenu
|
|
|
|
| постоянный участник
|
Пост N: 230
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.01.07 23:00. Заголовок: Re:
Спасибо, собрался пример. А то не допер что в командной строке можно перечислить несколько файлов. И как вывести просто на экран BMP-ку в качестве фона ? Если можно то покажите рабочий пример с минимумом функций. Очень буду благодарен.
|
|
|
|
| постоянный участник
|
Пост N: 231
Зарегистрирован: 12.09.06
|
|
Отправлено: 22.01.07 14:09. Заголовок: Re:
Кто может подсказать как вывести просто на экран BMP-ку в качестве фона программы ? Если можно то покажите рабочий пример с минимумом функций. Заранее спасибо.
|
|
|
|
| постоянный участник
|
Пост N: 236
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.01.07 15:45. Заголовок: Re:
Да, наверно никто такое не использует. Может кто-нибудь попробует, а то я уже 2 недели пробую - ничего не получается.
|
|
|
|
| постоянный участник
|
Пост N: 319
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.08.07 19:12. Заголовок: Re:
Помогите вывести BMP-ку в качестве фона программы ! Собираю программу(текст ниже) + WTV.PRG (из папки xHarbour\contrib\wvtgui\samples ) ----------------------------------------------------------------------------------------------------------- #include 'inkey.ch' #include 'common.ch' #include 'wvtgui.ch' PROCEDURE MAIN LOCAL nI, nJ:=1, nY:=8, nX:=0 LOCAL nWidth := Wvt_GetScreenWidth() DO CASE CASE nWidth >= 1024 //Wvt_SetFont('Terminal',18,10) Wvt_SetFont('Terminal',24,14) CASE nWidth >= 800 Wvt_SetFont('System',16,-8) OTHERWISE Wvt_SetFont('Terminal',12,6) ENDCASE Wvt_SetCodePage(255) // #define OEM_CHARSET 255 - from wingdi.h REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") SETMODE(32,93) SETCOLOR("12/1") CLS //--------------- переопределяем шрифт ----------------- //Wvt_SetFont( 'Courier New', 18 ) Wvt_SetFont( 'Terminal', 18, 6, 0 ) SET WINDOW ICON TO 'vr_1.ico' SET WINDOW TITLE TO HB_OEMTOANSI('Мой тест') // Почему-то не показываются картинки @ 0, 0 TO MAXROW(), MAXCOL() IMAGE 'monetki2.bmp' @ 5, 42 TO 12, 69 IMAGE 'money.bmp' wait "Здесь должны показаться файлы-картинок, а их почему-то нет !" FOR nI := 0 TO 255 @ nJ + nY, nX SAY ALLTRIM(STR(nI))+" "+CHR(nI) COLOR("15/0") nJ++ IF nJ > 19 nJ := 1 nX := nX + LEN(ALLTRIM(STR(nI)))+3 ENDIF NEXT @ MAXROW()-1, 40 LABEL "ПРИВЕТ" CENTER COLOR "N/BG" FONTNAME "Arial" FONTSIZE 26 INKEY(0) RETURN
|
|
|
|
| постоянный участник
|
Пост N: 328
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.08.07 18:40. Заголовок: Re:
Может быть файлы картинок расположены не в той папке, где находится исполняемый модуль вашей собранной программы? Может попробовать указать полный путь файлов картинок?
|
|
|
|
| постоянный участник
|
Пост N: 321
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.08.07 20:14. Заголовок: Re:
Нет, они лежат там-же где и сама прога. Сам пример я взял из папки xHarbour\contrib\wvtgui\samples, они работают. Я взял укоротил пример и не работает. Мистика какая-то.
|
|
|
|