Отправлено: 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 ?

 Отправлено: 15.02.11 16:33. Заголовок: Что-то подсказывает...

Что-то подсказывает. что нужно полистать changelog, наверняка там будет написано про изменения с версии 1.0 на 1.2.

 Отправлено: 15.02.11 17:48. Заголовок: :sm54: Так в уста..

Так в установленном дистрибутиве нет его !

 Отправлено: 15.02.11 18:13. Заголовок: Andrey пишет: Я так..

Andrey пишет:

цитата:

Я так понимаю функции GTINFO в версии 1.2 уже нет. Какой можно заменить ? А куда делась функция CODEPAGE_RU1251 ?

GTINFO --> hb_gtInfo
RU1251 --> RUWIN

 Отправлено: 15.02.11 18:33. Заголовок: gfilatov2002 Спасиб..

gfilatov2002 Спасибо БОЛЬШОЕ !!!

Ковырялся в changelog на сайте, не нашел с ходу !
Я уже спрашивал раньше про GTINFO но где уже не помню.

Блин и сегодня поиск по форуму не работает ....

 Отправлено: 15.02.11 23:56. Заголовок: Что-то нет документа..

Что-то нет документации по терминалу GTWVT в xHarbour\contrib\gtwvg ?

Это что, отказ в будущем от этого терминала ?

Кто подскажет - как правильно пользоваться этим терминалом ?
Название функций везде идет Wvt_ , значит нельзя использовать hb_gtInfo()
Т.е. какое написание правильное ?
Wvt_SetFont(cFont,nWidth,nHeight)
или
Hb_GtInfo( HB_GTI_FONTNAME , cFont )
Hb_GtInfo( HB_GTI_FONTWIDTH, nWidth )
Hb_GtInfo( HB_GTI_FONTSIZE , nHeight )


В начале модуля приходится определять:

#include 'wvtwin.ch'
и
#include 'hbgtinfo.ch'

Можно ли одновременно так ?
Я понимаю, что методом проб и ошибок можно попробовать, но хочется получить ответ от того кто уже это знает !
Заранее спасибо за ответ !

 Отправлено: 22.02.11 14:07. Заголовок: Ау ? Неужели никто н..

Ау ? Неужели никто не знает ответы на мои предыдущие вопросы ?

 Отправлено: 22.02.11 14:41. Заголовок: Поищи в библиотеках ....

Андрей , чудес не бывает ...
Скорее всего функция теперь живет в другой библиотеке .
Пройдись поиском по библиотекам на содержание 'HB_FUN_HB_CODEPAGE_RU1251'.
Где найдет - ту библиотеку ( или одну из них ) и не прицепил.

 Отправлено: 22.02.11 14:47. Заголовок: Haz пишет: Андрей ..

Haz пишет:

цитата:

Андрей , чудес не бывает ...

Да про другое спрашивал.....

Haz пишет:

цитата:

Андрей , чудес не бывает ...

Да про другое спрашивал.....

Что-то нет документации по терминалу GTWVT в xHarbour\contrib\gtwvg ?

Это что, отказ в будущем от этого терминала ?

Кто подскажет - как правильно пользоваться этим терминалом ?
Название функций везде идет Wvt_ , значит нельзя использовать hb_gtInfo()
Т.е. какое написание правильное ?
Wvt_SetFont(cFont,nWidth,nHeight)
или
Hb_GtInfo( HB_GTI_FONTNAME , cFont )
Hb_GtInfo( HB_GTI_FONTWIDTH, nWidth )
Hb_GtInfo( HB_GTI_FONTSIZE , nHeight )


В начале модуля приходится определять:

#include 'wvtwin.ch'
и
#include 'hbgtinfo.ch'

Можно ли одновременно так ?
Я понимаю, что методом проб и ошибок можно попробовать, но хочется получить ответ от того кто уже это знает !
Заранее спасибо за ответ !

 Отправлено: 14.03.11 17:59. Заголовок: Как успехи?..

