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

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

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

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

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

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

 Отправлено: 01.11.25 16:15. Заголовок: Да ! Новый релиз нуж..

Да ! Новый релиз нужен ! Ждем с не терпеньем !
Спасибо большое Григорий за твою огромную работу !

 Отправлено: 05.11.25 14:46. Заголовок: Andrey пишет: Новый..

Andrey пишет:

цитата:

Новый релиз нужен

Я могу опубликовать новую сборку хоть завтра, но НЕ вижу большого интереса у пользователей библиотеки (кроме ОДНОГО человека ).

 Отправлено: 06.11.25 05:41. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Да ! Новый релиз нужен ! Ждем с не терпеньем ! Спасибо большое Григорий за твою огромную работу !

 Отправлено: 06.11.25 05:44. Заголовок: Andrey пишет: Да ! ..

Andrey пишет:

цитата:

Да ! Новый релиз нужен ! Ждем с не терпеньем ! Спасибо большое Григорий за твою огромную работу !

Присоединяюсь.

 Отправлено: 06.11.25 12:37. Заголовок: Выложил новую сборку..

Выложил новую сборку 25.11

Стандартная версия click here

ПРО-версия (архив под паролем) click here

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

 Отправлено: 06.11.25 21:50. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Выложил новую сборку 25.11

Что-то описания нет в ChangeLog.txt для:
1) Три способа скачивания файла с сайта - \SAMPLES\Advanced\Updating_program_from_website
На базе этого примера можно делать свою программу для обновления с сайта новых версий программы.
2) Работа с файлами Microsoft Access - \SAMPLES\Advanced\mg_Access
Спасибо БОЛЬШОЕ за новую версию !

Примеров libcurl-test(0.3).7z и Tsb_image_dbf(0.38).7z нет в библиотеке.
Хорошие же примеры, небольшие.

 Отправлено: 08.11.25 13:38. Заголовок: Про FilterFTS_Line

У меня предложение по FilterFTS_Line:

Сначало собрать строку, а потом в ней искать совпадения:

 
  
 // ============================================================================ 
 // METHOD TSBrowse:FilterFTS_Line()  by SergKis 
 // ============================================================================ 
  
 METHOD FilterFTS_Line( cFind, lUpper, lAll ) CLASS TSBrowse 
  
    LOCAL nCol, oCol, xVal,cRow:="", lRet := .F., aFind 
    DEFAULT lUpper := .T., lAll := .F. 
  
    IF Left( cFind, 1 ) == " " 
       aFind := hb_ATokens( substr( cFind, 2 ) ) 
    ELSE 
       aFind := { cFind } 
    ENDIF 
    
    FOR nCol := 1 TO Len( ::aColumns ) 
       oCol := ::aColumns[ nCol ] 
       IF nCol == 1 .AND. ::lSelector ; LOOP 
       ELSEIF !Empty(oCol:cName) .AND. oCol:cName == "ORDKEYNO" ; LOOP 
       ELSEIF ! oCol:lVisible ; LOOP 
       ELSEIF oCol:lBitMap ; LOOP 
       ENDIF 
       xVal := ::bDataEval( oCol, , nCol ) 
       IF lAll .AND. ! HB_ISCHAR( xVal ) 
          IF HB_ISLOGICAL( xVal ) 
             xVal := iif( xVal, ".T.", ".F." ) 
          ELSE 
             xVal := cValToChar( xVal ) 
          ENDIF 
       ENDIF 
       IF HB_ISCHAR( xVal ) 
          cRow += iif( lUpper, Upper( xVal ), xVal )    
       ENDIF 
    NEXT    
    FOR EACH cFind IN aFind 
       lRet := cFind $ cRow 
       IF !lRet 
          EXIT 
       ENDIF 
    NEXT 
 RETURN lRet

 Отправлено: 08.11.25 14:25. Заголовок: sashaBG пишет Сначал..

sashaBG пишет

цитата:

Сначало собрать строку, а потом в ней искать совпадения:

По мне, такой вариант сравнения не совсем, а может и совсем, не корректен, т.к. например, 2а последних символа одного поля + 2а первых символа следующего, дадут .T. для cFind, а это не так, по отдельности поля не совпадают с cFind. Возможно, для такого поиска надо применять метод :FilterData(cFilter, ...), т.к. в выражении cFilter можете определять для себя, какие поля идут слитно, а какие по отдельности или собрать строку по записи и проверить на вхождение заданного фрагмента

 Отправлено: 08.11.25 16:35. Заголовок: Спасибо за ответ!

Нет возражений!
Попробую тогда через FilterData !

 Отправлено: 16.11.25 14:00. Заголовок: Опять кнопка убегает..

