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

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

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

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

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

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

 Отправлено: 27.06.23 13:40. Заголовок: Andrey пишет А так ю..

Andrey пишет

цитата:

А так юзер будет нервничать, при каждом запуске ругаясь на "тормозную" программу

Все в твоих руках.
Можно без потоков запустить все 5 окон под splash в hide и все - переключай фокус между приложениями с главной
main или после splash, из памяти убирай когда выходят из главной main, а так делай по X hide. Время на запуск будет тоже

цитата:

И логику программирования свою менять. Это можно, но уже в новых проектах.

У тебя уже все есть в твоем модуле (ты его один и запускай с разными параметрами с главного main). С окнами Standard, думаю, провозишься дольше. Вместо STANDARD у тебя будут MAIN окна и разный запуск

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

Выложил 4-е обновление сборки 23.04 с учетом последних исправлений и дополнений

Скачать

Обновил также Unicode архив этой сборки для Сергея

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

 Отправлено: 30.06.23 12:04. Заголовок: Появилась необходимо..

Появилась необходимость в TsBrowse написать oBrw:cMsg:= ' ↓ -добавить F10 -выход '.
Так вот - "стрелка вниз" - не отображается, как и chr(25) . Это как-то можно победить?

 Отправлено: 30.06.23 17:14. Заголовок: i3t4j6 Сделайте, чт..

i3t4j6
Сделайте, что то такое

 
 1. oBrw:cMsg:= ' <Dn> - добавить F10 -выход ' 
 2. oBrw:cMsg := {|ob,nc| my_cMsg(ob, nc) } 
 FUNC my_cMsg( oBrw, nCol) 
    LOCAL cMsg := "", oWnd  
    LOCAL cImg := "Dn"  // image в ресурсах 
    SET WINDOW THIS TO oBrw 
    oWnd := This.Object 
    IF nCol == ... 
       cMsg := "..." 
       cImg := "..." 
    ELSE 
       cMsg := "- добавить F10 -выход " 
       cImg := "Dn" 
    ENDIF 
    //oWnd:StatusBar:Say(cMsg, 1) 
    oWnd:StatusBar:Icon(cImg, 1) 
    SET WINDOW THIS TO  
 RETURN cMsg 
 

Это схема
PS
Если колонки не обрабатывать, то
oBrw:cMsg := {|ob| SetProperty(ob:cParentWnd, "StatusBar", "Icon", 1, "Dn"), "- добавить F10 -выход " }

 Отправлено: 03.07.23 00:50. Заголовок: А есть функция в Мин..

А есть функция в МиниГуи, которая возвращает фокус текущей формы в программе ?
И фокус объекта на этой текущей форме ?
А то делаю так:

         Local aFocu := { ThisWindow.Name, This.FocusedControl } // текущее окно и фокус в окне 
                   ...... 
                    To_Focus(aFocu[1], aFocu[2])  // восстановим текущее окно и фокус в окне 
                    Return Nil 
                    }

и получаю вылет из программы с такой ошибкой:

Error BASE/1081  Неверный аргумент: + 
    Args: 
      [1] = C   Window:  
      [2] = U    
 Called from GETPROPERTY(0) 
 Called from (b)SHOW_SITE(227) in module: Source\form_site.prg 
 Called from EVENTS(0) 
 Called from MYEVENTSHANDLER(1833) in module: Source\main.prg 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(0) 

Причём тут + ? вообще непонятно...

 Отправлено: 03.07.23 07:38. Заголовок: SergKis пишет: Если..

SergKis пишет:

цитата:

Если колонки не обрабатывать, то

Я скорее всего привел неудачный пример. Вот другой :
DEFINE TBROWSE oBrw AT 0,0 OF Form_3 celled ALIAS cFile ;
WIDTH 1008 HEIGHT 612 SIZE 9 ;
MESSAGE ' ↓ -добавить F10 -выход '.
"Стрелка вниз" - не отображается !??

 Отправлено: 03.07.23 08:23. Заголовок: 3t4j6 пишет "Стр..

3t4j6 пишет

цитата:

"Стрелка вниз" - не отображается !??

