Отправлено: 31.08.18 18:47. Заголовок: HwGui 2.21

Приветствую всех!
Выпустил сегодня очередной релиз: HwGui 2.21 build 1.
Как обычно, zip с исходниками - на Sourceforge, бинарники для Bcc 5.1 и Mingw 4.8.2 - у меня на http://www.kresin.ru/hwgui.html

 Отправлено: 05.09.18 18:16. Заголовок: HwGui 2.21 build 3

Вышел build 3 - исправлено несколько ошибок.

 Отправлено: 06.09.18 16:23. Заголовок: Всем привет ! А как ..

Всем привет !
А как решается проблема которая существует всегда - подбор высоты фонта для разных разрешениях экрана ?
Есть ли функция такая в HwGui, которая бы давала размер фонта автоматом ?

 Отправлено: 06.09.18 20:54. Заголовок: Нет такой функции и ..

Нет такой функции и я не очень представляю, как она должна работать. Что принять за базовое значение?
И, если речи идет о том, чтобы текст имел оптимальный для пользователя размер, то имеет значение и физический размер экрана и, извините, острота зрения пользователя.

 Отправлено: 06.09.18 21:34. Заголовок: alkresin пишет: Что..

alkresin пишет:

цитата:

Что принять за базовое значение?

Да я вот тоже с этим мучаюсь на МиниГуи. Парк компов разный и разрешение экрана у всех разные.
Хотелось бы узнать как делают программисты в этом случае ?

Я сделал для своих программ такую универсальную функцию:
Скрытый текст

Function ModeSizeFont() LOCAL nSize IF GetDesktopHeight() == 600 nSize := 10 ELSEIF GetDesktopHeight() == 768 nSize := 12 ELSEIF GetDesktopHeight() == 800 nSize := 14 ELSEIF GetDesktopHeight() >= 1050 .OR. GetDesktopHeight() <= 1080 nSize := 16 ELSEIF GetDesktopHeight() == 1152 nSize := 18 ELSEIF GetDesktopHeight() >= 1200 nSize := 20 ELSE nSize := 15 ENDIF // Проверка установки БОЛЬШОГО фонта в настройках системы nSize := nSize - IIF(Large2Fonts(),2,0) RETURN nSize

И при создании форм задаю всегда такой размер фонта на форму.
Для кнопок уменьшаю размер фонта на -2 или увеличиваю для других объектов.
Вот и интересно, правильный у меня подход к этому или нет.

 Отправлено: 07.09.18 07:53. Заголовок: Andrey пишет: и инт..

Andrey пишет:

цитата:

и интересно, правильный у меня подход к этому или нет

А я форму крашу в жёлтый, и мне интересно правильно или нет?

 Отправлено: 07.09.18 09:38. Заголовок: Можно и так. Но лучш..

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

 Отправлено: 17.10.18 12:33. Заголовок: HwGUI Tutorial

Собрал в виде отдельного пакета HwGUI tutorial и выложил на страницу HwGUI: http://www.kresin.ru/hwgui.html.
Если кто не в курсе - это небольшая программа, где представлены базовые возможности HwGUI. Разбитые по разделам фрагменты кода, которые можно модифицировать и сразу запускать на выполнение, для этого не нужен ни сам HwGUI, ни Harbour, ни С.

 Отправлено: 17.10.18 14:36. Заголовок: -Что-то не взлетает ..

Что-то не взлетает



Error BASE/1081 Argument error: +
Called from tutor.prg->BUILDTREE(169)
Called from tutor.prg->MAIN(112)

HWGUI 2.20 Build 3
Date:10/17/18
Time:14:34:28


hb_out.log
------------------------------------------------------------------------
Application Internal Error - C:\Users\Администратор\Desktop\hwguitutor\tutor.exe
Terminated at: 2018-10-17 14:35:32
Unrecoverable error 9001: Error recovery failure
Called from FOPEN(0)
Called from HXMLDOC:READ(229) in source\common\xml\hxmldoc.prg
Called from BUILDTREE(169) in tutor.prg
Called from MAIN(112) in tutor.prg
-------------------------------------------------------------------------

 Отправлено: 17.10.18 16:03. Заголовок: Очень странно. Я про..

Очень странно. Я пробовал на двух компьютерах, с XP и с 10-кой, все нормально.
Такое может быть, если нет файла tutor.xml. У вас там с ним ничего не случилось?

 Отправлено: 17.10.18 16:09. Заголовок: Нет, всё на месте Т..

Нет, всё на месте

 Том в устройстве C не имеет метки. 
  Серийный номер тома: 7E11-1684 
  
  Содержимое папки C:\Users\Администратор\Desktop\hwguitutor 
  
 17.10.2018  16:07    <DIR>          . 
 17.10.2018  16:07    <DIR>          .. 
 17.10.2018  10:59    <DIR>          harbour 
 17.10.2018  16:06               405 hb_out.log 
 17.10.2018  15:54         1 917 440 hwgrun.exe 
 17.10.2018  11:00               140 hwgrun.xml 
 17.10.2018  10:59    <DIR>          hwgui 
 17.10.2018  15:54         1 866 752 tutor.exe 
 17.10.2018  15:48               954 tutor.xml 
 01.10.2018  10:30            41 549 tutor_eng.xml 
                7 файлов      3 827 240 байт 
 

Еще раз скачал архив - то же самое.

 Отправлено: 17.10.18 16:10. Заголовок: Наверное русские бук..

Наверное русские буквы в пути не катят

 Отправлено: 17.10.18 16:13. Заголовок: Dima пишет: Наверно..

Dima пишет:

цитата:

Наверное русские буквы в пути не катят

Да, опередил ты меня))) Если папку с прогой перенести в корень, то она запускается.

 Отправлено: 17.10.18 16:16. Заголовок: Точно. Дело в русски..

Точно. Дело в русских буквах в имени каталога. А вот почему это вдруг стало проблемой, надо выяснить.

 Отправлено: 17.10.18 16:20. Заголовок: Хм... hb_argv возвра..

Хм... hb_argv[0] возвращает "????" вместо русского названия каталога. Я и не подозревал...

 Отправлено: 17.10.18 16:30. Заголовок: Лечится, как выяснил..

Лечится, как выяснилось, если собрать приложение в UNICODE режиме. Вечерком сделаю.

 Отправлено: 17.10.18 18:30. Заголовок: Собрал в UNICODE, за..

Собрал в UNICODE, залил.

 Отправлено: 17.10.18 21:14. Заголовок: alkresin пишет: Соб..

alkresin пишет:

цитата:

Собрал в UNICODE, залил

А без UNICODE не лечится проблема ?

 Отправлено: 18.10.18 09:14. Заголовок: Лечится, если заблаг..

Лечится, если заблаговременно, лучше всего - в init procedure, установить требуюмую codepage - в нашем случае "RU1251".

 Отправлено: 19.10.18 13:08. Заголовок: Вышел build 4: XML ..

Вышел build 4:
[*] XML parsing procedure catch more errors and doesn't hang on them now.
[*] HTree, HTreeNode: bAction is renamed to bClick.
[+] nBorder variable added to HSayBmp class to draw the border, if needed.
[+] cFormName variable added to the HRepTmpl class to keep the path and name
[!] Few bugs and compile time warnings fixed.

 Отправлено: 02.11.18 12:44. Заголовок: Вышел build 5: Now..

Вышел build 5:

[*] Now you may define a negative size value of a window or dialog, this mean that
absolute value of the size is the size of client area, not a whole window rectangle.
[+] ON CLICK, ON DBLCLICK clauses added to @...BITMAP and @...ICON commands.
[*] compatibility of gtk and winapi versions improved.
[!] Few important fixes.

 Отправлено: 05.11.18 19:29. Заголовок: Александр Добрый ден..

Александр Добрый день. Собрал DBCHW и DBCHWx и открыл локальную базу.
При попытке выйти за нижнюю запись получил ошибку в DBCHW и DBCHWx

лог для DBCHWx:
Error BASE/1132 Bound error: array access
Called from source\winapi\hbrowse.prg->HBROWSE:EDIT(1725)
Called from source\winapi\hbrowse.prg->HBROWSE:PAINT(823)
Called from source\winapi\hbrowse.prg->HBROWSE:ONEVENT(300)
Called from ->HWG_ACTIVATEMDIWINDOW(0)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ACTIVATE(361)
Called from dbchw.prg->MAIN(296)

HWGUI 2.21 Build 5
Date:05/11/18
Time:18:23:38

 Отправлено: 06.11.18 10:16. Заголовок: Ошибку нашел, исправ..

Ошибку нашел, исправил. Спасибо.
Теперь или берите свежие исходники с SVN, или ждите следующего релиза - в течение месяца, наверное, будет: я теперь чаще делаю релизы из-за GuiServer'а.
Бинарники dbchw - локальную версию и под LetoDB тоже обновил.

 Отправлено: 08.11.18 14:53. Заголовок: Извините за ламерски..

Извините за ламерский вопрос. Решил посмотреть примеры, а батник dld.bat выдаёт ошибку:

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'grid_1.prg'...

Lines 74, Functions/Procedures 6
Generating C source output to 'grid_1.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
grid_1.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'ECHO.LIB'

Где эта библиотека находится?

 Отправлено: 08.11.18 15:02. Заголовок: AndreyZh пишет: бат..

AndreyZh пишет:

цитата:

батник dld.bat выдаёт ошибку

Возможно в нем нужно исправить пути , на свои

 Отправлено: 08.11.18 15:06. Заголовок: Dima пишет: Возможн..

Dima пишет:

цитата:

Возможно в нем нужно исправить пути , на свои

Перестроил, как Александр пишет в мануале, но в батнике вообще нет ссылки на эту библиотеку. Может быть её хочет bcc?

 Отправлено: 08.11.18 15:30. Заголовок: AndreyZh пишет: Реш..

AndreyZh пишет:

цитата:

Решил посмотреть примеры, а батник dld.bat выдаёт ошибку:

bld.bat, наверное ?
А в этом bat упоминается где-нибудь echo.lib? Я, честно говоря, даже не представляю пока, что это за библиотека и с какой стати она требуется.
Может, что-то связанное непосредственно с xHarbour?

 Отправлено: 08.11.18 15:37. Заголовок: Удалите из батника п..

Удалите из батника последнюю строчку 'del b32.bc', чтобы посмотреть на этот b32.bc - линк-файл, формируемый батником.
Может, когда вы его правили, где-то кавычка случайно пропала и из строчек 'echo ...' образовался вызов библиотеки echo.lib.

 Отправлено: 08.11.18 15:38. Заголовок: alkresin пишет: bld..

alkresin пишет:

цитата:

bld.bat, наверное ? А в этом bat упоминается где-нибудь echo.lib? Я, честно говоря, даже не представляю пока, что это за библиотека и с какой стати она требуется. Может, что-то связанное непосредственно с xHarbour?

Конечно bld.bat. Подключил Харбор согласно совету: set HB_PATH=C:\hb30

Однако ошибка сохранилась. Полностью сообщения батника:

Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'grid_1.prg'...

100

200

300

400

500

600

700

800

900

1000

1100

1200

1300

1400

1500

1600

100

200

300

400

500

600

700

800

900

1000

1100

1200

1300

1400

1500

1600

1700

1800

Lines 3565, Functions/Procedures 6
Generating C source output to 'grid_1.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
grid_1.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'ECHO.LIB'

 Отправлено: 08.11.18 15:40. Заголовок: alkresin пишет: Уда..

alkresin пишет:

цитата:

Удалите из батника последнюю строчку 'del b32.bc', чтобы посмотреть на этот b32.bc - линк-файл, формируемый батником. Может, когда вы его правили, где-то кавычка случайно пропала и из строчек 'echo ...' образовался вызов библиотеки echo.lib.

Уже делал... просто стыдно задавать детские вопросы:

c0w32.obj +
grid_1.obj, +
grid_1.exe, +
grid_1.map, +
..\lib\hwgui.lib +
..\lib\procmisc.lib +
..\lib\hbxml.lib +
..\lib\hwgdebug.lib +
echo ..\lib\hwg_qhtm.lib +
..\lib\hbactivex.lib +
C:\hb30\lib\rtl.lib +
C:\hb30\lib\vm.lib +
C:\hb30\lib\gtgui.lib +
C:\hb30\lib\lang.lib +
C:\hb30\lib\codepage.lib +
C:\hb30\lib\macro.lib +
C:\hb30\lib\rdd.lib +
C:\hb30\lib\dbfntx.lib +
C:\hb30\lib\dbfcdx.lib +
C:\hb30\lib\dbffpt.lib +
C:\hb30\lib\common.lib +
C:\hb30\lib\pp.lib +
C:\hb30\lib\hsx.lib +
C:\hb30\lib\hbsix.lib +
cw32.lib +
import32.lib,
obj\hwgui_xp.res

 Отправлено: 08.11.18 15:42. Заголовок: AndreyZh пишет: Н..

Ну вот, вы же видите эту строчку: echo ..\lib\hwg_qhtm.lib + . Никаких echo здесь не должно быть.

 Отправлено: 08.11.18 15:44. Заголовок: alkresin пишет: Ну ..

alkresin пишет:

цитата:

Ну вот, вы же видите эту строчку: echo ..\lib\hwg_qhtm.lib + . Никаких echo здесь не должно быть.

Спасибо! Осталось понять где она в батнике из поставки подсовывается?

 Отправлено: 08.11.18 15:46. Заголовок: Да, это в батнике ош..

Да, это в батнике ошибка, там в строчке

if exist %HWGUI_INSTALL%\lib\hwg_qhtm.lib echo echo %HWGUI_INSTALL%\lib\hwg_qhtm.lib + >> b32.bc

второе echo надо убрать. У меня оно не выскакивает, потому что hwg_qhtm.lib нет.

 Отправлено: 08.11.18 15:48. Заголовок: Ошибка в строке 35 b..

Ошибка в строке 35 bld.bat - дважды echo... Однако сейчас посыпались другие сообщения:

Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'grid_1.prg'...
Lines 3565, Functions/Procedures 6
Generating C source output to 'grid_1.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
grid_1.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\XHARBOUR\LIB\RTL.LIB|regex
Error: Unresolved external '_hb_setGetOSCP' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_parstr' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_strfree' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_extIsNil' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_storvni' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_itemCopyStr' referenced from C:\HWGUI\LIB\HWGUI.LIB|drawtext
Error: Unresolved external '_hb_itemEqual' referenced from C:\HWGUI\LIB\HWGUI.LIB|drawtext
Error: Unresolved external '_hb_itemPutStr' referenced from C:\HWGUI\LIB\HWGUI.LIB|drawtext
Error: Unresolved external '_hb_retstrlen' referenced from C:\HWGUI\LIB\HWGUI.LIB|misc
Error: Unresolved external '_hb_retstr' referenced from C:\HWGUI\LIB\HWGUI.LIB|misc
Error: Unresolved external '_hb_itemGetStr' referenced from C:\HWGUI\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_itemPutCLPtr' referenced from C:\HWGUI\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_cdpFindExt' referenced from C:\HWGUI\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_vmSetCDP' referenced from C:\HWGUI\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_parstr_u16' referenced from C:\HWGUI\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_strnull' referenced from C:\HWGUI\LIB\HWGUI.LIB|misc
Error: Unresolved external '_hb_arrayGetStr' referenced from C:\HWGUI\LIB\HWGUI.LIB|control
Error: Unresolved external '_hb_storstr' referenced from C:\HWGUI\LIB\HWGUI.LIB|control
Error: Unresolved external '_HB_FUN___CLSLOCKDEF' referenced from C:\HWGUI\LIB\HWGUI.LIB|hdialog
Error: Unresolved external '_HB_FUN___CLSUNLOCKDEF' referenced from C:\HWGUI\LIB\HWGUI.LIB|hdialog
Error: Unresolved external '_hb_itemCopyStrU16' referenced from C:\HWGUI\LIB\HWGUI.LIB|dialog
Error: Unresolved external '_HB_FUN_HB_ASCAN' referenced from C:\HWGUI\LIB\HWGUI.LIB|hcombo
Error: Unresolved external '_HB_FUN_HB_TSTOSTR' referenced from C:\HWGUI\LIB\HWGUI.LIB|hbrowse
Error: Unresolved external '_HB_FUN_HB_NUMTOHEX' referenced from C:\HWGUI\LIB\HWGUI.LIB|guimain
Error: Unresolved external '_hb_strunshare' referenced from C:\HWGUI\LIB\HWGUI.LIB|commond
Error: Unresolved external '_hb_storstrlen' referenced from C:\HWGUI\LIB\HWGUI.LIB|commond

 Отправлено: 08.11.18 15:55. Заголовок: Тупо бросил все *.li..

Тупо бросил все *.lib & *.ch в соответствующие каталоги Харбор. Список ошибок сборки уменьшился:

Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'grid_1.prg'...

Lines 3565, Functions/Procedures 6
Generating C source output to 'grid_1.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
grid_1.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_extIsNil' referenced from C:\HWGUI\LIB\HWGUI.LIB|draw
Error: Unresolved external '_hb_itemEqual' referenced from C:\HWGUI\LIB\HWGUI.LIB|drawtext

 Отправлено: 08.11.18 16:06. Заголовок: Позвольте так же ско..

Позвольте так же скопировать вопрос без ответа со страницы мануала. Для меня он так же актуален:

Георгий 14 May, 2017, 0:37 Ответить

Здравствуйте, Возможно ли решить следующую задачу: - Проект на Harbour 3.2, среда MS Windows, кодировка .prg CP866; - Все файлы проекта (.dbf и текстовые) в CP866; - hwgui. Хотелось бы сохранить CP866 для исходников и .dbf, но видеть окна и виджеты в читаемом виде, без ручной перекодировки в CP1251 всего, что туда отправляется/принимается. Как это лучше сделать?

 Отправлено: 08.11.18 16:21. Заголовок: AndreyZh пишет: Туп..

AndreyZh пишет:

цитата:

Тупо бросил все *.lib & *.ch в соответствующие каталоги Харбор. Список ошибок сборки уменьшился:

Откуда бросил, из xHarbour?
Лучше так не делать - такая путаница начнется... Если вы собрали HwGUI с xHarbour, то и примеры надо строить с ним: пути в батнике должны быть к xHarbour.
Разберитесь, что чем у вас собрано. Вот эти hb_extIsNil и hb_itemEqual есть в Harbour и отсутствуют в xHarbour

 Отправлено: 08.11.18 16:29. Заголовок: AndreyZh пишет: Хот..

AndreyZh пишет:

цитата:

Хотелось бы сохранить CP866 для исходников и .dbf, но видеть окна и виджеты в читаемом виде, без ручной перекодировки в CP1251 всего, что туда отправляется/принимается.

