Отправлено: 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 нет в библиотеке.
Хорошие же примеры, небольшие.

 Отправлено: Вчера 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

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

sashaBG пишет

цитата:

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

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

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

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