Форум » [x]Harbour » Переход на версию xHarbour 1.2 + GTWVT-терминал ? » Ответить
Переход на версию xHarbour 1.2 + GTWVT-терминал ?
Andrey: Всем привет. Пытаюсть прейти с версии 1.0 на 1.2 ! Собираю GTWVT-терминалку. Пишет ошибку: HbMake v1.20 - xHarbour Make Utility Copyright (C) 2000-2009 xHarbour project -http://www.xharbour.org xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406) / Borland C++ 5.5.1 (32 bit) Z:\BCC55\BIN\ilink32 @makefile.lnk Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_HB_FUN_HB_CODEPAGE_RU1251' referenced from G:\@MAIL\MY-ALL\╤╚ ─╬╨╬┬ └╦┼╩╤└═─╨\GTWVT-CHOICE\OBJ\MAINTO.OBJ Error: Unresolved external '_HB_FUN_GTINFO' referenced from G:\@MAIL\MY-ALL\╤╚─╬╨╬┬ └╦┼╩╤└ ═─╨\GTWVT-CHOICE\OBJ\MAINTO.OBJ Файл сборки делал через hbmake.exe - новой версии. В списах библиотеки присутсвуют: lang.lib codepage.lib gtwvt.lib gtwvg.lib Я так понимаю функции GTINFO в версии 1.2 уже нет. Какой можно заменить ? А куда делась функция CODEPAGE_RU1251 ?
Ответов - 72, стр:
1 2 3 4 All
Andrey: Dima пишет: если окно подвигать туда сюда , картинка исчезает. Да у меня то же самое ! Так как все таки заставить собираться через gtwvt-choiceFont.hbp ?
AlexMyr: Andrey пишет: Так как все таки заставить собираться через gtwvt-choiceFont.hbp ? пробуй, у меня собирает, путь свой только поставь [pre2]-iC:\dev\harbour\contrib\gtwvg hbct.hbc hbwin.hbc # Включить multi/single-thread Harbour VM -mt -inc -gtwvg #-gtwvt # Имя EXE-модуля -ogtwvt-ChoiceFont-Harbour.exe # перечисляем все *.prg mainto-Harb.prg setfont.prg setpallet.PRG # Ресурсы gtwvt-choice.rc[/pre2]
Andrey: AlexMyr пишет: пробуй, у меня собирает, путь свой только поставь Спасибо БОЛЬШОЕ ! Теперь хоть есть чем собирать подобные задачи.... Но вот что интересно, при первом запуске (без файла ИмяЕхеФайла.gtwvt ) на экране четвертинка (прорисована) программы всего, смотреть выше. Видать порядок загрузки шрифтов и всего остального для Харбора нужно менять. Avf пишет: Hi, Andrey! Хочу что-то похожее сделать в Harbour. Придется Вам допиливать... Будут вопросы обращайтесь.
nick_mi: У меня с исправленной головной прграммой (http://files.mail.ru/L5AIZA) и таким hbp #-trace # Включить multi/single-thread Harbour VM -mt -inc -gtwvt -gtwvg -workdir=OBJ # Имя EXE-модуля -ogtwvt-ChoiceFont-Harbour.exe # перечисляем все *.prg mainto-Harb.prg setfont.prg setpallet.PRG # Ресурсы gtwvt-choice.rc # Пути к основным и добавочным *.lib -lhbct.lib нормально собирается и работает, причем отображение нормальное ASCII По поводу графической картинки. У меня на компьтере любое телодвижение по заголовку окна мышкой возвращает по INKEY() код 1016. Поэтому можно перерисовать экран вручную, муторно конечно, но можно Для перехватов по READ можно воспользоваться конструкцией set key 1016 to fun1016
Andrey: nick_mi пишет: но можно Для перехватов по READ можно воспользоваться конструкцией Доделай пожалуйста пример и выложи здесь. Всем будет интересно !
nick_mi: Перерисовка графической картинки для WVT терминала click here
Andrey: В трех соснах запутался.... Как различить хХарбор 1.0 от других 1.2.1, 1.2.3 и т.д. Сплошные засады при переходе на старшие версии...
Andrey: Как в программе узнать НОМЕР версии [х]Харбора. Функция VERSION() возвращает: xHarbour Compiler build 1.0.0 (SimpLex) или xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) А как мне сокращение сделать ? IIF(nVerHarb, 1.2, .... Иди может другая функция для версии есть ?
santy: #include "hbver.ch" Function main() ? "Compiler:", HB_BuildInfo( _HB_VER_AS_STRING ) ? ? "Operating System:", HB_BuildInfo( _HB_VER_PLATFORM ) ? ? "Complete version as character string: ", HB_BuildInfo( _HB_VER_AS_STRING ) ? ? "Major version number : ", HB_BuildInfo( _HB_VER_MAJOR ) ? ? "Major version number : ", HB_BuildInfo( _HB_VER_MINOR ) ? ? "Revision number : ", HB_BuildInfo( _HB_VER_REVISION ) ? ? "Last entry in CVS ChangeLog file : ", HB_BuildInfo( _HB_VER_LENTRY ) ? ? "Revision of last entry in CVS : ", HB_BuildInfo( _HB_VER_CHLCVS ) ? Return Nil
Andrey: santy пишет: #include "hbver.ch" Спасибо БОЛЬШОЕ !!!
doc103: можно ли выложить программу с исходниками по настройке шрифтов
Andrey: doc103 пишет: можно ли выложить программу с исходниками по настройке шрифтов Можно. http://files.mail.ru/D8ACEA8B3FA94411805000CEA2AFF6C9 GTWVT-терминал "Настройка палитры/шрифтов/размеров экрана" for xHarbour 1.2 ! Можно в диалоговом режиме задавать параметры, рассчитано на пользователя. При первоначальном запуске (без файла конфига - ИмяФайлаЕхе.gtwvt) программа сама установит экран 80х25 на максимальный размер шрифта. Потом можно убавить размер шрифта и задавать разрешение экрана типа 110х33 и т.д. а потом подбирать размер шрифта. Пробуйте и используйте у себя. Для включения в свой проект нужно просто добавить 2 файла: setfont.prg и setpallet.PRG А из файла mainto.prg добавит ИНИЦИАЛИЗАЦИЮ gtwvt-терминала, со строки: INIT FUNCTION AppSetup() и до конца файла. Инициализация палитры/шрифтов/размеров экрана происходит через файл конфига - ИмяФайлаЕхе.gtwvt, если он есть. Вызов настроек в функции MAIN(). Он небольшой. Исправления и пожелания приветствуются.
полная версия страницы