Как успехи?

 Отправлено: 14.03.11 23:13. Заголовок: Vlad04 пишет: Как у..

Vlad04 пишет:

цитата:

Как успехи?

Да никто так и не ответил на мой вопрос.
Поставил пока #include 'wvtwin.ch' и работает.....
Но непонятки остались....

GTWVT -терминал хорош. Я под хХарбор программы делаю на нем.

 Отправлено: 15.03.11 09:49. Заголовок: Андрей, а что описан..

Андрей, а что описано в файле wvtwin.ch, смотрел?

 Отправлено: 15.03.11 16:01. Заголовок: PSP пишет: Андрей,..

PSP пишет:

цитата:

Андрей, а что описано в файле wvtwin.ch, смотрел?

Смотрел. И ничего для себя не увидел...
Ну не понимаю я различия. Как правильно пользоваться этим терминалом ?
Название функций везде идет Wvt_ , значит нельзя использовать hb_gtInfo()
или наоборот....

 Отправлено: 15.03.11 16:13. Заголовок: Посмотрел сейчас в и..

Посмотрел сейчас в исходниках xHarbour: функции Wvt_*() работают посредством вызова hb_GTInfo(). Так что, делай, как удобней. :)

 Отправлено: 15.03.11 16:30. Заголовок: PSP спасибо БОЛЬШОЕ..

PSP спасибо БОЛЬШОЕ !!!

 Отправлено: 29.04.11 15:57. Заголовок: Сделал тестовую прог..

Сделал тестовую программу для GTWVT терминала. Правда, еще не совсем до конца.
Смотреть здесь. http://files.mail.ru/4TS92I
Критика приветствуется....

 Отправлено: 29.04.11 16:47. Заголовок: Andrey пишет: Смотр..

Andrey пишет:

цитата:

Смотреть здесь

Прикольно ;) Видать что то переделали в GTWVT , коли при сворачивании (разворачивании) экран
задачи не портится.

Ням.
Исходник выложи глянуть. Можно и без функций которые на кнопках висят

 Отправлено: 29.04.11 18:35. Заголовок: Dima пишет: Видать ..

Dima пишет:

цитата:

Видать что то переделали в GTWVT , коли при сворачивании (разворачивании) экран задачи не портится.

Что имеется ввиду ?

Dima пишет:

цитата:

Исходник выложи глянуть. Можно и без функций которые на кнопках висят

Тебе без вопросов. http://files.mail.ru/75G3FH
Пытаюсь тут придумать, чтоб по умолчанию (если нет файла setfont.ini) на весь экран задача разворачивалась ...
Т.е. нужно как то подсчитать FontSize & FontWidth для "Lucida Console" в зависимости разрешения экрана.
Пока поставил Terminal - 18, 10

 Отправлено: 29.04.11 18:59. Заголовок: Andrey пишет: Т.е. ..

Andrey пишет:

цитата:

Т.е. нужно как то подсчитать FontSize & FontWidth для "Lucida Console"

я примерно так делал , но думаю можно и улучшить.

 
 hb_gtInfo(GTI_CODEPAGE, 255) 
 hb_gtInfo(GTI_FONTNAME, 'Lucida Console') 
 hb_gtInfo(HB_GTI_FONTQUALITY,3) 
 nWidth := Wvt_GetScreenWidth() 
 lnwidth:=1280/nwidth 
 nHight := Wvt_GetScreenHeight() 
 lnHight:=1024/nHight 
  
 hb_gtInfo(GTI_FONTWIDTH, 16/lnwidth)  
 hb_gtInfo(GTI_FONTSIZE, 38/lnHight) 
  
 

Можно еще вот это глянуть (FW)
http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17683

 Отправлено: 30.04.11 00:44. Заголовок: Dima пишет: nWidth..

Dima пишет:

цитата:

