Переход на версию xHarbour 1.2 + GTWVT-терминал ?

Форум » [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: Всем привет ! Делаю уже давно для GTWVT-терминала меню выбора шрифтов. Так чтобы для пользователя было понятно. Пока есть такой вариант: Сейчас думаю, что это не совсем то.... В Win7 появился новый шрифт Consolas, нужно добавлять его в меню. Далее может нужно добавить еще 3 кнопки: "Увеличить размер шрифта" и "Уменьшить размер шрифта" и "Ручной выбор шрифта" ? А "Выбор шрифта" переименовать в "Ручной выбор шрифта" и закрыть на редактирование, пока не активизируешь кнопку "Ручной выбор шрифта" ? Хотелось бы услышать ваше мнение.... Заранее спасибо. Программа и исходник:http://files.mail.ru/7AITLM

Andrey: Как определить есть ли в системе WinXp шрифт Consolas ?

Sergey Spirin: Andrey пишет: Как определить есть ли в системе WinXp шрифт Consolas ? Поищи по исходникам слова: EnumFonts, EnumFontFamilies, EnumFontFamilies()... Наверняка кто-нибудь в HB_FUNC оборачивал.

Sergey Spirin: В win32pnr.prg есть обертка: [pre2]static int CALLBACK FontEnumCallBack(LOGFONT *lplf, TEXTMETRIC *lpntm, DWORD FontType, LPVOID pArray ) { HB_ITEM SubItems; SubItems.type = HB_IT_NIL; hb_arrayNew( &SubItems, 4 ); hb_arraySetC( &SubItems, 1, lplf->lfFaceName ); hb_arraySetL( &SubItems, 2, lplf->lfPitchAndFamily & FIXED_PITCH ); hb_arraySetL( &SubItems, 3, FontType && TRUETYPE_FONTTYPE ); hb_arraySetNL( &SubItems, 4, lpntm->tmCharSet ); hb_arrayAddForward( (PHB_ITEM) pArray, &SubItems); return(TRUE); } HB_FUNC_STATIC( ENUMFONTS ) { BOOL Result = FALSE ; HDC hDC = (HDC) hb_parnl(1) ; if (hDC) { HB_ITEM Array; Array.type = HB_IT_NIL; hb_arrayNew( &Array, 0 ); EnumFonts(hDC, (LPCTSTR) NULL, (FONTENUMPROC) FontEnumCallBack, (LPARAM) &Array); hb_itemReturnForward( &Array) ; Result = TRUE ; } if( !Result ) { hb_ret() ; } } [/pre2]

Andrey: Sergey Spirin пишет: В win32pnr.prg есть обертка: Я в этом пока совсем не разбираюсь .... А как вызвать эту функцию ? STATIC( "Consolas" ) - Я думаю не прокатит, т.к. слово STATIC зарезервировано для хХарбора и Харбора. И еще вопрос по шрифтам для терминалки GTWVT - Как узнать максимальный размер любого шрифта в зависимости от РАЗМЕРА ЭКРАНА ? Есть ли функция которая вернет это значение ? А то когда присваиваешь значение шрифта на экран - то ничего не происходит !!!

Sergey Spirin: Andrey пишет: Я в этом пока совсем не разбираюсь .... А как вызвать эту функцию ? EnumFonts(хэндл DC(графического контекста) окна/устройства для которого шрифты запрашиваются) Возвращает массив, каждый элемент это название и некоторые атрибуты ВСЕХ поддерживаемых для этого окна/устройства шрифтов. Далее в этом массиве уже и ищем "Consolas".

Andrey: Sergey Spirin пишет: Возвращает массив, каждый элемент это название и некоторые атрибуты ВСЕХ поддерживаемых для этого окна/устройства шрифтов. Далее в этом массиве уже и ищем "Consolas". Спасибо большое, получилось !

Andrey: Подправил меню выбора шрифтов. Получилось так: Кто покритикует или предложит более лучший вариант ?

Andrey: Помогите собрать библиотеку xHarbour\contrib\gtwvg Там почему-то нет make_b32.bat Взял с версии 1.0 - не собирает.... Выдает ошибку: MAKE Version 5.2 Copyright (c) 1987, 2000 Borland bcc32 -c -O2 -DWIN32 -I..\..\include -o..\..\obj\b32\wvtcore.obj wvtcore.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland wvtcore.c: Error F1013 wvtcore.c 3101: Error writing output file *** 1 errors in Compile *** ** error 1 ** deleting ..\..\obj\b32\wvtcore.obj

PSP: А папка существует, в которую компилятор пытается wvtcore.obj записать?

Andrey: PSP пишет: А папка существует, в которую компилятор пытается wvtcore.obj записать? Точно, не существует. Забыл сделать, как раньше делал. Создал. Компилируется. Но с ошибкой, т.к. make_b32.bat и makefile.bc с версии 1.0. Где взять файлы сборки для этой версии 1.2 ? Файл xharbour-1.2.1.src.contrib.zip качал с http://www.xharbour.org

Andrey: АУ, народ ? Кто знает как собрать терминал GTWVT для версии 1.2.1 ? Или кто поможет пределать сборку от 1.0 для 1.2.1 ??? Заранее спасибо.

PSP: Andrey пишет: Кто знает как собрать терминал GTWVT для версии 1.2.1 ? Чё-то не сходится c... Помогите собрать библиотеку xHarbour\contrib\gtwvg Или я торможу?

Andrey: PSP пишет: Чё-то не сходится c... В версии 1.0 терминал GTWVT был в папке \xHarbour\contrib\wvtgui В версии 1.2 поменяли название папки - \xHarbour\contrib\gtwvg и файлов сборки нет ВООБЩЕ !!! Также поменяли название доп.библиотеки wvtgui.lib на gtwvg.lib Вот я и пытаюсь понять как собрать эту библиотеку !!! Мне туда нужно внести изменения !!! Может у кого есть доступ к исходникам ?

Andrey: Dima пишет: То о чем я писал "срабатывает" для всех разрешений с отношением сторон 1.25 и для 1.33 (лично проверял) А вообще нужно написать более продвинутую функцию по автоматическому подбору параметров шрифта. Мучаюсь уже который день, никак не получается. Твой алгоритм "срабатывает" если Панель задач стандартная (1-строка) !!! А если 2-строки в панели задач ? Я такое часто встречаю. Как узнать размер Панели задач на хХарборе ???

Andrey: Сделал промежуточную версию настройки параметров терминала GTWVT ! Оказывается задание размера экрана - SetMode(25,80) НУЖНО СТАВИТЬ ПЕРЕД ЗАГРУЗКОЙ ШРИФТА !!! Программка здесь http://files.mail.ru/2WP2IL Кто попробует и покритикует ?

Dima: Andrey пишет: Кто попробует и покритикует ? F6 картинка , свернули окно и развернули и нет картинки (о монетках тру)

Andrey: Dima пишет: F6 картинка , свернули окно и развернули и нет картинки (о монетках тру) Я об этом знаю. Как исправить не знаю....

Andrey: Блин в Харборе уже лучше терминал GTWVT работает. \hb30\contrib\gtwvg\tests\demowvg.exe И даже многооконность есть... И Harbour - IDE тоже есть.... Придется переходить на него. Какие подводные камни перехода с хХарбора на Харбор есть ? Кто знает ?

AlexMyr: Andrey пишет: Какие подводные камни перехода с хХарбора на Харбор есть ? Кто знает ? Изучаем harbour\doc\xhb-diff.txt

полная версия страницы