On-line: гостей 1. Всего: 1 [подробнее..]
АвторСообщение
постоянный участник




Пост 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


Спасибо: 0 
Профиль
Ответов - 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

Спасибо: 0 
Профиль
постоянный участник




Пост N: 230
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 18.01.07 23:00. Заголовок: Re:


Спасибо, собрался пример. А то не допер что в командной строке можно перечислить несколько файлов.

И как вывести просто на экран BMP-ку в качестве фона ?
Если можно то покажите рабочий пример с минимумом функций.
Очень буду благодарен.

Спасибо: 0 
Профиль
постоянный участник




Пост N: 231
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 22.01.07 14:09. Заголовок: Re:


Кто может подсказать как вывести просто на экран BMP-ку в качестве фона программы ?
Если можно то покажите рабочий пример с минимумом функций.
Заранее спасибо.

Спасибо: 0 
Профиль
постоянный участник




Пост N: 236
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 24.01.07 15:45. Заголовок: Re:


Да, наверно никто такое не использует.
Может кто-нибудь попробует, а то я уже 2 недели пробую - ничего не получается.

Спасибо: 0 
Профиль
постоянный участник




Пост 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



Спасибо: 0 
Профиль
постоянный участник


Пост N: 328
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 15.08.07 18:40. Заголовок: Re:


Может быть файлы картинок расположены не в той папке, где находится исполняемый модуль вашей собранной программы? Может попробовать указать полный путь файлов картинок?

Спасибо: 0 
Профиль
постоянный участник




Пост N: 321
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 15.08.07 20:14. Заголовок: Re:


Нет, они лежат там-же где и сама прога.
Сам пример я взял из папки xHarbour\contrib\wvtgui\samples, они работают.
Я взял укоротил пример и не работает.
Мистика какая-то.

Спасибо: 0 
Профиль
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 171
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет