Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
Dima: Haz пишет: Но последних там не будет скорее всего Dima пишет: и потом как именуются файлы тоже понятно. http://hmgextended.com/files/CONTRIB/hmg-21.09-setup.exe http://hmgextended.com/files/CONTRIB/hmg-21.08-setup.exe http://hmgextended.com/files/CONTRIB/hmg-21.07-setup.exe http://hmgextended.com/files/CONTRIB/hmg-21.06-setup.exe и тд и тп :)
gfilatov2002: Опубликована новая сборка 21.10 Благодарю за помощь Сергея Киселева Желаю всем доброго здоровья и успеха в делах
Andrey: Пере собрал несколько своих программ. Полёт нормальный ! Спасибо !
gfilatov2002: Выложил 1-й апдейт сборки 21.10 Обновил также Unicode архив. Благодарю за помощь Андрея Верченко Желаю всем участникам форума мира и добра
imar2: Здравствуйте. Прошу помощи по HMG MiniGUI. У меня консольное приложение (переведено с Clipper'а). Почему-то HMG после версии 21.05 поля GET'ов на экране выделяет двоеточиями в начале и конце. Как это можно убрать и можно ли? Спасибо.
gfilatov2002: imar2 пишет: Как это можно убрать Надо добавить в самом начале главного модуля такую строку Set( _SET_DELIMITERS, .F. )
imar2: gfilatov2002, большое спасибо. Все стало ОК.
gfilatov2002: Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде по адресу: http://hmgextended.com/files/CONTRIB/hmg-21.10-setup.exe Что нового: [pre2] * Fixed: Bug due to stupid typo in the internal function _GenActivateId() (introduced in the build 21.10). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: WebCam commands processing for compatibility with Windows 11. Warning: You should switch ON your camera in the 'Settings': go to 'Privacy & Security' and navigate to Cameras. If you want to allow apps to have access to your camera, make sure that the 'Let apps access your camera' option is enabled. Now you can select specifically which apps can access your camera. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\WebCam_2) * New: 'Draw Edge usage' sample. Based upon a contribution of Pablo Cesar Arrascaeta at HMGFORUM. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\DrawEdge) [/pre2]
SergKis: gfilatov2002 пишет Выложил срочное обновление сборки 21.10 к unicode сборке это относится ?
gfilatov2002: SergKis пишет: к unicode сборке это относится ? Да, уже обновил unicode сборку тоже. Благодарю за напоминание
SergKis: gfilatov2002 пишет уже обновил unicode сборку тоже получаю архив 21.10 unicode, но в нем все от 26.10.21 числа, в лучшем случае
gfilatov2002: SergKis пишет: получаю архив 21.10 unicode Только что проверил этот архив путем скачивания, там все в порядке. Возможно, вам стоит почистить кэш браузера
gfilatov2002: Снова обновил сборку 21.10 из-за обнаруженной недоработки после введения в ядро глобального хэша по адресу: http://hmgextended.com/files/CONTRIB/hmg-21.10-setup.exe Также выложил свежий unicode-архив для этой сборки
Andrey: gfilatov2002 пишет: Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде Перекомпилировал свою большую прогу. Теперь вылетает... Создаю на окне [pre2] DEFINE TBROWSE oBrwList ; ..... FONT aTsbFont ; BACKCOLOR aBackColor2 ; GRID ; // это oBrw:lCellBrw := TRUE EDIT // все колонки с lEdit := .T. END TBROWSE CreateBrowseAbonTxt('oBrwList', ....) END WINDOW CENTER WINDOW Form_AbLst ACTIVATE WINDOW Form_AbLst _hmg_InplaceParentHandle := hParent DoMethod(cWnd, 'SetFocus') IF ! empty(cFocus) DoMethod(cWnd, cFocus, 'SetFocus') ENDIF RETURN NIL .... STATIC FUNCTION CreateBrowseAbonTxt(cTbrName,....) .... // создаём таблицу из массива oBrwA := SetArrayTo( cTbrName, cForm, aArray, aFontHF, aHead, aFSize,; aFoot, aPict, aAlign, aName ) ..... MG_Debug(cTbrName,oBrwA:cControlName) // в лог выдаёт -> oBrwList oBrwList // по правой кнопки мышки - контекстное меню TBROWSE DEFINE CONTEXT MENU CONTROL &cTbrName ..... [/pre2] Ошибка при работе проги: [pre2]Error MGERROR/0 Form is not defined. Program terminated. Called from MSGMINIGUIERROR(0) Called from GETFORMHANDLE(0) Called from _DEFINECONTROLCONTEXTMENU(0) Called from CREATEBROWSEABONTXT(733) in module: form_dog2abon.prg Called from FORM_ABONLIST(461) in module: form_dog2abon.prg Called from DOGLISTABON(224) in module: form_dog2abon.prg Called from (b)FORM_MYTABLE(507) in module: tbrw_table.prg Called from DO_WINDOWEVENTPROCEDURE(0) Called from TWNDDATA:DOEVENT(0) Called from DO_ONWNDLAUNCH(0) Called from (b)INIT(0)[/pre2]
SergKis: Andrey пишет MG_Debug(cTbrName,oBrwA:cControlName) // в лог выдаёт -> oBrwList oBrwList Что просишь (по разному), то и получаешь cTbrName,oBrwA:cControlName спроси после поправленного MG_Debug(...) ? cForm, This.Name, ThisWindow.Name, oBrwA:cParentWnd, oBrwA:cControlName Думаю, что MG_Debug(...) (окно на варианте HMG_Alert()) между DEFINE WINDOW ... и END WINDOW портит среду This, т.е. что хотел, то и получил
gfilatov2002: Подготовил третий релиз-кандидат для новой сборки 21.11 со следующим списком изменений: [pre2] * Modified: The useful functions GetDesktopRealWidth() and GetDesktopRealHeight() were defined as Public for compatibility with Official HMG. Requested by HMG user Jimmy. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Advanced\FitToDesktop) * Modified: The useful function HMG_GetLocaleInfo() was moved to MiniGUI core. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\GetUserLocaleInfo) * Enhanced: Added the read/write property 'Editable' for the GRID control. You can set/get this property at runtime as usually: Win.Grid.Editable := lValue GetProperty( Form, Grid, 'Editable' ) --> .T. | .F. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\Grid_CellNavigation) * Updated: Synchronized Extended HMG for compatibility with Official HMG: - New: Added the read/write property 'CellNavigation' for a Grid control. You can set/get this property at runtime: - function syntax: SetProperty( FormName, GridName, 'CellNavigation', lValue ) GetProperty( FormName, GridName, 'CellNavigation' ) --> .T. | .F. - pseudo-OOP syntax: FormName.GridName.CellNavigation := lValue FormName.GridName.CellNavigation --> logical value Based upon a contribution of Claudio Soto <srvet/at/adinet.com.uy>. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\Grid_CellNavigation) * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: - added mouse click and double click processing in the Special Header; - added the new variables :nBmpMaskCell, :nBmpMaskHead, :nBmpMaskFoot and :nBmpMaskSpcHd in the TSColumn class. Usage: FUNCTION SetBrwEnum( oBrw, nOneCol ) LOCAL oCol, nI, nCnt := 0 DEFAULT nOneCol := 1 FOR EACH oCol IN oBrw:aColumns nI := hb_enumindex( oCol ) oCol:cSpcHeading := NIL oCol:cSpcHeading := iif( nI == nOneCol, "#" , "+" ) IF nI > nOneCol IF oCol:lVisible oCol:cSpcHeading := hb_ntos( ++nCnt ) oCol:nBmpMaskHead := 0x00CC0020 // SRCCOPY oCol:nBmpMaskSpcHd := 0x00CC0020 // SRCCOPY ENDIF ENDIF NEXT RETURN NIL Requested by Verchenko Andrey. Contributed by Sergej Kiselev (see demo in folder \samples\Advanced\Tsb_5Win) * Updated: HBPrinter library: - pacified the warning in the C-code for compatibility with MS Visual C++ 2022 compiler. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see source in folder \Source\HBPrinter) * Updated: HbSQLite3 library: - update for using SQLITE3 latest version 3.37.0dev. Contributed by Grigory Filatov <gfilatov@inbox.ru>. * Updated: Harbour Compiler 3.2.0dev (SVN 2021-04-28 20:02): - restored support for alternative memory manager written by Doug Lea (enabled by default in Harbour). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Working with windows and one card' sample. Note: this example will require a widescreen monitor 22"+. Contributed by Sergej Kiselev and Verchenko Andrey (see in folder \samples\Advanced\Tsb_5Win) * Updated: 'HMG Grid Demo' sample: - updated for the recent changes in the Minigui core. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo.prg in folder \samples\Basic\Grid_Test) * Updated: 'Center Image From Resource' sample. Based upon a contribution of Pierpaolo Martinello (see demo.prg in folder \samples\Basic\IMAGE) * Updated: 'Directory Tree' sample by Vladimir Chumachenko: - fixed handling of the file's name from the Zip archive. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\DirTree) * Updated: 'Framework for SDI application' sample. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\FrameWork) [/pre2] Благодарю за помощь и ваше внимание к этому проекту
SergKis: gfilatov2002 Небольшое предложение по TIMER, выполнять блок кода без смены среды This h_events.prg[pre2] **************************************************************************** CASE WM_TIMER **************************************************************************** i := AScan ( _HMG_aControlIds , wParam ) IF i > 0 IF _HMG_aControlPicture [ i ] == .T. // Once _DisableControl ( _HMG_aControlNames [ i ], GetParentFormName( i ) ) ENDIF IF _HMG_aControlVisible[ i ] _DoControlEventProcedure ( _HMG_aControlProcedures [ i ] , i ) ELSEIF ISBLOCK( _HMG_aControlProcedures[ i ] ) IF _HMG_BeginWindowActive == .F. .OR. _HMG_MainClientMDIHandle != 0 Eval ( _HMG_aControlProcedures[ i ] ) ENDIF ENDIF ENDIF EXIT **************************************************************************** Пример. На окне MAIN ставим TIMER, а работаем с др. окном в его событиях. Срабатывание TIMER на MAIN привод к смене на время This среды, что мешает ... DEFINE WINDOW wMain AT nY, nX WIDTH nW HEIGHT nH ; ... DEFINE TIMER Timer_1 INTERVAL 20 ACTION ( SetProperty(oMain:Name, "Timer_1", "Enabled", .F.), ; myFunc1(), SetProperty(oMain:Name, "Timer_1", "Enabled", .T.) ) This.Timer_1.Enabled := .F. // отключить до On Init _HMG_aControlVisible[ This.Timer_1.Index ] := .F. // выполнять блок кода без смены This среды ... [/pre2]
gfilatov2002: SergKis пишет: выполнять блок кода без смены среды This Принято.
SergKis: gfilatov2002 пишет Принято. Добавить надо для This.Timer_1.Visible := .T.\.F. и Set\GetProperty(..., .T.\.F.) [pre2] FUNCTION _ShowControl ( ControlName , ParentForm ) ... CASE T == "TIMER" OTHERWISE CShowControl ( c ) END CASE _HMG_aControlVisible [y] := .T. RETURN Nil FUNCTION _HideControl ( ControlName , ParentForm ) ... CASE T == "TIMER" OTHERWISE HideWindow ( c ) END CASE _HMG_aControlVisible [y] := .F. RETURN Nil [/pre2]
gfilatov2002: SergKis пишет: Добавить надо для This.Timer_1 Добавил, конечно... Благодарю за помощь
полная версия страницы