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

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

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

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

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

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

 Отправлено: 10.10.24 10:45. Заголовок: Alex_Cher пишет: пр..

Alex_Cher пишет:

цитата:

прошу уточнить - ... надо платить

Платить НЕ обязательно.
Вы можете собрать свою сборку на базе исходных текстов тестовой версии, либо отказаться от обновления и использовать Вашу старую "рабочую" версию.
Кстати, дополнительно платная версия предлагает различные продвинутые утилиты и примеры готовых приложений, а также исправленную и оптимизированную библиотеку SQLRDD, которая была портирована из xHarbour в среду Харбора.

Alex_Cher пишет:

цитата:

что такое утечка ресурсов

По-простому, это когда в программе объявлены некоторые графические объекты (картинки, курсоры, звук или анимация), а на выходе из программы память, которая была для них выделена, НЕ освобождена программой.
Дело в том, что в библиотеку встроена система контроля объявления и освобождения ресурсов, которая в случае несовпадения (объявлено <> освобождено) сообщает об этом на выходе из программы.

 Отправлено: 14.10.24 09:54. Заголовок: gfilatov2002 А как..

gfilatov2002

А как можно приобрести платную версию?

 Отправлено: 14.10.24 10:37. Заголовок: leo пишет: как можн..

leo пишет:

цитата:

как можно приобрести платную версию?

Есть два пути:

1. перевод с помощью платежного сервиса PayPal
2. если Вы резидент Украины - перевод на карточку Приватбанка

Вопрос суммы перевода решается в Л.С (личном сообщении) с учетом возможности плательщика

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

gfilatov2002 пишет:

цитата:

1. перевод с помощью платежного сервиса PayPal

а нет варианта через частное лицо в РФ , закинуть через СБП по телефону ?
Просто нет желания с пейпалом заморачиваться т.к. тут с ним не все просто.

 Отправлено: 14.10.24 13:42. Заголовок: Haz пишет: а нет ва..

Haz пишет:

цитата:

а нет варианта через частное лицо в РФ

У меня нет представительства в РФ.
Разве что Андрей согласится помочь

 Отправлено: 16.10.24 15:54. Заголовок: gfilatov2002 Я с У..

gfilatov2002

Я с Украины. Какая сумма платежа и номер карты?
Можно ответить на почту

 Отправлено: 16.10.24 18:19. Заголовок: leo пишет: Можно от..

leo пишет:

цитата:

Можно ответить на почту

Отправил письмо с личными данными.

 Отправлено: 25.10.24 10:00. Заголовок: Всем кому это интересно...

Завершена подготовка следующей (ноябрьской) сборки библиотеки.

Что нового:
- исправление обнаруженных ошибок в ядре и в коде библиотеки TSBrowse;
- добавлена документация для основных классов, используемых в коде:
GraphPlus, HMG_Get, TCDOMail, TGif, TReg32, T7zip, TSimpleTaskDialog и TTaskDialog;
- добавлены подробные комментарии к коду некоторых библиотек и примеров;
- обновлен компилятор Харбор до свежей версии, которая наконец-то определяет Win 11, вышедшую уже три года назад;
- обновлена библиотека SQLITE3 до свежей версии 3.47.0;
- в ПРО-версию добавлены сырцы моего приложения Photo Resizer v.1.5 (это было запланировано сделать еще в апреле 2022).

Благодарю за ваше внимание
Желаю всем отличной пятницы

 Отправлено: 28.10.24 16:46. Заголовок: gfilatov2002 Неточн..

gfilatov2002
Неточность в методе

 
 METHOD GetCellInfo( nRowPos, nCell, lColSpecHd ) CLASS TSBrowse 
 ... 
    IF lColSpecHd 
       nRow := ::nHeightHead + ::nHeightSuper + iif( oCol:l3DLook, 2, 0 ) 
       nCol := nStartX + iif( oCol:l3DLook, 2, 0 ) 
       nWidth := ::GetColSizes()[ nCell ] - iif( oCol:l3DLook, 2, 1 ) 
       nHeight := ::nHeightSpecHd - iif( oCol:l3DLook, 1, -1 ) 
    ELSE 
       nRow := nRowPos //- 1 
       nRow := ( nRow * ::nHeightCell ) + ::nHeightHead + ; 
          ::nHeightSuper + ::nHeightSpecHd + iif( oCol:l3DLook, 2, 0 ) 
       nCol := nStartX + iif( oCol:l3DLook, 2, 0 ) 
       nWidth := ::GetColSizes()[ nCell ] - iif( oCol:l3DLook, 2, 0 ) 
       nHeight := ::nHeightCell - iif( oCol:l3DLook, 1, -1 ) 
    ENDIF 
 ... 
 тогда 
       oCel := oBrw:GetCellInfo( oBrw:nRowCount(), oBrw:nColumn('FNAME') ) 
       nY := oCel:nRow 
 попадаем правильно 
 и 
       nY := oCel:nRow + oCel:nHeight  
 тоже 
 

 Отправлено: 28.10.24 17:14. Заголовок: SergKis пишет: nRow..

SergKis пишет:

цитата:

nRow := nRowPos //- 1

После этого исправления перестал работать пример Андрея Tsb_EditFields - позиция окна редактирования для типа DT смещена на строку ниже.

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

gfilatov2002 пишет:

цитата:

После этого исправления перестал работать пример Андрея Tsb_EditFields - позиция окна редактирования для типа DT смещена на строку ниже.