С dbf все достаточно просто, надо при открытии файла указывать codepage 866. Если для программы указана hb_cdpSelect("RU1251"), то все будет автоматически конвертироваться. А вот с исходниками я не понял. Почему они на 866, они писались для консоли? Если так, то их все-равно переделывать ?

 Отправлено: 08.11.18 17:03. Заголовок: Попробовал пересобра..

Попробовал пересобрать стары проект, ошибка выскакивает при вызове Excel

цитата:

oExcel := GetActiveObject( "Excel.Application" ) Res:=.t. hwg_Msginfo("Старт Excel - активация 1 !" ) CATCH Res:=.f. TRY oExcel := CreateObject( "Excel.Application" ) ....

 Отправлено: 08.11.18 17:48. Заголовок: alkresin пишет: Отк..

alkresin пишет:

цитата:

Откуда бросил, из xHarbour?

Ничего не пересобирал. Взял бинарники с Вашего сайта. В последней сборке примера из hwgui библы и ch кинул в соответствующие каталоги харбора

alkresin пишет:

цитата:

С dbf все достаточно просто, надо при открытии файла указывать codepage 866. Если для программы указана hb_cdpSelect("RU1251"), то все будет автоматически конвертироваться. А вот с исходниками я не понял. Почему они на 866, они писались для консоли? Если так, то их все-равно переделывать ?

Есть исходник 866: 5% интерфейса и 95% "математики"... хотелось бы интерфейс переделать под гуи, оставив остальное, как есть

Спасибо за подсказки. Завтра будет время - ещё "поиграюсь"

 Отправлено: 08.11.18 18:33. Заголовок: AndreyZh пишет: Воз..

AndreyZh пишет:

цитата:

Возможно ли решить следующую задачу: - Проект на Harbour 3.2, среда MS Windows, кодировка .prg CP866; - Все файлы проекта (.dbf и текстовые) в CP866; - hwgui. Хотелось бы сохранить CP866 для исходников и .dbf, но видеть окна и виджеты в читаемом виде, без ручной перекодировки в CP1251 всего, что туда отправляется/принимается. Как это лучше сделать?

