Автор | Сообщение |
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
[только новые]
|
|
SergKis
|
| постоянный участник
|
Пост N: 4336
Зарегистрирован: 17.02.12
|
|
Отправлено: 27.06.23 13:40. Заголовок: Andrey пишет А так ю..
Andrey пишет цитата: | А так юзер будет нервничать, при каждом запуске ругаясь на "тормозную" программу |
| Все в твоих руках. Можно без потоков запустить все 5 окон под splash в hide и все - переключай фокус между приложениями с главной main или после splash, из памяти убирай когда выходят из главной main, а так делай по X hide. Время на запуск будет тоже цитата: | И логику программирования свою менять. Это можно, но уже в новых проектах. |
| У тебя уже все есть в твоем модуле (ты его один и запускай с разными параметрами с главного main). С окнами Standard, думаю, провозишься дольше. Вместо STANDARD у тебя будут MAIN окна и разный запуск
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2171
Зарегистрирован: 11.02.10
|
|
Отправлено: 28.06.23 10:03. Заголовок: Всем кому это интересно...
Выложил 4-е обновление сборки 23.04 с учетом последних исправлений и дополнений Скачать Обновил также Unicode архив этой сборки для Сергея Желаю всем хорошего дня
|
|
|
i3t4j6
|
| |
Пост N: 145
Зарегистрирован: 12.06.06
|
|
Отправлено: 30.06.23 12:04. Заголовок: Появилась необходимо..
Появилась необходимость в TsBrowse написать oBrw:cMsg:= ' ↓ -добавить F10 -выход '. Так вот - "стрелка вниз" - не отображается, как и chr(25) . Это как-то можно победить?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4340
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 -выход " }
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7456
Зарегистрирован: 12.09.06
|
|
Отправлено: 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) Причём тут + ? вообще непонятно...
|
|
|
i3t4j6
|
| |
Пост N: 146
Зарегистрирован: 12.06.06
|
|
Отправлено: 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 -выход '. "Стрелка вниз" - не отображается !??
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4343
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 для завершения работы"
|
|
|
i3t4j6
|
| |
Пост N: 147
Зарегистрирован: 12.06.06
|
|
Отправлено: 03.07.23 12:42. Заголовок: Спасибо !!!..
Спасибо !!!
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7488
Зарегистрирован: 12.09.06
|
|
Отправлено: 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 ..... и далее куча сообщений
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2177
Зарегистрирован: 11.02.10
|
|
Отправлено: 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); - множество примеров использования (от самых простых и до готовых приложений). Большое спасибо всем форумчанам за интерес и поддержку библиотеки Желаю всем удачи!
|
|
|
Haz
|
| |
Пост N: 1945
Зарегистрирован: 20.02.11
|
|
Отправлено: 31.07.23 11:19. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Большое спасибо всем форумчанам за интерес и поддержку библиотеки Желаю всем удачи! |
| Григорий, спасибо за Ваш многолетний труд и поддержку проекта
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4359
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.07.23 11:23. Заголовок: gfilatov2002 СПАСИБ..
gfilatov2002 СПАСИБО
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7493
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.07.23 12:02. Заголовок: gfilatov2002 Спасиб..
gfilatov2002 Спасибо ОГРОМНОЕ за ваш проект и вашу помощь ! P.S. Зря не добавили пример - Tsb_array_image, в нём все варианты чтения и показа картинок в ТСБ. И в качестве добавки - сборка своих DLL с ресурсами через BCC.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2178
Зарегистрирован: 11.02.10
|
|
Отправлено: 31.07.23 16:53. Заголовок: Andrey пишет: Зря ..
Andrey пишет: цитата: | Зря не добавили пример - Tsb_array_image |
| Мне тоже понравился этот пример, но не хотелось значительно увеличивать размер дистрибутива за счет большого количества картинок. К тому же, к этому времени уже был готов финальный инсталлятор этой сборки.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4360
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.08.23 11:30. Заголовок: gfilatov2002 пишет у..
gfilatov2002 пишет цитата: | уже был готов финальный инсталлятор этой сборки |
| Unicode версия есть ? Если есть, можно получить ?
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2179
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.08.23 14:47. Заголовок: SergKis пишет: Unic..
SergKis пишет: Уже есть. Выложил ее по старому адресу, как обычно
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4363
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.08.23 16:13. Заголовок: gfilatov2002 Спасиб..
gfilatov2002 Спасибо !
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7496
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.08.23 22:35. Заголовок: Григорий, я высылал ..
Григорий, я высылал тебе для ErrorSys.prg новую секцию для анализа ошибок: ---------------------------- List of open windows ----------------------------- Удобная штука, сразу видно сколько окон в программе открыто. Жалко что туда нельзя прикрутить в каком окне произошла ошибка.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4370
Зарегистрирован: 17.02.12
|
|
Отправлено: 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 ...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2184
Зарегистрирован: 11.02.10
|
|
Отправлено: 25.08.23 21:13. Заголовок: SergKis пишет: Доба..
SergKis пишет: OK
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|