nWidth := Wvt_GetScreenWidth() lnwidth:=1280/nwidth nHight := Wvt_GetScreenHeight() lnHight:=1024/nHight hb_gtInfo(GTI_FONTWIDTH, 16/lnwidth) hb_gtInfo(GTI_FONTSIZE, 38/lnHight)

А если разрешение экрана 1388 х 768 или 1600 х 900 это на ноутбуках. А на нетбуках 1024х600.
Как тогда выкручиваться ?

 Отправлено: 30.04.11 07:15. Заголовок: Andrey пишет: Как т..

Andrey пишет:

цитата:

Как тогда выкручиваться ?

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

 Отправлено: 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

 Отправлено: 14.06.12 13:05. Заголовок: AlexMyr пишет: Изуч..

AlexMyr пишет:

цитата:

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

Спасибо за "палцем тык" !

 Отправлено: 14.06.12 13:12. Заголовок: Вопрос насчет GTWIN-..

Вопрос насчет GTWIN-терминала в Harbour 3.1.0dev (Rev. 17403).

Делаю следующее:
FUNCTION Main()
.............
QUIT

RETURN NIL
*-----------------------------------------------------------------------------*
INIT PROCEDURE Init()
PUBLIC hHendlWindowsMain
RETURN

EXIT PROCEDURE Exit()
? M->hHendlWindowsMain
wait " хочу посмотреть"

RETURN

Функция EXIT PROCEDURE Exit() после завершения программы отрабатывает, а если завершаешь программу по [x] - то нет !
Почему не отрабатывает [x] ?

 Отправлено: 06.09.12 21:02. Заголовок: Подскажите как для т..

Подскажите как для терминала xHarbour 1.2.1 добавить вызов 3-х внешних функций ?

Пере-собрать сам терминал и добавить свои функции, это я понимаю.
А как быть с вызовами на С ?
Я сам не сишник....

Нашел где это нужно вставить, а как дальше делать не знаю. Кто может помочь ?

Папка :\xHarbour\contrib\gtwvg - файл gtwvg.c
Строка 35
pWVT->pszSelectCopy = hb_strdup( "Mark and Copy" );

 Отправлено: 15.09.12 11:58. Заголовок: Всем привет. Выношу ..

Всем привет. Выношу на ваше обсуждение:

GTWVT-терминал "Настройка палитры/шрифтов/размеров экрана" for xHarbour 1.2 !

Можно в диалоговом режиме задавать, рассчитано на пользователя.

При первоначальном запуске (без файла конфига - ИмяФайлаЕхе.gtwvt) программа сама установит
экран 80х25 на максимальный размер шрифта.
Потом можно убавить размер шрифта и задавать разрешение экрана типа 110х33 и т.д. а потом подбирать размер шрифта.

Пробуйте и используйте у себя.

Для включения в свой проект нужно просто добавить 2 файла: setfont.prg и setpallet.PRG

А из файла mainto.prg добавит ИНИЦИАЛИЗАЦИЮ gtwvt-терминала, со строки:
INIT FUNCTION AppSetup() и до конца файла.

Инициализация палитры/шрифтов/размеров экрана происходит через файл конфига - ИмяФайлаЕхе.gtwvt, если он есть.
Вызов настроек в функции MAIN(). Он небольшой.

Исправления и пожелания приветствуются.

http://files.mail.ru/9SYDUR

P.S. Как восстанавливать картинку (после того как окно сворачиваешь на панель задач) я так и не смог сделать !

 Отправлено: 20.12.12 00:14. Заголовок: Hi, Andrey! Хочу что..

