Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
Andrey: SergKis пишет: Ты ф-ю заменил, либу пересобрал и старые примеры с bmp получил ? Скачал новую версию. Поставил вместо bmp новые png в ресурсы. Пере собрал проект. А зачем либу пере собирать ? Старые примеры на bmp такие же. Я думал можно будет png использовать вместо bmp в ТСБ.
gfilatov2002: Выложил обновление для сборки 20.06 (Update 5) с учетом последних исправлений Базовый дистрибутив для BCC 5.8.2 находится по адресу http://hmgextended.com/files/CONTRIB/hmg-20.06-setup.exe Что нового: [pre2] * Fixed: Possible corruption after a memory allocation in the C-function ListViewGetItem() (introduced in the build 19.04). Reported and contributed by Fernando Yurisich. * Fixed: When loads a Grid control and 'ColumnControls' property is NIL then converts automatically any data type in a text type. Problem was reported by Fernando Yurisich. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: - minor correction at adding of a Selector in the method Paint(). Contributed by Sergej Kiselev. - the function LoadImage() supports the additional parameters. Syntax: LoadImage( cFilename [, hWnd ][, nWidth ][, nHeight ] ; [, nScale ][, nTransparent ][, nBackColor ][, Adjust ] ; [, lAlpha ][, nAlphaConstant ] ) Requested by Verchenko Andrey. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: HbSQLite3 library: - update for using SQLITE3 latest version 3.33.0dev. Contributed by Grigory Filatov <gfilatov@inbox.ru>. * Updated: 'Data-Bound Controls' sample: - updated function DrawRR() for the round rectangled edit controls. Syntax: DrawRR( nRow, nCol, nHeight, nWidth ; [, lFocus][, cWindowName][, nCurve] ) Requested by Paul Schlicher. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Basic\DATA_BOUND) [/pre2]Желаю доброго дня
SergKis: gfilatov2002 пишет Syntax: DrawRR( nRow, nCol, nHeight, nWidth ; [, lFocus][, cWindowName][, nCurve] ) Лучше так, наверное[pre2] PROCEDURE DrawRR( focus, t, l, b, r, cWindowName, nCurve ) DEFAULT t := This.Row, l := This.Col, b := This.Height, r := This.Width DEFAULT focus := .F., cWindowName := ThisWindow.Name, nCurve := 10 DRAW ROUNDRECTANGLE IN WINDOW (cWindowName) ; AT t - 2, l - 2 TO t + b + 2, l + r + 2 ; ROUNDWIDTH nCurve ; ROUNDHEIGHT nCurve ; PENCOLOR iif( focus, { 0, 120, 215 }, { 100, 100, 100 } ) RETURN [/pre2] и может ее включить как HMG_DrawRR(...) в lib ?
SergKis: PS Применение[pre2] @ y,x LABEL Lbl_1 WIDTH w HEIGHT h FONT cFont ; VALUE 'Lbl Value 1' VCENTERALIGN x += This.Lbl_1.Width + oDlu:GapsWidth @ y,x GETBOX Get_1 WIDTH This.ClientWidth - x - oDlu:Left HEIGHT h ; VALUE "Get Value 1"+space(20) FONT cFont ; PICTURE "@K" ; ON GOTFOCUS DrawRR( .T. ) ; ON LOSTFOCUS DrawRR( .F. ) y += This.Lbl_1.Height + oDlu:GapsHeight x := oDlu:Left @ y,x LABEL Lbl_2 WIDTH w HEIGHT h FONT cFont ; VALUE 'Lbl Value 2' VCENTERALIGN x += This.Lbl_2.Width + oDlu:GapsWidth @ y,x GETBOX Get_2 WIDTH This.ClientWidth - x - oDlu:Left HEIGHT h ; VALUE "Get Value 2"+space(20) FONT cFont ; PICTURE "@K" ; ON GOTFOCUS DrawRR( .T. ) ; ON LOSTFOCUS DrawRR( .F. ) [/pre2]
gfilatov2002: SergKis пишет: Лучше так Да, так, конечно, лучше SergKis пишет: Применение Также следует добавить при определении GETBOX класс NOBORDER
SergKis: gfilatov2002 Так еще лучше будет[pre2] PROCEDURE DrawRR( focus, t, l, b, r, cWindowName, nCurve ) LOCAL aColor DEFAULT t := This.Row, l := This.Col, b := This.Height, r := This.Width DEFAULT focus := .F., cWindowName := ThisWindow.Name, nCurve := 10 IF ISARRAY( focus ) ; aColor := focus ELSE ; aColor := iif( focus, { 0, 120, 215 }, { 100, 100, 100 } ) ENDIF DRAW ROUNDRECTANGLE IN WINDOW (cWindowName) ; AT t - 2, l - 2 TO t + b + 2, l + r + 2 ; ROUNDWIDTH nCurve ; ROUNDHEIGHT nCurve ; PENCOLOR aColor // iif( focus, { 0, 120, 215 }, { 100, 100, 100 } ) RETURN [/pre2]
gfilatov2002: SergKis пишет: лучше будет OK
sashaBG: Привет Григорий ! В последних сборках под MINGW не отображаются картинки в меню. Можно проверить на примере MenuEX . Под Visual Studio работает. Все останльное ОК.
gfilatov2002: sashaBG Благодарю за сообщение Уже поправил обе MINGW сборки Кстати, под BCC такая ошибка не проявляется (старый инструмент )
Andrey: gfilatov2002 пишет: Кстати, под BCC такая ошибка не проявляется В последней сборке тоже такая фигня. На одном юзеровском компе это есть (у него Win10). До конца пока не разбирался.
gfilatov2002: Andrey пишет: В последней сборке тоже такая фигня. Я поправил эту проблему в ВСС сборке тоже, просто надо ее еще раз скачать и установить
Andrey: Понял. Спасибо ! Вопрос чисто теоритический ? Можно ли в ТСБ в подвал прикрутить автофильтр как в Экселе ? Юзерам нравиться такой подход по поиску данных.
SergKis: gfilatov2002 Отступ сверху до иконки Label Say_01 в HMG_Alert() большой и не управляемый. Может вынести в static переменную и добавить параметр в HMG_Alert_MaxLines() или новую ф-ю HMG_Alert_RowStart( nRow ) сделать установку и использовать ? Примеры (видно не пропорциональный отступ, меняя фонты и их размеры) Тут https://TransFiles.ru/aul7y
gfilatov2002: SergKis пишет: новую ф-ю HMG_Alert_RowStart( nRow ) Я - за новую функцию Присылайте предложение, как ее лучше использовать внутри HMG_Alert()
SergKis: gfilatov2002 пишет Присылайте предложение, как ее лучше использовать внутри HMG_Alert() Вот что получилось https://TransFiles.ru/4hb07
gfilatov2002: SergKis пишет: Вот что получилось Супер - все работает как надо Благодарю за помощь
SergKis: gfilatov2002 Можно заменить, добавить в h_objects.prg[pre2] CLASS TKeyData ... METHOD Set( Key, Block ) INLINE ( iif( HB_ISHASH( Key ), ::aKey := Key, hb_HSet ( ::aKey, Key, Block ) ), ; ::lKey := ::Len() > 0 ) ... METHOD ISBLOCK( Key ) INLINE HB_ISBLOCK( ::Get( Key ) ) METHOD Json( cJson ) INLINE iif( HB_ISCHAR(cJson), ( cJson := SubS( cJson, At ("{", cJson) ), ; cJson := Left( cJson, RAt("}", cJson) ), ; ::aKey := hb_jsonDecode( cJson ), Self ), ; hb_jsonEncode( ::aKey, !Empty(cJson) ) ) _METHOD GetAll( lAll ) ... [/pre2]
SergKis: PS по инерции набрал, надо[pre2] METHOD Set( Key, Block ) INLINE ( iif( HB_ISHASH( Key ), ::aKey := Key, hb_HSet ( ::aKey, Key, Block ) ), ; ::lKey := ::Len > 0 ) [/pre2]
SergKis: PS2 Применение[pre2] a:=hb_hash() a['dat'] := date() a['0'] := 222 a['TYP'] := "text" a['1'] := "text2" a['kod'] := 7777 o := oKeyData() o:Set(a) hb_MemoWrit( ".\_o_.json", o:Json(.F.)) результат {"dat":"20200801","0":222,"TYP":"text","1":"text2","kod":7777} обратно J := hb_memoread(".\_o_.json") a := oKeyData() ? "a = ", a:Json(J) ?v a:GetAll(.F.) получаем в лог a = 'O' 1 {"dat", "20200801"} 2 {"0", 222} 3 {"TYP", "text"} 4 {"1", "text2"} 5 {"kod", 7777} [/pre2]
gfilatov2002: SergKis пишет: Можно заменить, добавить в h_objects.prg Ok
полная версия страницы