Автор | Сообщение |
gfilatov
|
| модератор
|
Пост N: 699
Зарегистрирован: 25.05.05
|
|
Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Dima
|
| |
Пост N: 7463
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.10.21 21:15. Заголовок: Haz пишет: Но после..
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1939
Зарегистрирован: 11.02.10
|
|
Отправлено: 21.10.21 10:16. Заголовок: Всем кому это интересно
Опубликована новая сборка 21.10 Благодарю за помощь Сергея Киселева Желаю всем доброго здоровья и успеха в делах
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7096
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.10.21 10:16. Заголовок: Пере собрал нескольк..
Пере собрал несколько своих программ. Полёт нормальный ! Спасибо !
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1940
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.10.21 09:44. Заголовок: Всем кому это интересно ;-)
Выложил 1-й апдейт сборки 21.10 Обновил также Unicode архив. Благодарю за помощь Андрея Верченко Желаю всем участникам форума мира и добра
|
|
|
imar2
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 28.10.21 08:36. Заголовок: Здравствуйте. Прошу ..
Здравствуйте. Прошу помощи по HMG MiniGUI. У меня консольное приложение (переведено с Clipper'а). Почему-то HMG после версии 21.05 поля GET'ов на экране выделяет двоеточиями в начале и конце. Как это можно убрать и можно ли? Спасибо.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1941
Зарегистрирован: 11.02.10
|
|
Отправлено: 28.10.21 09:59. Заголовок: imar2 пишет: Как эт..
imar2 пишет: Надо добавить в самом начале главного модуля такую строку цитата: | Set( _SET_DELIMITERS, .F. ) |
|
|
|
|
imar2
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 28.10.21 10:07. Заголовок: gfilatov2002, большо..
gfilatov2002, большое спасибо. Все стало ОК.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1942
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.10.21 10:11. Заголовок: Всем кому это интересно
Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде по адресу: http://hmgextended.com/files/CONTRIB/hmg-21.10-setup.exe Что нового: Скрытый текст
* 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)
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3926
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.10.21 13:55. Заголовок: gfilatov2002 пишет В..
gfilatov2002 пишет цитата: | Выложил срочное обновление сборки 21.10 |
| к unicode сборке это относится ?
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1943
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.10.21 14:52. Заголовок: SergKis пишет: к un..
SergKis пишет: цитата: | к unicode сборке это относится ? |
| Да, уже обновил unicode сборку тоже. Благодарю за напоминание
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3927
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.10.21 18:07. Заголовок: gfilatov2002 пишет у..
gfilatov2002 пишет цитата: | уже обновил unicode сборку тоже |
| получаю архив 21.10 unicode, но в нем все от 26.10.21 числа, в лучшем случае
|
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1944
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.10.21 19:34. Заголовок: SergKis пишет: полу..
SergKis пишет: цитата: | получаю архив 21.10 unicode |
| Только что проверил этот архив путем скачивания, там все в порядке. Возможно, вам стоит почистить кэш браузера
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1945
Зарегистрирован: 11.02.10
|
|
Отправлено: 03.11.21 10:35. Заголовок: Всем кому это интересно
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7113
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.11.21 13:41. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде |
| Перекомпилировал свою большую прогу. Теперь вылетает... Создаю на окне 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 ..... Ошибка при работе проги: 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)
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3934
Зарегистрирован: 17.02.12
|
|
Отправлено: 08.11.21 13:56. Заголовок: Andrey пишет MG_Debu..
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
|
| moderator
|
Пост N: 1947
Зарегистрирован: 11.02.10
|
|
Отправлено: 19.11.21 11:48. Заголовок: Всем кому это интересно
Подготовил третий релиз-кандидат для новой сборки 21.11 со следующим списком изменений: Скрытый текст
* 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)
| Благодарю за помощь и ваше внимание к этому проекту
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3946
Зарегистрирован: 17.02.12
|
|
Отправлено: 23.11.21 17:46. Заголовок: gfilatov2002 Неболь..
gfilatov2002 Небольшое предложение по TIMER, выполнять блок кода без смены среды This h_events.prg **************************************************************************** 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 среды ...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1948
Зарегистрирован: 11.02.10
|
|
Отправлено: 23.11.21 18:09. Заголовок: SergKis пишет: выпо..
SergKis пишет: цитата: | выполнять блок кода без смены среды This |
| Принято.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3947
Зарегистрирован: 17.02.12
|
|
Отправлено: 24.11.21 12:47. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет Добавить надо для This.Timer_1.Visible := .T.\.F. и Set\GetProperty(..., .T.\.F.) 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
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1949
Зарегистрирован: 11.02.10
|
|
Отправлено: 24.11.21 13:01. Заголовок: SergKis пишет: Доба..
SergKis пишет: цитата: | Добавить надо для This.Timer_1 |
| Добавил, конечно... Благодарю за помощь
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|