Hi, Andrey!
Хочу что-то похожее сделать в Harbour. Есть различия ( в Harbour по-моему нету IN и т.п.). При трансляции Вашего примера :
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\setfont.c:
Error E2451 SETFONT.PRG 827: Undefined symbol 'HB_ITEM' in function FontEnumCallBack
Error E2379 SETFONT.PRG 827: Statement missing ; in function FontEnumCallBack
Error E2451 SETFONT.PRG 829: Undefined symbol 'SubItems' in function FontEnumCallBack
Error E2451 SETFONT.PRG 848: Undefined symbol 'HB_ITEM' in function HB_FUN_ENUMFONTS
Error E2379 SETFONT.PRG 848: Statement missing ; in function HB_FUN_ENUMFONTS
Error E2451 SETFONT.PRG 850: Undefined symbol 'Array' in function HB_FUN_ENUMFONTS
*** 6 errors in Compile ***
Не понимаю о чем речь,т.к. просто понадобилось перевести одну из задач Clipper в Console режим harbour и, мне показался интересным Ваш подход. Я не занимался (x)Harbour, только Minigui сразу и уже давно. Для сборки использую Mpm. Может быть что-то упустил.

 Отправлено: 20.12.12 09:07. Заголовок: Avf пишет: При тран..

Avf пишет:

цитата:

При трансляции Вашего примера : Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland obj\setfont.c: Error E2451 SETFONT.PRG 827: Undefined symbol 'HB_ITEM' in function FontEnumCallBack Error E2379 SETFONT.PRG 827: Statement missing ; in function FontEnumCallBack Error E2451 SETFONT.PRG 829: Undefined symbol 'SubItems' in function FontEnumCallBack Error E2451 SETFONT.PRG 848: Undefined symbol 'HB_ITEM' in function HB_FUN_ENUMFONTS Error E2379 SETFONT.PRG 848: Statement missing ; in function HB_FUN_ENUMFONTS Error E2451 SETFONT.PRG 850: Undefined symbol 'Array' in function HB_FUN_ENUMFONTS *** 6 errors in Compile ***

Я тоже не знаю как эту функцию на С переделать под Харбор.
Нужно просить наших ГУРУ на форуме, чтобы помогли...
Я думаю очень многим понравиться (кто работает с терминалками) встроенная возможность переключения шрифтов в своей задаче. Может быть нужно и отправить этот пример в contrib на Харбор/хХарбор.
Исходник здесь. http://files.mail.ru/8UFH3H

 Отправлено: 20.12.12 11:21. Заголовок: С этой функцией проб..

С этой функцией проблем нет, надо сделать так:

цитата:

static int CALLBACK FontEnumCallBack(LOGFONT *lplf, TEXTMETRIC *lpntm, DWORD FontType, LPVOID pArray ) { PHB_ITEM pSubItems = hb_itemNew(NULL); hb_arrayNew( pSubItems, 4 ); hb_arraySetC( pSubItems, 1, lplf->lfFaceName ); hb_arraySetL( pSubItems, 2, lplf->lfPitchAndFamily & FIXED_PITCH ); hb_arraySetL( pSubItems, 3, FontType && TRUETYPE_FONTTYPE ); hb_arraySetNL( pSubItems, 4, lpntm->tmCharSet ); hb_arrayAddForward( (PHB_ITEM) pArray, pSubItems); hb_itemRelease( pSubItems ); return(TRUE); } HB_FUNC_STATIC( ENUMFONTS ) { BOOL Result = FALSE ; HDC hDC = (HDC) hb_parnl(1) ; if (hDC) { PHB_ITEM pArray = hb_itemNew(NULL); hb_arrayNew( pArray, 0 ); EnumFonts(hDC, (LPCTSTR) NULL, (FONTENUMPROC) FontEnumCallBack, (LPARAM) pArray); hb_itemReturnForward( pArray) ; hb_itemRelease( pArray ); Result = TRUE ; } if( !Result ) { hb_ret() ; } }

А вот дальше там набор неразрешенных ссылок - функции, которые в Harbour по другому называются.
Чтобы разрешить WVT_... надо прилинковать gtwvg, с остальными надо разбираться. Может, будет работать.

 Отправлено: 20.12.12 17:06. Заголовок: Avf пишет: Хочу что..

Avf пишет:

цитата:

Хочу что-то похожее сделать в Harbour.