И не будет, в ToolTip так же не отобразится (код < 32). Надо менять на картинку. Подберите вариант стрелки вниз и делайте как написал выше. Слева будет картинка "Стрелка вниз", потом текст ' -добавить F10 -выход '. Возможно блок кода будет чуть сложнее, т.к. картинку и текст, по мне, надо отображать когда в фокусе тсб будет последняя строка LastRec(), для TsBrowse - это ob:nLen.
Что бы не связываться с MESSAGE TsBrowse, можно в StatusBar сделать все варианты режимов работы с записью, т.е. разбить StatusBar на Item-ы (самый левый не занимать) в которых вывести с картинками, например так:
<для Message тсб или свои> |<картинка> Добавить |<картинка> Удалить |<картинка> Edit | ... | <картинка> Выход | ...
можно установить для каждого Item StatusBar FontColor и BackColor + назначить блок кода ACTION {|| ... } по клику по Item он сработает и выполнит соответствующий блок\режим. + эти режимы продублировать на клавиши Ins, Del, F4 или Enter ... Получите аналог кнопок в StatusBar. Каждому StatusBar Item можно задать ToolTip, где написать текст-расшифровку, он будет высвечиваться при наведении мыши на каждый Item, где задан, т.е. навели на Item "Выход", получили типа "Нажмите кл. F10 или Esc для завершения работы"

 Отправлено: 03.07.23 12:42. Заголовок: Спасибо !!!..

Спасибо !!!

 Отправлено: 23.07.23 08:34. Заголовок: Есть пример SAMPLES&..

Есть пример SAMPLES\BASIC\Icons
Если хочу добавить общую иконку для проги так:

demo.res 
     1_MAIN          ICON        1Mg.ico 
     IconVista        ICON        IconVista.ico

То ехе-ник не собирается, выдаёт ошибку:

Borland Resource Compiler  Version 5.40 
 Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved. 
 Error demo.rc 2 40: Allocate failed 
 Resource compile error.

Почему ? Что не хватает для BCC 5.8 ?

И не собирается \BASIC\Icons\MyIcons\build.bat

myicons.c: 
 Turbo Incremental Link 6.90 Copyright (c) 1997-2017 Embarcadero Technologies, Inc. 
 или 
 Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland 
  
 Error: Unresolved external '_hb_dynsymToNum' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 Error: Unresolved external '_hb_dynsymFromNum' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 Error: Unresolved external '_hb_errRT_New' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 Error: Unresolved external '_hb_pcount' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 Error: Unresolved external '_hb_arrayBaseParams' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 Error: Unresolved external '_hb_errPutArgsArray' referenced from C:\MINIGUI-23.04.4\HARBOUR\LIB\HBWIN.LIB|hbolesrv 
 ..... и далее куча сообщений 
 

 Отправлено: 31.07.23 10:26. Заголовок: Ну вот и все! Вылож..

Ну вот и все!

Выложил июльскую сборку 23.07 с учетом последних исправлений и дополнений

скачать

После 18-ти лет активной разработки этот проект подошел для меня к концу по понятным причинам.

В заключение хотел бы отметить важные этапы в истории Минигуи:

- прекрасный старт на основе кода автора библиотеки Роберто Лопеза;
- обеспечена совместимость кода со всеми бесплатными Си-компиляторами: MinGW, MS VC, Pelles C, Open Watcom;
- поддержка 64-битной архитектуры;
- поддержка Unicode;
- адаптация FiveWin класса TSBrowse (автор - Мануэл Меркадо);
- HMGS-IDE Project Manager and Two-Way Visual Form Designer (автор - Уолтер Формигони);
- улучшенные версии библиотек Харбора (hbsqldd, hbziparc, hbmysql, hbpqsql, hbsqlite3, hbcrypto);
- множество примеров использования (от самых простых и до готовых приложений).

Большое спасибо всем форумчанам за интерес и поддержку библиотеки

Желаю всем удачи!

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

gfilatov2002 пишет:

цитата:

Большое спасибо всем форумчанам за интерес и поддержку библиотеки Желаю всем удачи!

Григорий, спасибо за Ваш многолетний труд и поддержку проекта

 Отправлено: 31.07.23 11:23. Заголовок: gfilatov2002 СПАСИБ..

gfilatov2002
СПАСИБО

 Отправлено: 31.07.23 12:02. Заголовок: gfilatov2002 Спасиб..

gfilatov2002
Спасибо ОГРОМНОЕ за ваш проект и вашу помощь !

P.S. Зря не добавили пример - Tsb_array_image, в нём все варианты чтения и показа картинок в ТСБ.
И в качестве добавки - сборка своих DLL с ресурсами через BCC.

 Отправлено: 31.07.23 16:53. Заголовок: Andrey пишет: Зря ..

Andrey пишет:

цитата:

Зря не добавили пример - Tsb_array_image

Мне тоже понравился этот пример, но не хотелось значительно увеличивать размер дистрибутива за счет большого количества картинок. К тому же, к этому времени уже был готов финальный инсталлятор этой сборки.

 Отправлено: 01.08.23 11:30. Заголовок: gfilatov2002 пишет у..

gfilatov2002 пишет

цитата:

уже был готов финальный инсталлятор этой сборки

Unicode версия есть ?
Если есть, можно получить ?

 Отправлено: 01.08.23 14:47. Заголовок: SergKis пишет: Unic..

SergKis пишет:

цитата:

Unicode версия есть ?

Уже есть.
Выложил ее по старому адресу, как обычно

 Отправлено: 01.08.23 16:13. Заголовок: gfilatov2002 Спасиб..

gfilatov2002
Спасибо !

 Отправлено: 01.08.23 22:35. Заголовок: Григорий, я высылал ..

Григорий, я высылал тебе для ErrorSys.prg новую секцию для анализа ошибок:
---------------------------- List of open windows -----------------------------
Удобная штука, сразу видно сколько окон в программе открыто.
Жалко что туда нельзя прикрутить в каком окне произошла ошибка.

 Отправлено: 25.08.23 20:02. Заголовок: gfilatov2002 пишет Н..

gfilatov2002 пишет

цитата:

На следующей неделе выложу обновление

Добавки небольшие

 
 METHOD Set( xKey, xVal ) CLASS THmgData 
 ... 
       IF HB_ISHASH( xKey ) 
 ... 
       ELSEIF HB_ISARRAY( xKey ) .and. HB_ISARRAY( xVal ) 
          FOR EACH k, v IN xKey, xVal 
              Default k := hb_enumIndex( k ) 
              hb_HSet( ::aKey, ::Upp( k ), v ) 
          NEXT 
       ELSEIF HB_ISARRAY( xKey ) 
          FOR EACH v IN xKey 
              IF HB_ISARRAY( v ) .and. Len( v ) > 1 
                 hb_HSet( ::aKey, ::Upp( v[1] ), v[2] ) 
              ENDIF 
          NEXT 
       ELSE 
          hb_HSet( ::aKey, ::Upp( xKey ), xVal ) 
       ENDIF 
 ... 
 // Допустил неточность в названии переменной ( oParam:bDblClick вместо oParam:bLDblClick) и уже использовал, думаю надо поправить 
 ... 
 FUNCTION _TBrowse( oParam, uAlias, cBrw, nY, nX, nW, nH ) 
 ... 
       IF HB_ISBLOCK( oParam:bBody ) ; EVal( oParam:bBody, oBrw, oParam )   // 2. call your customization functions 
       ENDIF 
  
       IF HB_ISLOGICAL( oParam:bLDblClick ) .or. HB_ISLOGICAL( oParam:bDblClick ) 
          :bLDblClick := {|p1, p2, p3, ob| p1:=p2:=p3, ob:PostMsg( WM_KEYDOWN, VK_RETURN, 0 ) } 
       ELSEIF HB_ISBLOCK( oParam:bLDblClick ) // :bLDblClick := {|p1,p2,p3,ob| ... } 
          :bLDblClick := oParam:bLDblClick     
       ELSEIF HB_ISBLOCK( oParam:bDblClick )  // :bLDblClick := {|p1,p2,p3,ob| ... } 
          :bLDblClick := oParam:bDblClick     
       ENDIF 
  
       IF HB_ISBLOCK( oParam:bRClicked ) 
          :bRClicked := oParam:bRClicked      // :bRClicked := {|p1,p2,p3,ob| ... } 
       ENDIF 
 ... 
 

 Отправлено: 25.08.23 21:13. Заголовок: SergKis пишет: Доба..

SergKis пишет:

цитата:

Добавки небольшие

OK