On-line: гостей 1. Всего: 1 [подробнее..]
АвторСообщение
moderator


Пост N: 1065
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 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

Спасибо: 1 
ПрофильЦитата Ответить
Ответов - 173 , стр: 1 2 3 4 5 6 7 8 9 All [только новые]





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


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

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

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

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

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1120
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 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, то скачайте исходники и соберите - это нетрудно, в случае чего поможем.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 4
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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 лет начальником отпахал.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 5
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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 ????

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1121
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 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 такого нет.

Спасибо: 0 
ПрофильЦитата Ответить



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


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

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

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1122
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 03.12.18 18:43. Заголовок: taras56 пишет: а мо..


taras56 пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6139
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 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

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 7
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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"
с применением команд графики

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6980
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 03.12.18 22:16. Заголовок: taras56 пишет: Как ..


taras56 пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 8
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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.

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1123
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 04.12.18 08:58. Заголовок: Andrey пишет: Не со..


Andrey пишет:

 цитата:
Не совсем правы.


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

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

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

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1124
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 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 ...).

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6140
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 04.12.18 12:59. Заголовок: alkresin пишет: А ч..


alkresin пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 9
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 384
Зарегистрирован: 12.11.06
ссылка на сообщение  Отправлено: 05.12.18 08:45. Заголовок: taras56 пишет: Вопр..


taras56 пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6981
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 05.12.18 09:12. Заголовок: taras56 пишет: HB_T..


taras56 пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 10
Зарегистрирован: 02.12.18
ссылка на сообщение  Отправлено: 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

Спасибо: 0 
ПрофильЦитата Ответить
moderator


Пост N: 1125
Зарегистрирован: 06.07.06
ссылка на сообщение  Отправлено: 05.12.18 09:49. Заголовок: Откомпилировал ваш п..


Откомпилировал ваш пример - все правильно отображает, включая editbox.
Кстати, HB_SETCODEPAGE() не нужен, вместо него уже давно используется hb_cdpSelect(). Странно, что при сборке вы не получаете ошибку об undefined reference. Какой у вас сейчас Harbour?

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 173 , стр: 1 2 3 4 5 6 7 8 9 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 680
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет