Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
SergKis: Andrey пишет Можно ли добавить в эту утилиту глобальный поиск по исходникам, но только не отдельных слов Не понятно, какие фразы надо искать в исходниках hmg ? В своих и во многих проектах, понятно, в данных mem полей или текстовых данных баз, тоже ясно. И TimTim прав, лучше с регулярным выражением. Но это др. утилита, по мне.
Haz: Andrey пишет: Можно ли добавить в эту утилиту глобальный поиск по исходникам, но только не отдельных слов (это просто, можно Far использовать), а поиск по строкам 2х или 3х слов одновременно (Far такого не может) ? Far такое может , ставим плагин RESearch и ищем по регулярным выражениям насколько фантазии хватит в этих выражениях
Andrey: Haz пишет: плагин RESearch и ищем по регулярным выражениям насколько фантазии хватит в этих выражениях А я и не знал... Спасибо БОЛЬШОЕ !
SergKis: gfilatov2002 Небольшая правка в hmg_project [pre2] DEFINE TREE Tree_1 AT :Y, :X ; WIDTH :W4 ; HEIGHT This.ClientHeight - This.StatusBar.Height - :Y * 2 ; VALUE 1 ; FONT "font_1" ; ON CHANGE _wSend(11) ; ON DBLCLICK _wPost(1, This.Index) ; ... STAT FUNCTION OnReturnTree() ... If 'All.*' $ cCrg oBrw := (This.AllEntity.Object):Tsb nCnt := This.&(cCtl).ItemCount _wPost(7, , '... W A I T ...') // :StatusBar:Say('... W A I T ...') _wSend(8) :Action := .F. dbSelectArea( oBrw:cAlias ) ... oBrw:SetFocus() DO EVENTS :Action := .T. _wPost(7, , '') // :StatusBar:Say('') ... [/pre2] на время формирования списка тсб "All entity" блокируется X окна
SergKis: PS и еще [pre2] FUNCTION AppInitEnv() ... SET BROWSESYNC ON SET CENTERWINDOW RELATIVE PARENT _HMG_MESSAGE [1] := 'Are you sure ?' _HMG_MESSAGE [2] := 'Close Window' aEntityC := { "HB_FUNC(" , ; ... [/pre2]
gfilatov2002: SergKis пишет: Небольшая правка в hmg_project Спасибо
SergKis: gfilatov2002 Мелочь, конечно, но так правильнее [pre2] FUNCTION _wPost( nEvent, nIndex, xParam ) ... If HB_ISOBJECT( nIndex ) If nIndex:ClassName == 'TSBROWSE' oWnd := _WindowObj ( nIndex:cParentWnd ) nIndex := oWnd:GetObj( nIndex:cControlName ) Else oWnd := nIndex nIndex := Nil EndIf Else ... FUNCTION _wSend( nEvent, nIndex, xParam ) ... If HB_ISOBJECT( nIndex ) If nIndex:ClassName == 'TSBROWSE' oWnd := _WindowObj ( nIndex:cParentWnd ) nIndex := oWnd:GetObj( nIndex:cControlName ) Else oWnd := nIndex nIndex := Nil EndIf Else ... [/pre2] Тогда в блоке кода события, как в action кнопок и др. контролов, будет среда This для TsBrowse, т.е. сообщение _wPost(12, oBrw) oWnd:Event(12, {|obr,cbr,cwn| obr := (This.Object):Tsb, ; // объект oBrw cbr := This.Name, ; // имя TsBrowse cwn := ThisWindow.Name, ... }) // имя окна
SergKis: gfilatov2002 Прошу прощения не добрал команду nIndex := oWnd:GetObj( nIndex:cControlName ):Index
gfilatov2002: SergKis пишет: в блоке кода события, как в action кнопок и др. контролов, будет среда This для TsBrowse OK
gfilatov2002: Подготовил первый релиз-кандидат для новой сборки 19.03 Кратко, что нового: [pre2]* Misc bugfixes for the memory leaks in the ToolBar[Ex] control. It was an ugly mistake with missed release of the bitmaps at a destroying of a Tool Button. * Added a ban on an editing in a Browse control for databases that were opened with the READONLY clause. Otherwise, an error "Write not allowed" will occur. * Added the following useful network functions: - NetRecLock( nSeconds ); - NetFileLock( nSeconds ); - NetAppend( nSeconds, lReleaseLocks ); - NetDelete(); - NetRecall(); - IsLocked( nRecId ); - NetError(). The above network functions were used in a BROWSE control. * Necessity of a lock's setting at the BROWSE editing will be defined automatically for a database that opened in a shared mode. * Added 'FIELD' clause (optional) to CHECKLABEL and SWITCHER controls. They supports the 'Refresh' and 'Save' methods now. * The unneeded clauses in the command GRAPH BITMAP may be omitted: - TITLECOLOR (default is BLACK); - SHOWGRID .T. supersede SHOWXGRID .T. and SHOWYGRID .T.; - SEPARATION is NIL by default; - NOBORDER is .F. by default. * Added the following PROGRESSBAR MARQUEE commands for compatibility with Official HMG: SET PROGRESSBAR <name> OF <parent> ENABLE MARQUEE ; [ UPDATED <milliseconds> ] SET PROGRESSBAR <name> OF <parent> DISABLE MARQUEE * Updated the RDDLeto and Sqlite3 libraries. * Added the new interesting samples and updated some Advanced samples. [/pre2] Рассматриваю эту сборку как финальную вследствие невозможности продолжения работы по финансовым причинам
dimao: Ой! Вы опубликуйте Яндекс кошелек. Может нам удастся как то компенсировать ваши старания!
gfilatov2002: dimao пишет: опубликуйте Яндекс кошелек Благодарю за отклик, но Яндекс кошельки заблокированы на Украине. Единственный реальный путь - оплата через PayPal (РЕКВИЗИТЫ ЕСТЬ НА САЙТЕ).
Vlad04: Не Единственный. Как пишут Самый простой и оптимальный вариант: перечисление через сайт paysend.com Системе не важно, где были эмитированы карты — главное, чтобы они были открыты в международных платежных системах (Mastercard, Maestro, Visa). Работа с системой «МИР» не поддерживается. Нужен только интернет и номер карточки адресата. Комиссия при этом фиксирована и составляет всего 49 рублей в независимости от суммы перевода.
PSP: Какой принцип оплаты (вознаграждения) приемлем? Единоразово (лицензия), периодически (покупка текущего релиза)? Какова сумма?
gfilatov2002: PSP пишет: Какой принцип оплаты (вознаграждения) приемлем? Любой PSP пишет: Единоразово (лицензия), периодически (покупка текущего релиза)? Желательно, периодически PSP пишет: Какова сумма? На Ваше усмотрение, т,е, пожертвование
PSP: Создал отдельную тему: http://clipper.borda.ru/?1-1-0-00000547-000-0-0-1552900007
Andrey: gfilatov2002 пишет: Подготовил первый релиз-кандидат для новой сборки 19.03 Григорий, а туда войдёт пример FormDarken(0.7).7z ? А то Сергей классно там описал в функции SayValueObj() методы и как работать с объектами через oWnd := ThisWindow.Object
gfilatov2002: Andrey пишет: туда войдёт пример FormDarken(0.7).7z ? Нет. Но он доступен для скачивания на этой странице сайта http://hmgextended.com/applications.html
Andrey: gfilatov2002 пишет: Но он доступен для скачивания на этой странице сайта http://hmgextended.com/applications.html Тогда туда же и этот большой проект положите - Tsb_composite(2.18).7z
gfilatov2002: Andrey пишет: этот большой проект положите - Tsb_composite Добавил на эту страницу этот проект тоже
полная версия страницы