У меня тоже был проект на терминалке на хХарборе.
Сейчас переделал на МиниГуи: базы в 866 кодировке, экран 1251. Исходники переделал под 1251, чтобы редактором нормальными пользоваться и вывод в лог-файлы была кодировка 1251 (делаю юзеру запуск лог-файла с notepad'ом).
Убил времени порядочно, пока осваивал, да и не всегда время позволяло, зато теперь задача классно смотрится и работает, сейчас пробую переходить на МиниГуи и MS VC2017 64bit, получается.

 Отправлено: 08.11.18 19:40. Заголовок: AndreyZh пишет: Нич..

AndreyZh пишет:

цитата:

Ничего не пересобирал. Взял бинарники с Вашего сайта.

Я спросил, потому что в вашем первом листинге было:

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/

Т.е., вы собираете xHarbour'ом HwGUI-библиотеки, сделанные Harbour'ом ? Ничего хорошего из этого не может получиться.

цитата:

Есть исходник 866: 5% интерфейса и 95% "математики"... хотелось бы интерфейс переделать под гуи, оставив остальное, как есть

Я все-таки не понял. Это остальное формирует строки, прописанные непосредственно в исходниках, которые потом использует интерфейсная часть?

 Отправлено: 08.11.18 19:46. Заголовок: Vlad04 пишет: oExce..

Vlad04 пишет:

цитата:

oExcel := GetActiveObject( "Excel.Application" ) ... CreateObject( "Excel.Application" )

Попробуйте win_OleCreateObject(), это из библиотеки hbwin

 Отправлено: 08.11.18 22:24. Заголовок: Vlad04 пишет: Попро..

Vlad04 пишет:

цитата:

Попробовал пересобрать стары проект, ошибка выскакивает при вызове Excel

Указал бы на какой строке что ли..

 Отправлено: 09.11.18 09:16. Заголовок: Всё перепуталось... ..

Всё перепуталось... ну и ладно

alkresin пишет:

цитата:

Я спросил, потому что в вашем первом листинге было: xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ Т.е., вы собираете xHarbour'ом HwGUI-библиотеки, сделанные Harbour'ом ? Ничего хорошего из этого не может получиться.

Не пересобирал, а взял дистрибутив с бинарниками… Первый раз тупо попытался собрать пример, используя рабочий xHarbour, наткнувшись на ошибку по echo остальные попытки делал уже на Harbouur 3.0

alkresin пишет:

цитата:

Я все-таки не понял. Это остальное формирует строки, прописанные непосредственно в исходниках, которые потом использует интерфейсная часть?

Пока это не важно, а для меня неспешно нужно понять работоспособность и пригодность инструмента, хотя бы на приложенных примерах. Увы для этого мало времени, т.к. приходится поддерживать и постоянно развивать два огромных консольных проекта.

На Ваш инструмент "заглядываюсь" давно и мне он очень потенциально интересен по двум соображениям:

1. В нём реализован разумный Гуёвый минимум, что в принципе потенциально облегчит изучение и миграцию. К тому же появился нормальный рускоязычный мануал;
2. Учитывая "непредсказуемость" государства Российского поддержка Linux является огромным козырем, а учить собираюсь лишь возможности поддерживаемые одновременно во всех ОС... это же одна из причин, что продолжаю писать консольные программы

Спасибо Вам за Вашу полезную разработку!!!

 Отправлено: 09.11.18 12:15. Заголовок: Возможно "пригод..

Возможно "пригодиться". При попытке собрать проект hwgui из сырцов дало ошибку на отсутствие ch файла, которого нигде нет

MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
c:\xHarbour\bin\harbour.exe -iinclude;\include -n -q0 -w -es2 -gc0 source\winapi\hipedit.prg -oobj\b32\hipedit.c

source\winapi\hipedit.prg(12) Error F0029 Can't open #include file: 'hbclass.ch'

** error 1 ** deleting obj\b32\hipedit.c

 Отправлено: 09.11.18 12:32. Заголовок: AndreyZh пишет: Can..

AndreyZh пишет:

цитата:

Can't open #include file: 'hbclass.ch'

Это Харборовский файл (он и в xHarbour есть), в его /include. У вас, похоже, HB_PATH не установлен, поэтому получилось

c:\xHarbour\bin\harbour.exe -iinclude;\include -n -q0 -w -es2 -gc0 source\winapi\hipedit.prg -oobj\b32\hipedit.c

вместо

c:\xHarbour\bin\harbour.exe -iinclude;c:\xHarbour\include -n -q0 -w -es2 -gc0 source\winapi\hipedit.prg -oobj\b32\hipedit.c

 Отправлено: 09.11.18 12:42. Заголовок: AndreyZh пишет: ост..

AndreyZh пишет:

цитата:

остальные попытки делал уже на Harbouur 3.0

А где вы его взяли? На сайте ночная сборка - 3.2

 Отправлено: 10.11.18 09:20. Заголовок: Вроде бы собрал HWGU..

Вроде бы собрал HWGUI из исходников при помощи xHarbour... Однако при сборке любых примеров вылетает одинаковая ошибка

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tab.prg'...
Lines 57, Functions/Procedures 2
Generating C source output to 'tab.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
tab.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Error: Unresolved external '_HB_IS_TIMEFLAG' referenced from C:\HWGUI\LIB\HWGUI.LIB|misc
Error: Unresolved external '_HB_FUN_HB_TSTOSTR' referenced from C:\HWGUI\LIB\HWGUI.LIB|hbrowse

 Отправлено: 10.11.18 17:25. Заголовок: Этих функций в xHarb..

Этих функций в xHarbour нет. Просто закомментируйте строку с вызовом HB_IS_TIMEFLAG в misc.c и HB_TSTOSTR в hbrowse.prg, Если вы не используете тип данных DATETIME (я, например, не использую), то проблем не будет.
Я поставлю вокруг них #ifndef _XHARBOUR_

 Отправлено: 10.11.18 19:25. Заголовок: Спасибо за подсказку..

Спасибо за подсказку. Закоментировал - примеры собираются. Если интересно: в helpdemo при нажатии F1 вылет с диагностическим окном ОС

 Отправлено: 11.11.18 13:08. Заголовок: Исправил. Там надо в..

Исправил. Там надо в misc.c, функция HB_FUNC( HWG_GETHELPDATA ) поменять hb_parnl на HB_PARHANDLE и hb_retnl на HB_RETHANDLE, функция HB_FUNC( HWG_WINHELP ), строчка

hb_retni( WinHelp( ( HWND ) hb_parnl( 1 ), HB_PARSTR( 2, &hStr, NULL ),

тоже поменять hb_parnl на HB_PARHANDLE

 Отправлено: 14.11.18 09:11. Заголовок: Доброе утро Александ..

Доброе утро Александр. По мере нахождения времени пытаюсь вникнуть в Ваш инструмент и в принципе все предположения о нём и ожидания оправдываются…

1. Интересны ли Вам ошибки? Например в примерах:

grid_4.prg - лишняя строка oServer:Close() вызывающая ошибку;
testtray.prg - вылет при запуске: Error BASE/1004 Class: 'NIL' has no exported method: HANDLE
Called from ->HANDLE(0)
Called from source\winapi\hwindow.prg->HMAINWINDOW:INITTRAY(397)
Called from testtray.prg->MAIN(15)

2. Маленький вопрос. Стандартный серый цвет скучноват. Область окон и контролов могу украсить. Можно ли? Менять оформление области меню и/или заголовка окна - они как бы "сливаются"

 Отправлено: 14.11.18 10:00. Заголовок: Вот и сейчас... попы..

Вот и сейчас... попытался использовать, как бы очевидную вещь. Полностью код:

 
 * -------------------------------------------------------------------------------------------------- 
 *   Произвожу другие эксперименты в окне диалогов. Попробую Grid и просмотр таблиц в дос кодировке 
 PROC pgDialogGet()     
     LOCA oModDlg 
     LOCA oIcon:= HIcon():AddFile("Bob.ico") 
      
     //  Открываю Dos таблицу в соответствующей кодировке - якобы преобразование будут на лету? 
     USE ("hle.dbf") EXCLUSIVE NEW CODEPAGE (cgCodePage) 
      
     //  Задаём метод при закрытии окна - закрыть таблицу 
     INIT DIALOG oModDlg TITLE " Модальное окно для теста"; 
         AT 150,180  SIZE 800,300 ICON oIcon; 
         BACKCOLOR hwg_ColorC2N(cgBackCol) NOEXIT; 
         ON EXIT {||HLE->(DbCloseArea())} 
      
     @ 20,257  SAY "Алиас: "+Alias() SIZE 100, 18 BACKCOLOR  hwg_ColorC2N(cgBackCol)    
     @ 680,250 BUTTON "Выход" ID IDCANCEL  SIZE 100, 32 
      
     ACTIVATE DIALOG oModDlg 
     RETU 
 

После добавления выделенной команды, закрывающей таблицу программа вываливается по ошибке:

Error BASE/1066 Argument error: conditional
Called from source\winapi\hdialog.prg->HWG_ENDDIALOG(515)
Called from source\winapi\hdialog.prg->ONDLGCOMMAND(368)
Called from source\winapi\hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from source\winapi\hdialog.prg->HDIALOG:ONEVENT(196)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from source\winapi\hdialog.prg->HDIALOG:ACTIVATE(141)
Called from test.prg->PGDIALOGGET(80)
Called from test.prg->(b)MAIN(32)
Called from source\winapi\hwindow.prg->ONCOMMAND(607)
Called from source\winapi\hwindow.prg->(b)HMAINWINDOW(289)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ONEVENT(379)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ACTIVATE(368)
Called from test.prg->MAIN(59)

HWGUI 2.21 Build 5
Date:11/14/18
Time:10:56:04

 Отправлено: 14.11.18 10:17. Заголовок: AndreyZh пишет: ON ..

AndreyZh пишет:

цитата:

ON EXIT {||HLE->(DbCloseArea())}

Кодоблок для on exit всегда должен возвращать логическое значение - результат проверки, можно ли закрывать окно/диалог. Если это .F. - диалог не будет закрыт. Вам надо написать:

ON EXIT {||HLE->(DbCloseArea()),.T.}

 Отправлено: 14.11.18 10:39. Заголовок: AndreyZh пишет: Инт..

AndreyZh пишет:

цитата:

Интересны ли Вам ошибки?

Да, конечно.
Что касается grid_4 - исправлю, конечно. Grid и listbox - те классы, которые писали бразильские коллеги и в полезности которых я сильно сомневаюсь, т.к. они не кроссплатформенны (в gtk таких родных просто нет) и для них есть универсальная замена - hbrowse, гораздо более функциональная.

А testray я уже исправил и расширил несколько дней тому назад (см. SVN) - там надо а testtray.rc изменить название файла иконки, вместо pim.ico (такого в images Просто нет) на, например, ok.ico.

цитата:

Менять оформление области меню и/или заголовка окна - они как бы "сливаются"

Такой возможности сейчас в HwGUI нет. Это области системные, я не уверен, что вообще можно это делать. Можно, конечно, поискать пути.
Один из вариантов с меню - не делать системного иеню вообще, а вместо этого поставить наверху панель с кнопками и на одну из кнопок посадить контекстное меню. Так сейчас, например, в броузерах делают - кнопка с тремя полосками.

 Отправлено: 14.11.18 12:10. Заголовок: Спасибо за информаци..

Спасибо за информацию... Про "Grid и listbox - те классы, которые писали бразильские коллеги и в полезности которых я сильно сомневаюсь, т.к. они не кроссплатформенны" забыл, а интересны только кроссплатформенные возможности. Вникать в HwGUI могу только в "перерывах", но буду стараться, по мере возможности

 Отправлено: 15.11.18 09:50. Заголовок: HwGUI 2.21 build 6

Выпустил релиз HwGUI 2.21 build 6
[*] HIcon():AddFile() automatically adds file extension (ico or png) if it isn't defined.
[*] Added support of the icon in a main window for Designer's forms.
[!] Fixes, corrections.

 Отправлено: 20.11.18 14:45. Заголовок: Извините, но не совс..

Извините, но не совсем понял настройки шрифтов [ WIDTH <nWidth> ] [ HEIGHT <nHeight> ] [ WEIGHT <nWeight> ] - как влияют значения. В примерах обычно WIDTH 0 HEIGHT -13, а изменения значений приводят к непонятным результатам

 Отправлено: 20.11.18 16:56. Заголовок: Про WIDTH забудьте, ..

Про WIDTH забудьте, я когда-то его ввел, потому что он есть в структуре шрифта winapi, но на что он реально влияет, до сих пор не знаю.
HEIGHT (высота) - главная характеристика размера шрифта. Чем больше положительное значение или чем меньше отрицательное - тем больше шрифт. Отрицательное связано с высотой символа, а положительное - с высотой ячейки (символ вместе с пустотами).
WEIGHT определяет жирность. Для нормального WEIGHT=400, для жирного - 700, другие значения не работают). Это не я придумал, это winapi.

 Отправлено: 21.11.18 08:19. Заголовок: Спасибо! Александр,..

Спасибо!

Александр, я понимаю, что мануал Вы пишете по мере нахождения на это времени. Можно попросить Вас, когда будет возможность описать класс ProgressBar, т.к. из примера мне сложно понять свойства и методы, а так же BROWSE?

 Отправлено: 21.11.18 08:44. Заголовок: Я постараюсь. Если P..

Я постараюсь.
Если ProgressBar достаточно прост, там всего-ничего, то Browse...

 Отправлено: 21.11.18 11:25. Заголовок: Сильно не отвлекайте..

Сильно не отвлекайтесь на меня... "смотрю" во время "отдыха". Часто использую функции *Token(), которые в "других" библиотеках, соответственно стандартный сборщик не видит библ. Добавил в bld.bat

if exist %HRB_DIR%\lib\ct.lib echo %HRB_DIR%\lib\ct.lib + >> b32.bc
if exist %HRB_DIR%\lib\xhb.lib echo %HRB_DIR%\lib\xhb.lib + >> b32.bc

т.е. для xHarbour & Harbour соответсвенно

 Отправлено: 21.11.18 17:11. Заголовок: Александр добрый ден..

Александр добрый день! Выскочила ошибка в DBCHW.
Ошибкам проявляется в том случае, если кликнуть мышкой
правее последнего поля таблицы. Такой ошибки не было в версии
2.18 build 2.

Error BASE/1132 Bound error: array access
Called from source\winapi\hbrowse.prg->HBROWSE:BUTTONDOWN(1517)
Called from source\winapi\hbrowse.prg->HBROWSE:ONEVENT(393)
Called from ->HWG_ACTIVATEMDIWINDOW(0)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ACTIVATE(361)
Called from dbchw.prg->MAIN(296)

HWGUI 2.21 Build 6
Date:21/11/18
Time:15:56:18

И еще одно замечание. В версии 2.18 build 2. все открытые индексы
были в списке открытых индексов, и можно было выбрать любой индекс.
Сейчас остается только один последний индекс. Это теперь так
всегда будет?

 Отправлено: 21.11.18 18:39. Заголовок: nick_mi пишет: Erro..

nick_mi пишет:

цитата:

Error BASE/1132 Bound error: array access Called from source\winapi\hbrowse.prg->HBROWSE:BUTTONDOWN(1517)

Исправил, залил на SVN.

цитата:

В версии 2.18 build 2. все открытые индексы были в списке открытых индексов, и можно было выбрать любой индекс. Сейчас остается только один последний индекс.

Это если индексы в нескольких файлах и вы их открываете по одному (Open index)?
Да, там стоял просто set index to, я сейчас добавил additive. Но это уже очень давно не менялось.

 Отправлено: 22.11.18 12:21. Заголовок: Продолжу? Детские во..

Продолжу? Детские вопросы. Теперь по кнопкам

1. @ 10, 636 BUTTON "Очистка списка АкцМ" SIZE 200, 32 BACKCOLOR hwg_ColorC2N(cgBackCol) COLOR hwg_ColorC2N(cgColor)
Не меняет ни цвета текста, ни фона - обычный черный на сером

2. Здесь две проблемы сразу:
@ 10, 636 OWNERBUTTON ob1 OF oMainWind ID 108 TEXT "Очистка списка АкцМ" SIZE 200, 32 BACKCOLOR hwg_ColorC2N(cgBackCol)
Это меняет фон, но текст остаётся черным

Сделал эксперимент с двумя вариантами
@ 10, 636 OWNERBUTTON ob1 OF oMainWind ID 108 TEXT "Очистка списка АкцМ" SIZE 200, 32 BACKCOLOR hwg_ColorC2N(cgBackCol) COLOR {||.T.}
@ 220,636 OWNERBUTTON ob2 OF oMainWind ID 109 TEXT "Определить алкокоды" SIZE 200, 32 BACKCOLOR hwg_ColorC2N(cgBackCol) COLOR hwg_ColorC2N(cgColor)

Выдаёт ошибки компиляции

Compiling 'OprId.prg'...

OprId.prg(56) Error E0030 Syntax error: "syntax error at '{'"

OprId.prg(57) Error E0022 Invalid lvalue: '()'

 Отправлено: 22.11.18 13:00. Заголовок: Позвольте так же зам..

Позвольте так же замечания по инструкции? Просто смотреть примеры не могу, а посему пытаюсь сделать что-то полезное...

1. Смотря какой-то пример увидел функцию hwg_Selectfile("Файл из БД УСЕга", "*.*") Захотел посмотреть, как использовать - её вообще нет в описании, начал изучать методом тыка… Оказывается она сменяет текущий каталог.

2. Решил вставить в форму EDITBOX - нужное работает. Увидел, что создаётся объект. Как его использовать - смотрю описание класса:

METHODS
New( oWndParent, nId, vari, bSetGet, nStyle, nLeft, nTop, nWidth, nHeight, ;
oFont, bInit, bSize, bGfocus, bLfocus, ctooltip, ;
tcolor, bcolor, cPicture, lNoBorder, nMaxLength, lPassword, bKeyDown, bChange )
Activate()
onEvent( msg, wParam, lParam )
Init()
Refresh()
Value( xValue ) SETGET
SelStart( nStart ) SETGET
SelLength( nLength ) SETGET
ParsePict( cPicture, vari )

Начитаю тыкаться: записать в поле, взять в поле... не получается смотрю кучу примеров, где есть editbox, в каком-то нахожу oEdit:SetText("") - значит типа вставляет текст, получилось. Как взять - с потолка пишу с:=oEdit:GetText() - получается... НО ЭТИ МЕТОДЫ ВООБЩЕ НЕ УПОМИНАЮТСЯ у класса!

 Отправлено: 22.11.18 14:00. Заголовок: Ещё ошибочка... Мне ..

Ещё ошибочка... Мне нужно в одной области ввести несколько строк. Насколько понял GET и EDITBOX это не позволяют? Нашел HCEDIT. При сборке xHarbour вылетает по ошибке компиляции

Error: Unresolved external '_HB_FUN_HB_AT' referenced from C:\XHARBOUR\LIB\PROCMISC.LIB|hcedit
Error: Unresolved external '_HB_FUN_HB_RAT' referenced from C:\XHARBOUR\LIB\PROCMISC.LIB|hcedit

В xHarbour Нет HB_At() и HB_Rat(), но есть At(), Rat() Вставив заплатку в программу:

FUNC HB_At(c,b); RETU At(c,b)
FUNC HB_RAt(c,b); RETU Rat(c,b)

Всё собралось и работает, как ожидалось...

 Отправлено: 22.11.18 18:54. Заголовок: AndreyZh пишет: @ 1..

AndreyZh пишет:

цитата:

@ 10, 636 BUTTON ... BACKCOLOR hwg_ColorC2N(cgBackCol) ...

В стандартной кнопке цвета не меняются, она целиком отрисовывается системой.

цитата:

@ 220,636 OWNERBUTTON ...TEXT "Определить алкокоды" SIZE 200, 32 BACKCOLOR hwg_ColorC2N(cgBackCol) COLOR hwg_ColorC2N(cgColor)

COLOR здесь должен находиться рядом с TEXT, так определена команда:
@ 220,636 OWNERBUTTON ...TEXT "Определить алкокоды" COLOR hwg_ColorC2N(cgColor) ...

С OWNERBUTTON рекомендую использовать стили (HStyle) - см. примеры в HwGui Tutor. А чтобы стандартные контролы выглядели прилично, не забывайте прилинковывыть WindowsXP.Manifest, как в samples/bld.bat.

 Отправлено: 22.11.18 20:03. Заголовок: AndreyZh пишет: hwg..

AndreyZh пишет:

цитата:

hwg_Selectfile("Файл из БД УСЕга", "*.*") Захотел посмотреть, как использовать - её вообще нет в описании

?? http://www.kresin.ru/hwgdoc_functions.html#Functions1 - там в самом начале. Функции, кстати, есть в документации все. Не все с комментариями, но, по крайней мере, с параметрами и с отметкой, если только для Windows.

цитата:

с:=oEdit:GetText() - получается... НО ЭТИ МЕТОДЫ ВООБЩЕ НЕ УПОМИНАЮТСЯ у класса!

Они унаследованы от родительского класса HControl. Кстати, лучше использовать Value():
string := oEdit:Value
oEdit:Value := string

 Отправлено: 22.11.18 20:09. Заголовок: AndreyZh пишет: Мне..

AndreyZh пишет:

цитата:

Мне нужно в одной области ввести несколько строк.

@ ... EDITBOX ... STYLE ES_MULTILINE - стандартный edit контрол. А HCEdit - более навороченный.
А hb_at(), hb_rat(), действительно, надо будет переопределить через #ifdef __XARBOUR__

 Отправлено: 23.11.18 08:16. Заголовок: Спасибо Александр за..

Спасибо Александр за ответы! Буду разбираться дальше...

 Отправлено: 28.11.18 10:54. Заголовок: Добрый день Александ..

Добрый день Александр! Появилось время посмотреть и сразу кучка непоняток

[img]https://storage.olegon.ru/supermag/ЕГАИС%20и%20УТМ/errhwgui1.jpg[/img]

#include "windows.ch"
#include "guilib.ch"
#define CRLF (CHR(13)+CHR(10))
#define TRUE .T.
#define FALSE .F.

// Мои любимые команды

#xcommand FOR <i>:=<s> TO <n> DO <*statement*> =>;
FOR <i>:=<s> TO <n> ; <statement> ; END
#xcommand IF <cond> THEN <*statement*> =>;
IF <cond> ; <statement>; ENDIF
#xcommand DEFAULT <p> TO <v> [, <p2> TO <v2> ] => ;
<p> := IF(<p> == NIL, <v>, <p>) ;
[; <p2> := IF (<p2> == NIL, <v2>, <p2>) ]

// Список настраиваемых цветов программы
STAT cgBackCol := "000033" // Фон для контролов
STAT cgColor := "ffff99" // Шрифт для контролов
STAT cgCodePage := "RU866" // Кодовая страница внешних Dbf файлов

// Глобальные для программы переменные, вызываемые из разных процедур
STAT oBitmap // Картинка QR кода отражаемая на экране
STAT oBtmp // Объект BITMAP
*STAT oEdit // Объект преобразуемого кода

* --------------------------------------------------------------------------------------------------
* Освоение окон и меню
PROC Main()
LOCA nWidthScr := hwg_GetDesktopWidth() // Ширина экрана в пикселах.
LOCA nHeightScr := hwg_GetDesktopHeight() // Высота экрана в пикселах.
LOCA nwW:=0, nwH:=0, nbW:=0, nbH:=0, nControl:=0, nTop:=0
LOCA oFont, oArial, oeW, oeH
LOCA oIcon:= HIcon():AddFile("Bob.ico")
PRIV oEdit

// Даю стартовую картинку. При вводе знаков генерации QR кода она будет перерисовываться
oBitmap := HBitmap():AddFile("Zhdun.bmp")

PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
PREPARE FONT oArial NAME "Arial Cyr" WEIGHT 700 HEIGHT -12

// Инициализация главного окна - размер в половину экрана

// Размеры главного окна - позиционирование других контролов
nwW := Int(nWidthScr/2) // Ширина окна
nwH := Int(nHeightScr/2) // Высота окна
INIT WINDOW oMainWind MAIN;
TITLE " Ввод, отражение в главном окне и печать QR кода";
ICON oIcon FONT oFont;
AT 1,1 SIZE nwW,nwH BACKCOLOR hwg_ColorC2N("cccccc")

oMainWind:Center() // Центрирую окно

// Расчет размера картинки в четверть исходного окна
nbW := Int(nwW/4)
nbH := Int(nwH/4)

// Рисую картинку по центру в половину окна - команда растягивает на всю указанную область - это лучше, чем фон окна
@ Int(nWidthScr/5.6),Int(nHeightScr/7) BITMAP oBitmap ID 1001 SIZE nbW, nbH ON CLICK {||pDemo()}

*********************
* Правильно ли понимаю, что ряд команд не "возвращает" объект и его приходится определять через опу

// Определяю глобальный объект контрола из потокового автоматического добавления в массив контролов
nControl := Len(oMainWind:aControls)
oBtmp := oMainWind:aControls[nControl]

********************
* Криво отражается обрамление на W10 что видно на скрине
oBtmp:nBorder := 10

//*** Добавляю контролы для ввода информации и кнопки, вызывающие действия над картинкой QR кода

// Координаты верхней линии объектов
nTop := nwH - 70

// Область ввода преобразуемых знаков
@ 10,nTop-26 SAY "Внесите знаки: " FONT oArial SIZE 200, 26 BACKCOLOR hwg_ColorC2N("cccccc")
* @ 106,nTop-30 EDITBOX oEdit SIZE 390, 56 ON LOSTFOCUS {||lChBitmap()} STYLE ES_MULTILINE
@ 106,nTop-30 EDITBOX oEdit SIZE 390, 56 STYLE ES_MULTILINE

@ 10,nTop BUTTON "Показать" SIZE 80, 26 ON CLICK {||lChBitmap()}


// Активируются все объекты окна и ожидание события
**************************
* Вылет при выполнеии
* oEdit:SetFocus()
* Error BASE/1004 Class: 'NIL' has no exported method: SETFOCUS

ACTIVATE WINDOW oMainWind
RETU

* --------------------------------------------------------------------------------------------------
* При вводе знаков генерации QR кода, а точнее при потере фокуса на EDIT она будет перерисовываться
FUNC lChBitmap()
* LOCA cTxt:="17N00000ABLPONIUZUK05Z0212110060000251417714923913814124721320664222"
LOCA cPict:="" // cTxt:=Alltrim(oEdit:value)

***********************************************
* Вылет при любой ссылки на объект oEdit при любом назначении, что PRIV, что STAT
LOCA cTxt:=Alltrim(MEMV->oEdit:GetText())
hwg_Msginfo(cTxt)

// Не преобразую, если ничего не введено
IF Empty(cTxt) THEN RETU .F.

// Создаю новый файл картинки QR кода и перегружаю его в объект
cPict := cQRGen(cTxt,"","qr.bmp")
* hwg_Msginfo(cPict)
* MEMV->oBtmp:Release()
* MEMV->oBitmap := HBitmap():AddFile(cPict)
* MEMV->oBtmp:Refresh()
RETU .F.

* --------------------------------------------------------------------------------------------------
* Процедура заглушка для разрабатываемых режимов
PROC pDummy()
RETU

* --------------------------------------------------------------------------------------------------
* Проверка переданных параметров
PROC pDemo()
LOCA nW:=hwg_GetDesktopWidth(), nH:=hwg_GetDesktopHeight()
* LOCA nwW:=oMainWind:Width, nwH:=oMainWind:Height

* hwg_Msginfo("Ширина экрана: "+Str(nW)+" высота экрана: "+Str(nH)+CRLF+"Ширина окна: "+Str(nwW)+" высота окна: "+Str(nwH))
hwg_Msginfo("Ширина экрана: "+Str(nW)+" высота экрана: "+Str(nH)+CRLF+"Количество контролов: "+Str(Len(oMainWind:aControls)))
RETU

 Отправлено: 28.11.18 11:10. Заголовок: Заменил EDITBOX на ..

Начал пробовать EDITBOX по Вашему совету. Сейчас заменил EDITBOX на
@ 106,nTop-30 HCEDIT oEdit1 SIZE 390, 56 ON LOSTFOCUS {||cgTxt:=oEdit1:GetText(), lChBitmap(), .F.}

Объект oEdit1 стал везде виден

 Отправлено: 28.11.18 13:43. Заголовок: Так же работает конс..

Так же работает конструкция:
STAT oGet
Proc Main()
….
@ 106,nTop-30 GET oGet VAR cgTxt STYLE ES_MULTILINE SIZE 390, 56

и даже так работает, как ожидается:
@ 106,nTop-30 GET oGet VAR cgTxt SIZE 390, 56 VALID {||lChBitmap()} STYLE ES_MULTILINE
…
FUNC lChBitmap()
hwg_Msginfo(oGet:Value)

 Отправлено: 28.11.18 14:12. Заголовок: Как я понял, проблем..

Как я понял, проблемы три:

1) * Правильно ли понимаю, что ряд команд не "возвращает" объект и его приходится определять через опу

Неправильно). В данном случае вместо:

