Форум » GUI » HwGui 2.21 » Ответить

HwGui 2.21

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

Ответов - 115, стр: 1 2 3 4 5 6 All

taras56: 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 одну прогу свою собрал работает (расчет расхода бензина по дневнику считает расход за заправку-месяц-год-с начала эксплуатации авто) Чуть поправил...тут был Дима

taras56: Ошибка компиляции модуля 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

alkresin: 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, то скачайте исходники и соберите - это нетрудно, в случае чего поможем.


taras56: мой 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 лет начальником отпахал.

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

alkresin: _hb_extIsNil - это из-за того, что вы используете библиотеки от разных версий Harbour. Выложил вот здесь Harbour 3.2? самый последний, собранный с bcc 5.5.1. С ним не будет ни _hb_extIsNil, ни _hb_itemEqual. а prg модуль procs.c есть (в исходниках только procs.c ? тоже нужен . Может, procs_c.c ? Это чистый C файл, prg такого нет.

taras56: 1.Заменил в Harbour папки bin include lib 2.перетранслировал и пересобрал hwgui Спас ! а можно ВСС 551 заменить на 582 ? какие при этом проблемы ? Буду осваивать HwGui когда-то alaska юзал но была сырая , разработчики не дружественны да и язык плохо знаю пришлось проект Расчет ЗП юзать на windows xp до смерти проекта 2013 год (ОАО РЖД полностью ушло на Sap r3)

alkresin: taras56 пишет: а можно ВСС 551 заменить на 582 ? какие при этом проблемы ? Когда-то пробовал. Насколько помню, проблем не было. Остался на 5.5.1, поскольку заметных преимуществ у 5.8.2 не нашел.

Andrey: 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

taras56: Как заставить 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" с применением команд графики

Dima: taras56 пишет: Как заставить Harbour выдавать строку ошибки и тип ошибки ? http://clipper.borda.ru/?1-4-0-00000446-000-0-0-1244791715

taras56: Поток в файл направляется но там нет конкретики номера строки где ошибка (+файл если в *.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.

alkresin: Andrey пишет: Не совсем правы. Охотно верю, я его всерьез не тестировал. А проблемы с файлом ресурсов не очень волнуют - я это не использую вообще, потому-что не кросс-платформенно. > Если внутрь ехе-ника нужно подключить один ресурсный файл (1 картинка, вшить внутрь базу, dll, ехе-ник и т.д.) А что, разве можно (базу, dll, exe )? Даже не подозревал.

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

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

taras56: 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

AndreyZh: taras56 пишет: Вопрос ? Чего не хватает что в окнах были надписи Кириллица Ни каких назначений "языков" не нужно, а достаточно, что-бы исходник был в Win кодировке

Dima: taras56 пишет: HB_TRANSLATE("Заголовок главного окна "+a1+" "+a2+" "+a3 , "RU866", "RU1251" ) А для чего HB_TRANSLATE ? Кодировка исходника в RU866 ? Сделай в ANSI.

taras56: Для 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

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



полная версия страницы