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

 Отправлено: 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. При сворачивании картинка на месте а вот если окно подвигать туда сюда , картинка исчезает.