@ ... BITMAP oBitmap ID 1001 SIZE nbW, nbH ON CLICK {||pDemo()}

надо

@ ... BITMAP oBtmp SHOW oBitmap ID 1001 SIZE nbW, nbH ON CLICK {||pDemo()}

2) с EDITBOX и oEdit
Здесь аналогично, должно быть:

@ 106,nTop-30 EDITBOX oEdit CAPTION ""

иначе, если как вас, oEdit воспринимается как CAPTION - см. соответствующую команду в документации, или в guilib.sh

3) border - это надо посмотреть.

 Отправлено: 28.11.18 14:18. Заголовок: Спасибо! Ещё раз поч..

Спасибо! Ещё раз почитаю мануал и попробую... Кстати @ x,y,GET не нашел в описаниях - смотрел по *.ch

 Отправлено: 28.11.18 15:31. Заголовок: AndreyZh пишет: Кст..

AndreyZh пишет:

цитата:

Кстати @ x,y,GET не нашел в описаниях

http://www.kresin.ru/hwgdoc_commands.html#Commands4
И в doc/hwgdoc_commands.html в том же месте.

С border разобрался, исправил.

 Отправлено: 28.11.18 16:09. Заголовок: alkresin пишет: И в..

alkresin пишет:

цитата:

И в doc/hwgdoc_commands.html в том же месте

Вы пополняете документацию быстрее, чем я скачиваю от туда информацию... клянусь, что 2 недели назад этого раздела не было... Первый учебный пример вроде бы заработал, как хочу и многим, как утилитка может полезна "просмотр и печать в любом размере QR кодов". Исходник могу разместить, но он использует стороннюю DLL, а так скачать всё можно Программа формирования QR кодов

З.Ы. Ждите повышения "интереса" к Вашей разработке, а когда у меня будет время - продолжу освоение?

 Отправлено: 28.11.18 16:58. Заголовок: AndreyZh пишет: Вы ..

AndreyZh пишет:

цитата:

Вы пополняете документацию быстрее, чем я скачиваю от туда информацию... клянусь, что 2 недели назад этого раздела не было...

Был. Клясться не буду, но честное слово дам.

 Отправлено: 02.12.18 15:53. Заголовок: Ошибка сборки Harbour 3.2 + BCC 551+ HWGUI 2.21 b5

orland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
test.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_extIsNil' referenced from C:\HARBOUR\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_itemEqual' referenced from C:\HARBOUR\LIB\HWGUI.LIB|drawtext

каталоги c:\harbour ( в папки include и lib добавлены файлы из hwgui 2.21)
c:\bcc

в примере модуль а.prg ком. файл cld.bat так-же ошибка

 Отправлено: 02.12.18 20:54. Заголовок: Система учета с сайта Кресина тоже не строится

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

f:\Taras\_Win\kresin\huchet\source>rem @echo off f:\Taras\_Win\kresin\huchet\source>set HRB_DIR=c:\harbour f:\Taras\_Win\kresin\huchet\source>set HWGUI_INSTALL=c:\myapps\hwgui_216c f:\Taras\_Win\kresin\huchet\source>c:\harbour\bin\harbour general.prg -n -dRDD_CDX -ic:\harbour\include;c:\harbour\contrib\rdd_ads;c:\myapps\hwgui_216c\include Harbour 3.2.0dev (r1802131223) Copyright (c) 1999-2018, https://harbour.github.io/ Compiling 'general.prg'... 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 Lines 6111, Functions/Procedures 58 Generating C source output to 'general.c'... Done. f:\Taras\_Win\kresin\huchet\source>c:\harbour\bin\harbour procpass.prg -n -dRDD_CDX -ic:\harbour\include;c:\myapps\hwgui_216c\include Harbour 3.2.0dev (r1802131223) Copyright (c) 1999-2018, https://harbour.github.io/ Compiling 'procpass.prg'... 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 Lines 1696, Functions/Procedures 2 Generating C source output to 'procpass.c'... Done. f:\Taras\_Win\kresin\huchet\source>c:\harbour\bin\harbour procs3.prg -n -dRDD_CDX -ic:\harbour\include;c:\myapps\hwgui_216c\include Harbour 3.2.0dev (r1802131223) Copyright (c) 1999-2018, https://harbour.github.io/ Compiling 'procs3.prg'... 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 100 200 300 400 Lines 4622, Functions/Procedures 21 Generating C source output to 'procs3.c'... Done. f:\Taras\_Win\kresin\huchet\source>c:\harbour\bin\harbour procflt.prg -n -dRDD_CDX -ic:\harbour\include;c:\myapps\hwgui_216c\include Harbour 3.2.0dev (r1802131223) Copyright (c) 1999-2018, https://harbour.github.io/ Compiling 'procflt.prg'... 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 100 Lines 1974, Functions/Procedures 4 Generating C source output to 'procflt.c'... Done. f:\Taras\_Win\kresin\huchet\source>bcc32 -c -O2 -tW -M -Ic:\harbour\include general.c procpass.c procs3.c procflt.c Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland general.c: procpass.c: procs3.c: procflt.c: f:\Taras\_Win\kresin\huchet\source>brc32 -r general.rc Borland Resource Compiler Version 5.40 Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. f:\Taras\_Win\kresin\huchet\source>echo c0w32.obj + 1>b32.bc f:\Taras\_Win\kresin\huchet\source>echo general.obj + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo procs3.obj + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo procflt.obj + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo procpass.obj, + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo general.exe, + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo general.map, + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\myapps\hwgui_216c\lib\hwgui.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\myapps\hwgui_216c\lib\procmisc.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\myapps\hwgui_216c\lib\hbxml.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>if exist c:\harbour\lib\hbvm.lib goto hrb f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbrtl.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbvm.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\gtwin.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>if exist c:\harbour\lib\gtgui.lib echo c:\harbour\lib\gtgui.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>if not exist c:\harbour\lib\gtgui.lib echo c:\harbour\lib\gtwin.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hblang.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbcpage.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbmacro.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbrdd.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\rddntx.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\rddcdx.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\rddfpt.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbcommon.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbdebug.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbpp.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbhsx.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbsix.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo c:\harbour\lib\hbpcre.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo cw32.lib + 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo import32.lib, 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>echo general.res 1>>b32.bc f:\Taras\_Win\kresin\huchet\source>ilink32 -Gn -aa -Tpe -s -v @b32.bc Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_hb_extIsNil' referenced from C:\HARBOUR\LIB\HWGUI.LIB|draw Error: Unresolved external '_hb_itemEqual' referenced from C:\HARBOUR\LIB\HWGUI.LIB|drawtext f:\Taras\_Win\kresin\huchet\source>del *.tds f:\Taras\_Win\kresin\huchet\source>del *.c f:\Taras\_Win\kresin\huchet\source>del *.map f:\Taras\_Win\kresin\huchet\source>del *.obj f:\Taras\_Win\kresin\huchet\source>del *.res f:\Taras\_Win\kresin\huchet\source>del b32.bc f:\Taras\_Win\kresin\huchet\source>copy general.exe ..\general.exe ЌҐ г¤ Ґвбп - ©вЁ гЄ § --л© д ©«. f:\Taras\_Win\kresin\huchet\source>del general.exe ============================

Использую только бинарники
GWGUI.lib 689152 дата 02.11.2018 для BCC
Harbour 3.2 lib для BCC от 3.0 (3.2 всс нет) но с 3.0 все то=же самое
xHarbour не использую вовсе

без графики HWGUI одну прогу свою собрал работает (расчет расхода бензина по дневнику считает расход за заправку-месяц-год-с начала
эксплуатации авто)

Чуть поправил...тут был Дима

 Отправлено: 03.12.18 10:25. Заголовок: DBCH 3.10 при сборке с исходников dbchrb.bat 2 ошибки

Ошибка компиляции модуля commands.prg
FUNCTION VvType( y, x )
Private c123
prdbf := "X"
prsdf := prdelim := prcsv := " "
@ y, x SAY "[ ] DBF"
@ y+1, x SAY "[ ] SDF"
@ y+2, x SAY "[ ] Delimited"
@ y+3, x SAY "[ ] CSV"
@ y, 23 GET prdbf PICTURE "X" VALID VldType( prdbf, 1, y, x )
@ y+1, x+1 GET prsdf PICTURE "X" VALID VldType( prsdf, 2, y, x )
@ y+2, x+1 GET prdelim PICTURE "X" VALID VldType( prdelim, 3, y, x )
@ y+2, x+14 SAY "With" GET cdelim PICTURE "X" WHEN prdelim == "X"
@ y+3, x+1 GET prcsv PICTURE "X" VALID VldType( prcsv, 4, y, x )
@ y+3, x+9 SAY "delimiter" GET cDelim2 PICTURE "X" WHEN prcsv == "X"
@ y+4, x+9 SAY "quote" GET cquo PICTURE "X" WHEN prcsv == "X"
c123:=Padr(cDateF,10)
@ y+5, x+1 SAY "date format" GET c123 PICTURE "XXXXXXXXXX" WHEN prcsv == "X"

RETURN Nil


//=== Ошибка сборки (не хватает библиотеки xhb.lib
rem set path=c:\softools\mingw\bin
@SET HRB_DIR=c:\harbour
%HRB_DIR%\bin\harbour dbc /n /i%HRB_DIR%\include /dGTWVT >harbour.out
%HRB_DIR%\bin\harbour move /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour lang /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour modistru /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour commands /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour view /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour query /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour pechdbc /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour prcmenu /n /i%HRB_DIR%\include >>harbour.out

%HRB_DIR%\bin\harbour errorsys /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procs1 /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procs3 /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procs5 /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procs7 /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procs8 /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procared /n /i%HRB_DIR%\include >>harbour.out
%HRB_DIR%\bin\harbour procscri /n /i%HRB_DIR%\include /d__NO_HWGUI__ >>harbour.out

rem The following line is for Borland C and gtwin
rem bcc32 -edbch.exe -O2 -I%HRB_DIR%\include -L%HRB_DIR%\lib hbrtl.lib gtwin.lib hbvm.lib hbpp.lib hbcommon.lib hbmacro.lib hbrdd.lib rddntx.lib rddcdx.lib rddfpt.lib hbsix.lib hblang.lib hbcpage.lib hbct.lib dbc.c lang.c move.c modistru.c commands.c view.c query.c pechdbc.c prcmenu.c errorsys.c procs1.c procs3.c procs5.c procs7.c procs8.c procared.c procscri.c procs_c.c >>harbour.out

rem The following line is for Borland C and gtwvt
bcc32 -edbch.exe -O2 -tW -I%HRB_DIR%\include -L%HRB_DIR%\lib hbrtl.lib gtwvt.lib hbvm.lib hbpp.lib hbcommon.lib hbmacro.lib hbrdd.lib rddntx.lib rddcdx.lib rddfpt.lib hbsix.lib hblang.lib hbcpage.lib hbpcre.lib xhb.lib dbc.c lang.c move.c modistru.c commands.c view.c query.c pechdbc.c prcmenu.c errorsys.c procs1.c procs3.c procs5.c procs7.c procs8.c procared.c procscri.c procs_c.c >>harbour.out

rem The following two lines are for Mingw and gtwvt
rem gcc -Wall -mno-cygwin -c -I%HRB_DIR%/include dbc.c lang.c move.c modistru.c commands.c view.c query.c pechdbc.c prcmenu.c errorsys.c procs1.c procs3.c procs5.c procs7.c procs8.c procared.c procini.c procscri.c procs_c.c
rem gcc -Wall -mwindows -odbch.exe dbc.o lang.o move.o modistru.o commands.o view.o query.o pechdbc.o prcmenu.o errorsys.o procs1.o procs3.o procs5.o procs7.o procs8.o procared.o procini.o procscri.o procs_c.o -Lc:\harbour/lib/win/mingw -Wl,--start-group -lhbvm -lhbrtl -lgtwvt -lhblang -lhbrdd -lhbmacro -lhbpp -lrddntx -lrddcdx -lrddfpt -lhbsix -lhbcommon -lhbcpage -lhbct -luser32 -lgdi32 -lwinspool -lcomctl32 -luuid -lkernel32 -lws2_32 -Wl,--end-group

@del *.obj
@del *.o
@del dbc.c
@del move.c
@del lang.c
@del modistru.c
@del commands.c
@del view.c
@del query.c
@del pechdbc.c
@del prcmenu.c
@del errorsys.c
@del procs1.c
@del procs3.c
@del procs5.c
@del procs7.c
@del procs8.c
@del procared.c
@del procscri.c

 Отправлено: 03.12.18 12:49. Заголовок: taras56 пишет: Испо..

taras56 пишет:

цитата:

Использую только бинарники

Т.е., вы используете готовые библиотеки от Harbour 3.0 и HwGUI (собранные на Harbour 3.2)? Так не получится.
Если будете использовать Harbour 3.0, то соберите HwGUI из исходников под ним. Только придется удалить/закомментировать 2 последние функции в hwgui/source/winapi/drawtext.c ( GetFontsCallback и HB_FUNC( HWG_GETFONTSLIST ) ). Я это дело поправлю с помощью #if ... #endif.
Если же будете пользоваться Harbour 3.2 и bcc, то скачайте исходники и соберите - это нетрудно, в случае чего поможем.

 Отправлено: 03.12.18 14:24. Заголовок: Harbour 3.2 есть BIn , include нет lib (lib jn Harboour 3.0)

мой e-mail tarasow@orskmail.ru
если есть весь комплект Harbour 3.2 вышли.
так может в модуле drawtext.c закоментировать эти 2 функции и obj подключить во время сборки ?