Да я там наверное ручками подгонял. Исправить наверное нужно...

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

gfilatov2002 пишет

цитата:

После этого исправления перестал работать пример

Так будет, к сожалению.
Можно правку не делать, но тогда, для правильной работы, надо делать добавку

 
    oCel := oBrw:GetCellInfo( oBrw:nRowCount(), oBrw:nColumn('FNAME') ) 
    nY   := oCel:nRow + oBrw:nHeightSpecHd  // попасть в последнюю строку tbrowse 
    nY   := oCel:nRow + oCel:nHeight + oBrw:nHeightSpecHd  // попасть в Footer 
 

хотя в методе :GetCellInfo oBrw:nHeightSpecHd уже учтена в расчете

 Отправлено: 30.10.24 11:27. Заголовок: Опубликована финальн..

Опубликована финальная MiniGUI сборка 24.11

Стандартная сборка

Профессиональная сборка (под паролем)

Также были подготовлены дополнительные сборки для следующих компиляторов:

- MinGW GNU C 14.2.0 (packaged on 2024-10-05)

- BCC 7.70 (32-bit) (основан на коде Борланда)

- BCC 7.70 (64-bit) (основан на CLang 5.0)

Желаю всем хорошего дня

 Отправлено: 02.12.24 11:45. Заголовок: Всем кому это интересно

Опубликована финальная MiniGUI сборка 24.12

Стандартная сборка

Профессиональная сборка (под паролем)

цитата:

The Pro version offers: * Optimized Harbour binaries for enhanced performance. * A release build of the MiniGUI library, improving application speed and stability. * A wider range of sample applications, utilities, and tools. * SQLRDD libraries for seamless SQL database integration.

Также были подготовлены дополнительные сборки для следующих компиляторов:

- MinGW GNU C 14.2.0 (32-bit и 64-bit)

- BCC 7.70 (32-bit и 64-bit)

- MS Visual C++ CE (32-bit и 64-bit)

Желаю всем хорошего дня

 Отправлено: 02.12.24 18:50. Заголовок: gfilatov2002 В прим..

gfilatov2002
В примере Tsb_filter_3 demo.prg добавьте

 
       oBrw1:nClrLine := CLR_ORANGE 
       IF IsArray(oBrw1:aCheck) 
          AEval(oBrw1:aCheck, {|h| iif( Empty(h), , DeleteObject(h) ) }) 
       ENDIF 
       oBrw1:aCheck   := { LoadImage("bCheckT24"), LoadImage("bCheckF24") }  // заменяем колонку CHECKBOX на свои картинки 
 

 Отправлено: 03.12.24 11:35. Заголовок: SergKis пишет: ..

SergKis пишет:

цитата:

IF IsArray(oBrw1:aCheck) AEval(oBrw1:aCheck, {|h| iif( Empty(h), , DeleteObject(h) ) }) ENDIF

Спасибо за поправку

 Отправлено: 11.12.24 16:02. Заголовок: TSBrowse: методы Excel2 и ExcelOle

Если изменить в реестре Windows параметр "Разделитель целой и дробной части" с "," на "."
то методы Excel2 и ExcelOle перестают нормально показывать цифровые поля.

Если это возможно, предлагаю сделать следующее:

1. Создать переменную sDecimal и в начале присвоить ей значение:
oReg := TReg32():New(HKEY_CURRENT_USER,'Control Panel\International',.F.)
sDecimal := oReg:Get('sDecimal',',')
oReg:Close()

2. METHOD Excel2:
Строка 6159 меняем ',' на sDecimal
Строки 6168 - 6171 меняем ',' на sDecimal

3. METHOD ExcelOle:
Строка 6702 меняем ',' на sDecimal

 Отправлено: 11.12.24 16:46. Заголовок: krutoff пишет предла..

krutoff пишет

цитата:

предлагаю сделать следующее

Вроде, хватало ф-ии

 
 HB_FUNC( GET_SDECIMAL )           // Из региональных настроек дает разделитель дробной части 
 { 
   char sDec[2]; 
   GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, (LPTSTR) sDec, 2 ); 
   hb_retclen( sDec, 1 ); 
 } 
 

 Отправлено: 11.12.24 17:47. Заголовок: SergKis пишет: Врод..

SergKis пишет:

цитата:

Вроде, хватало ф-ии

До кучи и можно переделать под себя

 
 Func GetActualSeparator(Oxl) 
 return If(Oxl:UseSystemSeparators,{GET_STHOUSAND(),GET_SDECIMAL()},{Oxl:ThousandsSeparator,Oxl:DecimalSeparator}) 
  
 HB_FUNC( GET_STHOUSAND ) 
 { 
 char sDec[2]; 
  
 GetLocaleInfo(LOCALE_USER_DEFAULT, 
 LOCALE_STHOUSAND, 
 (LPTSTR) sDec, 2 ); 
 hb_retclen( sDec, 1 ); 
 } 
  
  
 

 Отправлено: 12.12.24 16:01. Заголовок: Всем кому это интересно...

Через 10 лет после выхода этой утилиты от Клаудио удалось собрать его программу для HMG с помощью Минигуи.
Для этого пришлось повозится с добавлением отсутствующих в библиотеке возможностей.
Эти изменения будут включены в следующую сборку в новом году.

Главное окно программы имитирует Эксплорер Винды и выглядит так:



Если нужна дополнительная информация об этой утилите, пишите...