Результатом поделись...

 Отправлено: 20.12.12 23:39. Заголовок: Под Harbour пример в..

Под Harbour пример выдает ошибку выполнения Exception Code:C0000005 на WVT_GETFONTINFO.
http://files.mail.ru/VI20QX

 Отправлено: 21.12.12 01:04. Заголовок: Будет выдавать ошибк..

Будет выдавать ошибку.
Я переделал ряд функций, до конца сделать не успел. Остались функции записи в ини-файл:
Error: Unresolved external '_HB_FUN_HASH'
Error: Unresolved external '_HB_FUN_HB_READINI'
Error: Unresolved external '_HB_FUN_HB_WRITEINI'

Нужно эти функции переписать с хХарбора на Харбор.
Смотри пример \hb31\tests\parseini.prg
Мой исправленный исходник для Харбора здесь. http://files.mail.ru/04YV06

Я пошел спать...

 Отправлено: 21.12.12 08:50. Заголовок: Error: Unresolved ex..

цитата:

Error: Unresolved external '_HB_FUN_HASH' Error: Unresolved external '_HB_FUN_HB_READINI' Error: Unresolved external '_HB_FUN_HB_WRITEINI'

hash => hb_hash
hb_readini => hb_iniRead
hb_writeini => hb_iniWrite

 Отправлено: 21.12.12 10:07. Заголовок: Собрал на Харборе 3...

Собрал на Харборе 3.0
Не запускается, в логе hb_out.log пишет:
Application Internal Error - G:\GTWVT-ChoiceFont-Harbour\gtwvt-ChoiceFont-Harbour.exe
Terminated at: 2012.12.21 11:00:37
Unrecoverable error 10001: It's not a GUI program

Я не знаю как дальше делать. На Харборе собирал только примеры.
Исходник и файл сборки (может неправильно сделал) здесь. http://files.mail.ru/2JICZA

 Отправлено: 21.12.12 11:18. Заголовок: Создайте еще файл gt..

Создайте еще файл gtwvt-choiceFont.hbc с одной строчкой: gui=yes - и программа будет запускаться, только не спрашивайте, почему :). Я в этих hbc, hbm и пр. не разбирался и пока не собираюсь, решение это нашел в contribs/gtwvg/tests.

 Отправлено: 21.12.12 11:30. Заголовок: И еще, я увидел что ..

И еще, я увидел что вы заменили xHarbor'овский IN на вызов Ascan() - это неправильно. Ascan() не работает с хэш-массивами. IN надо заменить на $:

цитата:

IF ( cSection $ aIni )

 Отправлено: 21.12.12 11:33. Заголовок: Нет, не работает... ..

Нет, не работает...
Собирается нормально.... Скрытый текст

Harbour 3.0.0 (Rev. 16951) 12:31 Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'mainto-Harb.prg'... Lines 3451, Functions/Procedures 6 Generating C source output to 'OBJ\mainto-Harb.c'... Done. Compiling 'setfont.prg'... Lines 1479, Functions/Procedures 14 Generating C source output to 'OBJ\setfont.c'... Done. Compiling 'setpallet.PRG'... Lines 865, Functions/Procedures 16 Generating C source output to 'OBJ\setpallet.c'... Done. hbmk2: Compiling resources... Borland Resource Compiler Version 5.40 Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. hbmk2: Compiling... OBJ\mainto-Harb.c: OBJ\setfont.c: Warning W8004 setfont.prg 872: 'Result' is assigned a value that is never used in function HB_FUN_CREATE1DC OBJ\setpallet.c: OBJ\_hbmkaut_mainto-Harb.c: hbmk2: Linking... gtwvt-ChoiceFont-Harbour.exe Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

А ошибка та же:
Application Internal Error - G:\GTWVT-ChoiceFont-Harbour\gtwvt-ChoiceFont-Harbour.exe
Terminated at: 2012.12.21 12:32:54
Unrecoverable error 10001: It's not a GUI program

