Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 28.07.20 18:38. Заголовок: SergKis пишет: Ты ф..

SergKis пишет:

цитата:

Ты ф-ю заменил, либу пересобрал и старые примеры с bmp получил ?

Скачал новую версию. Поставил вместо bmp новые png в ресурсы. Пере собрал проект.
А зачем либу пере собирать ?
Старые примеры на bmp такие же.
Я думал можно будет png использовать вместо bmp в ТСБ.

 Отправлено: 30.07.20 09:33. Заголовок: Всем кому это интересно

Выложил обновление для сборки 20.06 (Update 5) с учетом последних исправлений

Базовый дистрибутив для BCC 5.8.2 находится по адресу

http://hmgextended.com/files/CONTRIB/hmg-20.06-setup.exe

Что нового:
Скрытый текст

* 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)

Желаю доброго дня

 Отправлено: 30.07.20 13:33. Заголовок: gfilatov2002 пишет ..

gfilatov2002 пишет

цитата:

Syntax: DrawRR( nRow, nCol, nHeight, nWidth ; [, lFocus][, cWindowName][, nCurve] )

Лучше так, наверное

 
 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 
 

и может ее включить как HMG_DrawRR(...) в lib ?

 Отправлено: 30.07.20 13:34. Заголовок: PS Применение @ y..

PS
Применение

 
    @ 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. ) 
 

 Отправлено: 30.07.20 13:51. Заголовок: SergKis пишет: Лучш..

SergKis пишет:

цитата:

Лучше так

Да, так, конечно, лучше

SergKis пишет:

цитата:

Применение

Также следует добавить при определении GETBOX класс NOBORDER

 Отправлено: 30.07.20 14:36. Заголовок: gfilatov2002 Так ещ..

gfilatov2002
Так еще лучше будет

 
 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 
 

 Отправлено: 30.07.20 14:59. Заголовок: SergKis пишет: лучш..

SergKis пишет:

цитата:

лучше будет

OK

 Отправлено: 30.07.20 16:32. Заголовок: В последних сборках под MINGW

Привет Григорий !
В последних сборках под MINGW не отображаются картинки в меню.
Можно проверить на примере MenuEX .
Под Visual Studio работает.

Все останльное ОК.

 Отправлено: 30.07.20 17:28. Заголовок: sashaBG Благодарю з..

sashaBG
Благодарю за сообщение

Уже поправил обе MINGW сборки

Кстати, под BCC такая ошибка не проявляется (старый инструмент )

 Отправлено: 30.07.20 19:17. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Кстати, под BCC такая ошибка не проявляется

В последней сборке тоже такая фигня. На одном юзеровском компе это есть (у него Win10).
До конца пока не разбирался.

 Отправлено: 30.07.20 19:54. Заголовок: Andrey пишет: В пос..

Andrey пишет:

цитата:

В последней сборке тоже такая фигня.

Я поправил эту проблему в ВСС сборке тоже, просто надо ее еще раз скачать и установить

 Отправлено: 30.07.20 20:00. Заголовок: Понял. Спасибо ! :s..

Понял. Спасибо !

Вопрос чисто теоритический ?
Можно ли в ТСБ в подвал прикрутить автофильтр как в Экселе ?
Юзерам нравиться такой подход по поиску данных.

 Отправлено: 31.07.20 13:55. Заголовок: gfilatov2002 Отступ..

gfilatov2002
Отступ сверху до иконки Label Say_01 в HMG_Alert() большой и не управляемый.
Может вынести в static переменную и добавить параметр в HMG_Alert_MaxLines() или
новую ф-ю HMG_Alert_RowStart( nRow ) сделать установку и использовать ?
Примеры (видно не пропорциональный отступ, меняя фонты и их размеры)
Тут https://TransFiles.ru/aul7y

 Отправлено: 31.07.20 14:19. Заголовок: SergKis пишет: нову..

SergKis пишет:

цитата:

новую ф-ю HMG_Alert_RowStart( nRow )

Я - за новую функцию
Присылайте предложение, как ее лучше использовать внутри HMG_Alert()

 Отправлено: 31.07.20 17:56. Заголовок: gfilatov2002 пишет П..

gfilatov2002 пишет

цитата:

Присылайте предложение, как ее лучше использовать внутри HMG_Alert()

Вот что получилось https://TransFiles.ru/4hb07

 Отправлено: 31.07.20 19:46. Заголовок: SergKis пишет: Вот ..

SergKis пишет:

цитата:

Вот что получилось

Супер - все работает как надо
Благодарю за помощь

 Отправлено: 01.08.20 12:53. Заголовок: gfilatov2002 Можно ..

gfilatov2002
Можно заменить, добавить в h_objects.prg

 
 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 ) 
 ... 
 

 Отправлено: 01.08.20 12:58. Заголовок: PS по инерции набрал..

PS
по инерции набрал, надо

 
     METHOD Set( Key, Block ) INLINE ( iif( HB_ISHASH( Key ), ::aKey := Key, hb_HSet ( ::aKey, Key, Block ) ), ;  
              ::lKey := ::Len > 0 )  
 

 Отправлено: 01.08.20 13:42. Заголовок: PS2 Применение a:..

PS2
Применение

 
    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}   
 

 Отправлено: 01.08.20 20:09. Заголовок: SergKis пишет: Можн..

SergKis пишет:

цитата:

Можно заменить, добавить в h_objects.prg

Ok