Отправлено: 15.02.11 16:24. Заголовок: Переход на версию xHarbour 1.2 + GTWVT-терминал ?

Всем привет.

Пытаюсть прейти с версии 1.0 на 1.2 ! Собираю GTWVT-терминалку.
Пишет ошибку:

HbMake v1.20 - xHarbour Make Utility
Copyright (C) 2000-2009 xHarbour project -http://www.xharbour.org<\/u><\/a>
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 ?

 Отправлено: 03.05.11 13:12. Заголовок: Всем привет ! Делаю ..

Всем привет !
Делаю уже давно для GTWVT-терминала меню выбора шрифтов. Так чтобы для пользователя было понятно.
Пока есть такой вариант:


Сейчас думаю, что это не совсем то....
В Win7 появился новый шрифт Consolas, нужно добавлять его в меню.
Далее может нужно добавить еще 3 кнопки: "Увеличить размер шрифта" и "Уменьшить размер шрифта" и "Ручной выбор шрифта" ?
А "Выбор шрифта" переименовать в "Ручной выбор шрифта" и закрыть на редактирование, пока не активизируешь кнопку "Ручной выбор шрифта" ?

Хотелось бы услышать ваше мнение....
Заранее спасибо.

Программа и исходник:http://files.mail.ru/7AITLM

 Отправлено: 21.06.11 12:48. Заголовок: Как определить есть ..

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

 Отправлено: 21.06.11 14:29. Заголовок: Andrey пишет: Как о..

Andrey пишет:

цитата:

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

Поищи по исходникам слова: EnumFonts, EnumFontFamilies, EnumFontFamilies()... Наверняка кто-нибудь в HB_FUNC оборачивал.

 Отправлено: 21.06.11 17:03. Заголовок: В win32pnr.prg есть ..

В win32pnr.prg есть обертка:

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() ; 
   } 
 } 
 

 Отправлено: 22.06.11 00:20. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

В win32pnr.prg есть обертка:

Я в этом пока совсем не разбираюсь ....

А как вызвать эту функцию ?
STATIC( "Consolas" ) - Я думаю не прокатит, т.к. слово STATIC зарезервировано для хХарбора и Харбора.

И еще вопрос по шрифтам для терминалки GTWVT - Как узнать максимальный размер любого шрифта в зависимости от РАЗМЕРА ЭКРАНА ?
Есть ли функция которая вернет это значение ?
А то когда присваиваешь значение шрифта на экран - то ничего не происходит !!!

 Отправлено: 22.06.11 00:46. Заголовок: Andrey пишет: Я в э..

Andrey пишет:

цитата:

Я в этом пока совсем не разбираюсь .... А как вызвать эту функцию ?

EnumFonts(хэндл DC(графического контекста) окна/устройства для которого шрифты запрашиваются)

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

 Отправлено: 25.06.11 17:17. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

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

Спасибо большое, получилось !

 Отправлено: 25.06.11 17:19. Заголовок: Подправил меню выбор..

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



Кто покритикует или предложит более лучший вариант ?

 Отправлено: 27.06.11 12:25. Заголовок: Помогите собрать биб..

Помогите собрать библиотеку 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

 Отправлено: 27.06.11 13:32. Заголовок: А папка существует, ..

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

 Отправлено: 27.06.11 14:32. Заголовок: PSP пишет: А папка ..

PSP пишет:

цитата:

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

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

 Отправлено: 30.06.11 15:32. Заголовок: АУ, народ ? Кто знае..

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

 Отправлено: 30.06.11 16:16. Заголовок: Andrey пишет: Кто ..

Andrey пишет:

цитата:

Кто знает как собрать терминал GTWVT для версии 1.2.1 ?

Чё-то не сходится c...

цитата:

Помогите собрать библиотеку xHarbour\contrib\gtwvg

Или я торможу?

 Отправлено: 30.06.11 17:40. Заголовок: PSP пишет: Чё-то не..

PSP пишет:

цитата:

Чё-то не сходится c...

В версии 1.0 терминал GTWVT был в папке \xHarbour\contrib\wvtgui
В версии 1.2 поменяли название папки - \xHarbour\contrib\gtwvg и файлов сборки нет ВООБЩЕ !!!
Также поменяли название доп.библиотеки wvtgui.lib на gtwvg.lib

Вот я и пытаюсь понять как собрать эту библиотеку !!! Мне туда нужно внести изменения !!!
Может у кого есть доступ к исходникам ?

 Отправлено: 06.07.11 21:51. Заголовок: Dima пишет: То о че..

Dima пишет:

цитата:

То о чем я писал "срабатывает" для всех разрешений с отношением сторон 1.25 и для 1.33 (лично проверял) А вообще нужно написать более продвинутую функцию по автоматическому подбору параметров шрифта.

Мучаюсь уже который день, никак не получается.
Твой алгоритм "срабатывает" если Панель задач стандартная (1-строка) !!! А если 2-строки в панели задач ? Я такое часто встречаю.


Как узнать размер Панели задач на хХарборе ???

 Отправлено: 10.07.11 00:35. Заголовок: Сделал промежуточную..

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

 Отправлено: 10.07.11 09:51. Заголовок: Andrey пишет: Кто п..

Andrey пишет:

цитата:

Кто попробует и покритикует ?

F6 картинка , свернули окно и развернули и нет картинки (о монетках тру)

 Отправлено: 10.07.11 20:44. Заголовок: Dima пишет: F6 карт..

Dima пишет:

цитата:

F6 картинка , свернули окно и развернули и нет картинки (о монетках тру)

Я об этом знаю. Как исправить не знаю....

 Отправлено: 14.06.12 00:14. Заголовок: Блин в Харборе уже л..

Блин в Харборе уже лучше терминал GTWVT работает.
\hb30\contrib\gtwvg\tests\demowvg.exe

И даже многооконность есть...

И Harbour - IDE тоже есть....

Придется переходить на него.

Какие подводные камни перехода с хХарбора на Харбор есть ? Кто знает ?

 Отправлено: 14.06.12 08:41. Заголовок: Andrey пишет: Какие..

Andrey пишет:

цитата:

Какие подводные камни перехода с хХарбора на Харбор есть ? Кто знает ?

Изучаем harbour\doc\xhb-diff.txt