Автор | Сообщение |
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
[только новые]
|
|
Andrey
|
| постоянный участник
|
Пост N: 6777
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.20 18:38. Заголовок: SergKis пишет: Ты ф..
SergKis пишет: цитата: | Ты ф-ю заменил, либу пересобрал и старые примеры с bmp получил ? |
| Скачал новую версию. Поставил вместо bmp новые png в ресурсы. Пере собрал проект. А зачем либу пере собирать ? Старые примеры на bmp такие же. Я думал можно будет png использовать вместо bmp в ТСБ.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1747
Зарегистрирован: 11.02.10
|
|
Отправлено: 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)
|
Желаю доброго дня
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3295
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3296
Зарегистрирован: 17.02.12
|
|
Отправлено: 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. )
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1748
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.07.20 13:51. Заголовок: SergKis пишет: Лучш..
SergKis пишет: Да, так, конечно, лучше SergKis пишет: Также следует добавить при определении GETBOX класс NOBORDER
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3297
Зарегистрирован: 17.02.12
|
|
Отправлено: 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
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1749
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.07.20 14:59. Заголовок: SergKis пишет: лучш..
SergKis пишет: OK
|
|
|
sashaBG
|
| постоянный участник
|
Пост N: 196
Зарегистрирован: 15.09.05
|
|
Отправлено: 30.07.20 16:32. Заголовок: В последних сборках под MINGW
Привет Григорий ! В последних сборках под MINGW не отображаются картинки в меню. Можно проверить на примере MenuEX . Под Visual Studio работает. Все останльное ОК.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1750
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.07.20 17:28. Заголовок: sashaBG Благодарю з..
sashaBG Благодарю за сообщение Уже поправил обе MINGW сборки Кстати, под BCC такая ошибка не проявляется (старый инструмент )
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6778
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.07.20 19:17. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Кстати, под BCC такая ошибка не проявляется |
| В последней сборке тоже такая фигня. На одном юзеровском компе это есть (у него Win10). До конца пока не разбирался.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1751
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.07.20 19:54. Заголовок: Andrey пишет: В пос..
Andrey пишет: цитата: | В последней сборке тоже такая фигня. |
| Я поправил эту проблему в ВСС сборке тоже, просто надо ее еще раз скачать и установить
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6779
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.07.20 20:00. Заголовок: Понял. Спасибо ! :s..
Понял. Спасибо ! Вопрос чисто теоритический ? Можно ли в ТСБ в подвал прикрутить автофильтр как в Экселе ? Юзерам нравиться такой подход по поиску данных.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3298
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.07.20 13:55. Заголовок: gfilatov2002 Отступ..
gfilatov2002 Отступ сверху до иконки Label Say_01 в HMG_Alert() большой и не управляемый. Может вынести в static переменную и добавить параметр в HMG_Alert_MaxLines() или новую ф-ю HMG_Alert_RowStart( nRow ) сделать установку и использовать ? Примеры (видно не пропорциональный отступ, меняя фонты и их размеры) Тут https://TransFiles.ru/aul7y
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1752
Зарегистрирован: 11.02.10
|
|
Отправлено: 31.07.20 14:19. Заголовок: SergKis пишет: нову..
SergKis пишет: цитата: | новую ф-ю HMG_Alert_RowStart( nRow ) |
| Я - за новую функцию Присылайте предложение, как ее лучше использовать внутри HMG_Alert()
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3299
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.07.20 17:56. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет цитата: | Присылайте предложение, как ее лучше использовать внутри HMG_Alert() |
| Вот что получилось https://TransFiles.ru/4hb07
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1753
Зарегистрирован: 11.02.10
|
|
Отправлено: 31.07.20 19:46. Заголовок: SergKis пишет: Вот ..
SergKis пишет: Супер - все работает как надо Благодарю за помощь
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3300
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 ) ...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3301
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 )
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3302
Зарегистрирован: 17.02.12
|
|
Отправлено: 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}
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1754
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.08.20 20:09. Заголовок: SergKis пишет: Можн..
SergKis пишет: цитата: | Можно заменить, добавить в h_objects.prg |
| Ok
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|