Все таки с хХарбором легче работать....
Народ, кто работает на Харборе, дайте пожалуйста рабочий GTWVT-терминал ! Заранее спасибо !

 Отправлено: 21.12.12 12:49. Заголовок: Ваш протокол сборки ..

Ваш протокол сборки ни о чем не говорит, надо hbmk2 с ключом -trace запускать, тогда видно, с какими параметрами компилятор и линкер запускались.
Можете воспользоваться bat'ником:

цитата:

@set HB_INSTALL=c:\harbour %HB_INSTALL%\bin\harbour mainto-Harb.prg SETFONT.PRG setpallet.PRG -n -i%HB_INSTALL%\include -i%HB_INSTALL%\contrib\gtwvg bcc32 -O2 -tW -I%HB_INSTALL%\include -L%HB_INSTALL%\lib\win\bcc hbdebug.lib hbvm.lib hbrtl.lib gtwvg.lib gtwvt.lib hblang.lib hbrdd.lib hbmacro.lib hbpp.lib rddntx.lib rddcdx.lib rddfpt.lib hbsix.lib hbcommon.lib hbcpage.lib hbpcre.lib hbwin.lib hbct.lib mainto-Harb.c SETFONT.c setpallet.c del *.c del *.obj del *.tds

И в mainto-Harb.prg надо вставить ANNOUNCE HB_GTSYS, чтобы gtwin не требовало.
У меня все работает.

 Отправлено: 21.12.12 14:22. Заголовок: alkresin пишет: над..

alkresin пишет:

цитата:

надо hbmk2 с ключом -trace запускать

Скрытый текст

:\HB31\include "OBJ\mainto-Harb.c" OBJ\setfont.c OBJ\setpallet.c "OBJ\_hbmkaut_mainto15:14 .c" OBJ\mainto-Harb.c: OBJ\setfont.c: Warning W8004 setfont.prg 872: 'Result' is assigned a value that is never used in function HB_FUN_CREATE1DC OBJ\setpallet.c: OBJ\_hbmkaut_mainto-Harb.c: hbmk2: Linking... gtwvt-ChoiceFont-Harbour.exe hbmk2: Linker command: ilink32.exe @C:\Users\Andrey\AppData\Local\Temp\xwf2bj.lnk hbmk2: Linker script: -Gn -Tpe -LZ:\BCC55\Lib;Z:\BCC55\Lib\PSDK;z:\HB31\lib\win\bcc;z:\HB31\bin;Z:\hb31\lib\win\ bcc -ap c0x32.obj "OBJ\mainto-Harb.obj" OBJ\setfont.obj OBJ\setpallet.obj "OBJ\_hbmkaut_m ainto-Harb.obj", "gtwvt-ChoiceFont-Harbour.exe", nul, gtwvg.lib Z:\hb31\lib\win\bcc\hbct.l ib hbextern.lib hbdebug.lib hbvmmt.lib hbrtl.lib hblang.lib hbcpage.lib gtcgi.lib gtpca.li b gtstd.lib gtwin.lib gtwvt.lib gtgui.lib hbrdd.lib hbuddall.lib hbusrrdd.lib rddntx.lib r ddcdx.lib rddnsx.lib rddfpt.lib hbrdd.lib hbhsx.lib hbsix.lib hbmacro.lib hbcplr.lib hbpp. lib hbcommon.lib kernel32.lib user32.lib gdi32.lib advapi32.lib ws2_32.lib winspool.lib co mctl32.lib comdlg32.lib shell32.lib uuid.lib ole32.lib oleaut32.lib mpr.lib winmm.lib mapi 32.lib imm32.lib msimg32.lib wininet.lib hbpcre.lib hbzlib.lib cw32mt.lib import32.lib, , "OBJ\gtwvt-choice.res" Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Ни фига не понятно.... В хХарборе намного все проще !
Видать переход на Харбор будет ОЧЕЕЕНЬ сложным....