Собрал DBCH 3.10 в варианте GtWin пришлось добавить 3 библиотеки
hbpcre.lib xhb.lib gtwvt.lib ,
а prg модуль procs.c есть (в исходниках только procs.c ? тоже нужен .

не люблю навороченных командных файлов и условных трансляций
так это почему ?
Error: Unresolved external '_hb_extIsNil' referenced from C:\HARBOUR\LIB\HWGUI.LIB|window
Error: Unresolved external '_hb_itemEqual' referenced from C:\HARBOUR\LIB\HWGUI.LIB|drawtext

Прошу прощения 16 лет начальником отпахал.

 Отправлено: 03.12.18 15:20. Заголовок: HwGui 2.21 b6 создание lib освоил но

Функции модуля drawtext.c
GetFontsCallback и HB_FUNC( HWG_GETFONTSLIST )
закрыл
#if defined( __XHARBOUR__)
...
#endif
но все равно прет
Error: Unresolved external '_hb_extIsNil' referenced from C:\HARBOUR\LIB\HWGUI.LIB|window ????

 Отправлено: 03.12.18 15:37. Заголовок: _hb_extIsNil - это и..

_hb_extIsNil - это из-за того, что вы используете библиотеки от разных версий Harbour.
Выложил вот здесь Harbour 3.2? самый последний, собранный с bcc 5.5.1.
С ним не будет ни _hb_extIsNil, ни _hb_itemEqual.

цитата:

а prg модуль procs.c есть (в исходниках только procs.c ? тоже нужен .

Может, procs_c.c ? Это чистый C файл, prg такого нет.

 Отправлено: 03.12.18 16:19. Заголовок: Прога пример с Hwgui собралась

1.Заменил в Harbour папки bin include lib
2.перетранслировал и пересобрал hwgui
Спас !
а можно ВСС 551 заменить на 582 ? какие при этом проблемы ?

Буду осваивать HwGui
когда-то alaska юзал но была сырая , разработчики не дружественны да и язык плохо знаю
пришлось проект Расчет ЗП юзать на windows xp до смерти проекта 2013 год (ОАО РЖД полностью ушло на Sap r3)

 Отправлено: 03.12.18 18:43. Заголовок: taras56 пишет: а мо..

taras56 пишет:

цитата:

а можно ВСС 551 заменить на 582 ? какие при этом проблемы ?

Когда-то пробовал. Насколько помню, проблем не было. Остался на 5.5.1, поскольку заметных преимуществ у 5.8.2 не нашел.

 Отправлено: 03.12.18 19:20. Заголовок: alkresin пишет: Ост..

alkresin пишет:

цитата:

Остался на 5.5.1, поскольку заметных преимуществ у 5.8.2 не нашел.

Не совсем правы.

Если предстоит подключать много картинок, то 5.5.1 не соберет ОДИН ресурсный файл больше 500 Кб.
Нужно будет разбивать на части (что я и делаю).
Если внутрь ехе-ника нужно подключить один ресурсный файл (1 картинка, вшить внутрь базу, dll, ехе-ник и т.д.) больше 400-500 Кб (не знаю от чего зависит), то тогда нужно переходить на 5.8.2.
У меня есть своя программа куда я включаю чужой ехе-ник (драйвера) размером 17 Мб.
Люблю программу состоящую из одного ехе-ника.

Далее 5.5.1 допускает только ОДИН файл с несколькими размерами иконок (библиотека иконок), если будет несколько таких файлов, то будет тупая ошибка:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Access violation. Link terminated.
hbmk2[SpravED]: Error: Running linker. 2

Эта ошибка выдаётся ещё в том случае , если линковщик не может присоединить ресурсы
(что в ресурсном файле).
Нужно брать и комментировать каждую строку в ресурсном файле и смотреть какой ресурс (картинка, иконка и т.д.) не нравиться линковщику.
Очень капризен к форматам картинок.

Как делать по частям несколько ресурсных файлов,
смотрите у Григория в МиниГуи - пример Tsb_Export(9.87).7z

 Отправлено: 03.12.18 20:50. Заголовок: Harbour 3.2 трансляция

Как заставить Harbour выдавать строку ошибки и тип ошибки ?
Приходится транслировать Clipper 5.3b в окне DOSBOX 0.74
но и там засада:

369K available
Compiling BENZIN.PRG
guilib.ch(1060) Error C2085 Too many match markers in #translate or #command
guilib.ch(1060) Fatal C3043 #include error

используются
#include "hwgui.ch"
с применением команд графики

 Отправлено: 03.12.18 22:16. Заголовок: taras56 пишет: Как ..

taras56 пишет:

цитата:

Как заставить Harbour выдавать строку ошибки и тип ошибки ?

http://clipper.borda.ru/?1-4-0-00000446-000-0-0-1244791715

 Отправлено: 04.12.18 07:59. Заголовок: Как заставить Harbour выдавать строку ошибки и тип ошибки ?

Поток в файл направляется
но там нет конкретики
номера строки где ошибка (+файл если в *.ch ошибка)
и тип ошибка (в чем проблема)
пример: (то что было в посте N 7 только из под клиппера)

Harbour 3.2.0dev (r1811161533)
Copyright (c) 1999-2018, https://harbour.github.io/
Compiling 'benzin.prg' and generating preprocessed output to 'benzin.ppo'...

100

200

300

400

500

600

700

800

900

1000

1100

1200

1300

1400

1500

1600

1700

1800

100

200

300

400

500

600

700

800

900

1000

1100

1200

1300

1400

1500

1600

100

3 errors

No code generated.

 Отправлено: 04.12.18 08:58. Заголовок: Andrey пишет: Не со..

Andrey пишет:

цитата:

Не совсем правы.

Охотно верю, я его всерьез не тестировал. А проблемы с файлом ресурсов не очень волнуют - я это не использую вообще, потому-что не кросс-платформенно.

> Если внутрь ехе-ника нужно подключить один ресурсный файл (1 картинка, вшить внутрь базу, dll, ехе-ник и т.д.)

А что, разве можно (базу, dll, exe )? Даже не подозревал.

 Отправлено: 04.12.18 09:02. Заголовок: taras56 пишет: Как ..

taras56 пишет:

цитата:

Как заставить Harbour выдавать строку ошибки и тип ошибки ?

В первый раз слышу, что есть такая проблема. Прямо сейчас написал prg c ошибкой, запустил 'harbour a.prg' - ошибка с номером строки вышла на экран, harbour a.prg >a1.out 2>a2.out - вышла в файл a2.out. Кстати, рекомендую флаг /q при компиляции, чтобы не вылезали эти номера строк (100 200 ...).

 Отправлено: 04.12.18 12:59. Заголовок: alkresin пишет: А ч..

alkresin пишет:

цитата:

А что, разве можно (базу, dll, exe )? Даже не подозревал.

Да можно !
Подготовить дистрибутив и пустые базы закатать в ехе-ник. Это на любителя.
У меня есть своя программа куда я включаю чужой ехе-ник (драйвера) размером 17 Мб.
Так как при установки нужны ключи запуска для этих драйверов, вот я и сделал кнопки: установить драйвера, удалить драйвера и инфо о драйвере.

 Отправлено: 05.12.18 07:40. Заголовок: Кириллица в виджетах HWGUI

alkresin Спас за подсказку.

Вопрос ? Чего не хватает что в окнах были надписи Кириллица
Пример:
#include "guilib.ch"
#include "dbstruct.ch"
#include "hbclass.ch"
#include "hxml.ch"

REQUEST HB_CODEPAGE_RU866
REQUEST HB_CODEPAGE_RU1251
REQUEST HB_LANG_RUWIN

ANNOUNCE HB_GTSYS
REQUEST HB_GT_GUI_DEFAULT


Function Main

Public oMainWnd, oFont
Public aCombo := {"Первый","Второй" }
//========================================================

Set Date Format "dd/mm/yyyy" // ввод данных

PREPARE FONT oFont NAME "Times New Roman" WIDTH 0 HEIGHT -13

a1:=hb_langSelect( "RUWIN" ) // язык Russian Windows-1251
a2:=HB_SETCODEPAGE("RU1251") // кодовая страница Russian Windows-1251
a3:=hb_cdpSelect( "RU1251" )
SET EPOCH TO 1960
a4:=HB_TRANSLATE("Заголовок главного окна "+a1+" "+a2+" "+a3 , "RU866", "RU1251" )
INIT WINDOW oMainWnd TITLE a4 ;
FONT oFont ;
ON EXIT {||hwg_MsgYesNo("Завершить программу ?")}

@ 20,10 EDITBOX "Привет !" SIZE 200,30

@ 270,10 COMBOBOX aCombo SIZE 100, 150 TOOLTIP "Combobox"

@ 220,400 BUTTON "Завершить" SIZE 180,60 ON CLICK {||oMainWnd:Close()}

MENU OF oMainWnd
MENUITEM "Кнопка 1" ACTION hwg_MsgInfo("Кнопка 1 выполнить")
ENDMENU

ACTIVATE WINDOW oMainWnd
CLOSE ALL

Return

 Отправлено: 05.12.18 08:45. Заголовок: taras56 пишет: Вопр..

taras56 пишет:

цитата:

Вопрос ? Чего не хватает что в окнах были надписи Кириллица

Ни каких назначений "языков" не нужно, а достаточно, что-бы исходник был в Win кодировке

 Отправлено: 05.12.18 09:12. Заголовок: taras56 пишет: HB_T..

taras56 пишет:

цитата:

HB_TRANSLATE("Заголовок главного окна "+a1+" "+a2+" "+a3 , "RU866", "RU1251" )

А для чего HB_TRANSLATE ? Кодировка исходника в RU866 ?
Сделай в ANSI.

 Отправлено: 05.12.18 09:16. Заголовок: Редактор исходного текста . Какой использовать для Windows

Для windows разработка графических программ с hwgui
я использую Notepad++ 7.5.9
кодировка Кириллица Windows 1251 это правильно ?
моя прога уже отображает Кириллицу кроме
виджета:
@ 20,10 EDITBOX "Привет !!" SIZE 200,40
последняя версия исходников:
#include "guilib.ch"
#include "dbstruct.ch"
#include "hbclass.ch"
#include "hxml.ch"

REQUEST HB_CODEPAGE_RU866
REQUEST HB_CODEPAGE_RU1251
REQUEST HB_LANG_RUWIN

ANNOUNCE HB_GTSYS
REQUEST HB_GT_GUI_DEFAULT


Function Main

Public oMainWnd, oFont
Public aCombo := {"Первый","Второй" }
//========================================================

Set Date Format "dd/mm/yyyy" // ввод данных

PREPARE FONT oFont NAME "Times New Roman" WIDTH 0 HEIGHT -13

a1:=hb_langSelect( "RUWIN" ) // язык Russian Windows-1251
a2:=HB_SETCODEPAGE("RU1251") // кодовая страница Russian Windows-1251
a3:=hb_cdpSelect( "RU1251" )
SET EPOCH TO 1960

INIT WINDOW oMainWnd TITLE " Главное окно"+a1+a2+A3 ;
FONT oFont ;
ON EXIT {||hwg_MsgYesNo("Завершить программу ?")}

@ 20,10 EDITBOX "Привет !!" SIZE 200,40

@ 270,10 COMBOBOX aCombo SIZE 100, 150 TOOLTIP "Combobox"

@ 220,400 BUTTON "Завершить" SIZE 180,60 ON CLICK {||oMainWnd:Close()}

MENU OF oMainWnd
MENUITEM "Кнопка 1" ACTION hwg_MsgInfo("Кнопка 1 выполнить")
ENDMENU

ACTIVATE WINDOW oMainWnd
CLOSE ALL

Return