Опять кнопка убегает на окне ошибки !

 Отправлено: 24.11.25 13:51. Заголовок: gfilatov2002 Правка..

gfilatov2002
Правка

 
 METHOD FilterFTS( cFind, lUpper, lBottom, lFocus, lAll ) CLASS TSBrowse 
 ... 
    DEFAULT lUpper := .T., lAll := .F. 
  
    IF !HB_ISCHAR( cFind )  
       cFind := "" 
    ELSEIF lUpper 
       cFind := Upper( cFind ) 
    ENDIF 
  
    IF Left( cFind, 1 ) == " " .and. Len( cFind ) > 1 
       aFind := hb_ATokens( substr( cFind, 2 ) ) 
    ELSE 
 ... 
 METHOD CalcTotal( cTotal, cNoTotal, lDraw, lPicture ) CLASS TSBrowse 
 ... 
              IF Empty( aSum[nK] ) 
                 xVal := "" 
              ELSEIF !Empty( lPicture ) .and. !Empty( oCol:cPicture ) 
                 xVal := AllTrim( Transform( aSum[nK], oCol:cPicture ) ) 
                 IF "*" $ xVal 
                    xVal := hb_ntos( aSum[nK] ) 
                 ENDIF 
              ELSE 
                 xVal := hb_ntos( aSum[nK] ) 
              ENDIF 
              oCol:cFooting := xVal 
 ... 
 

 Отправлено: 24.11.25 18:54. Заголовок: SergKis пишет: Прав..

SergKis пишет:

цитата:

Правка

Принято

 Отправлено: 28.11.25 13:26. Заголовок: Всем кому это интересно...

Завершена подготовка обновленной ноябрьской сборки 25.11 Update 1, которая будет опубликована завтра

Выход этой сборки стал возможен только благодаря поддержке Андрея Верченко

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

 Отправлено: 29.11.25 11:59. Заголовок: Выложил обновление с..

Выложил обновление сборки 25.11 Update 1

Стандартная бесплатная версия click here

ПРО-версия (архив под паролем) click here

Желаю всем хороших выходных!

 Отправлено: 30.11.25 15:21. Заголовок: Вижу в ресурсах defa..

Вижу в ресурсах default.ico, но не вижу подключения в файлах *.rc
Как подключить к себе в программу эту иконку ?
Можно внести её в minigui.rc как

1MG     ICON     default.ico

 Отправлено: 30.11.25 19:30. Заголовок: Andrey пишет: но не..

Andrey пишет:

цитата:

но не вижу подключения в файлах *.rc

c:\MiniGUI\SAMPLES\Applications\Cumple\cumple.rc
c:\MiniGUI\SAMPLES\BASIC\Template\demo.rc
c:\MiniGUI\UTILS\MPM\mpm.rc
c:\MiniGUI\UTILS\MPMC\mpmc.rc

 Отправлено: 30.11.25 20:13. Заголовок: Andrey C:\MiniG..

Andrey
C:\MiniGUI\SAMPLES\BASIC\Template\demo.rc

 
 /* the first icon will also defines the executable icon in Explorer */  
 MAIN     ICON     ".\..\..\..\RESOURCES\DEFAULT.ICO" 
 PAPER    GIF      "Paper.gif"

 Отправлено: 01.12.25 13:13. Заголовок: SergKis пишет: MAIN..

SergKis пишет:

цитата:

MAIN ICON ".\..\..\..\RESOURCES\DEFAULT.ICO"

У меня другие пути к Минигуи. Проекты собираю на диске W:\
Эту иконку могу и в проект к себе в папку собирать, но это же не дело !
Легче в примерах писать так:

   SET DEFAULT ICON TO "1MG"

Ресурсный файл МиниГуи увеличится на размер DEFAULT.ICO
Там уже есть иконки... Сложно добавить ещё одну ?
В папке C:\MiniGUI\SAMPLES 33 файлов размером 994308 байт - 1mg.ico
Вот экономия места в самой библиотеке.
Для анализа файлов в папке МиниГуи использовал проект mg_zip

 Отправлено: 01.12.25 19:15. Заголовок: Andrey пишет: Как п..

Andrey пишет:

цитата:

Как подключить к себе в программу эту иконку

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

 Отправлено: 02.12.25 22:42. Заголовок: Haz пишет: Ты уж оп..

Haz пишет:

цитата:

Ты уж определись с хотелками, себе в программу или всем ?

Всем ! 33 примера используют эту иконку.
Для экономии места нужно ВСЕГО НАВСЕГО прописать эту иконку в ресурсном файле МиниГуи и всё.
В дальнейшем примеры легко будет делать с главной иконкой МиниГуи.