У меня тоже почти заработало (правда менюшки не работают вообще

Второй запуск - одни кракозябы:


Радует только одно - картинка на форме, после сворачивания не пропадает !

 Отправлено: 21.12.12 14:33. Заголовок: Andrey пишет: Радуе..

Andrey пишет:

цитата:

Радует только одно - картинка на форме, после сворачивания не пропадает

а вот с этого места поподробнее пожалуйста ;)
тестовый не большой пример выложи сюда.

 Отправлено: 21.12.12 15:28. Заголовок: Вот пример. http://f..

Вот пример. http://files.mail.ru/SFCN9A
Бат-ник собирает рабочий пример.
gtwvt-choiceFont.hbp - не собирает....

 Отправлено: 21.12.12 16:05. Заголовок: Andrey Взял готовый..

Andrey
Взял готовый EXE. При сворачивании картинка на месте а вот если окно подвигать туда сюда , картинка исчезает.

 Отправлено: 21.12.12 16:41. Заголовок: Dima пишет: если ок..

Dima пишет:

цитата:

если окно подвигать туда сюда , картинка исчезает.

Да у меня то же самое !

Так как все таки заставить собираться через gtwvt-choiceFont.hbp ?

 Отправлено: 21.12.12 17:02. Заголовок: Andrey пишет: Так к..

Andrey пишет:

цитата:

Так как все таки заставить собираться через gtwvt-choiceFont.hbp ?

пробуй, у меня собирает, путь свой только поставь

-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

 Отправлено: 27.12.12 19:04. Заголовок: AlexMyr пишет: проб..

AlexMyr пишет:

цитата:

пробуй, у меня собирает, путь свой только поставь

Спасибо БОЛЬШОЕ !
Теперь хоть есть чем собирать подобные задачи....

Но вот что интересно, при первом запуске (без файла ИмяЕхеФайла.gtwvt ) на экране четвертинка (прорисована) программы всего, смотреть выше.
Видать порядок загрузки шрифтов и всего остального для Харбора нужно менять.

Avf пишет:

цитата:

Hi, Andrey! Хочу что-то похожее сделать в Harbour.

Придется Вам допиливать... Будут вопросы обращайтесь.

 Отправлено: 28.12.12 11:41. Заголовок: У меня с исправленно..

У меня с исправленной головной прграммой (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

 Отправлено: 28.12.12 12:18. Заголовок: nick_mi пишет: но м..

nick_mi пишет:

цитата:

но можно Для перехватов по READ можно воспользоваться конструкцией

Доделай пожалуйста пример и выложи здесь. Всем будет интересно !

 Отправлено: 02.01.13 13:24. Заголовок: Перерисовка графичес..

Перерисовка графической картинки для WVT терминала
click here

 Отправлено: 12.02.13 02:24. Заголовок: В трех соснах запута..

В трех соснах запутался....

Как различить хХарбор 1.0 от других 1.2.1, 1.2.3 и т.д.
Сплошные засады при переходе на старшие версии...

 Отправлено: 12.02.13 12:08. Заголовок: Как в программе узна..

Как в программе узнать НОМЕР версии [х]Харбора.
Функция VERSION() возвращает:
xHarbour Compiler build 1.0.0 (SimpLex) или xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

А как мне сокращение сделать ?
IIF(nVerHarb, 1.2, ....

Иди может другая функция для версии есть ?

 Отправлено: 12.02.13 13:14. Заголовок: #include "hbver..

 Отправлено: 12.02.13 14:37. Заголовок: santy пишет: #inclu..

santy пишет:

цитата:

#include "hbver.ch"

Спасибо БОЛЬШОЕ !!!

 Отправлено: 07.05.13 10:48. Заголовок: можно ли выложить пр..

можно ли выложить программу с исходниками по настройке шрифтов

 Отправлено: 07.05.13 15:25. Заголовок: doc103 пишет: можно..

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(). Он небольшой.

Исправления и пожелания приветствуются.