Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
Haz: Григорий, уберите пожалуйста проверку на номер записи. С индексами и фильтром при наличии проверки не работает метод ( конкретно под ADS , остальное не проверял ) [pre2] METHOD GotoRec( nRec, nRowPos ) CLASS TSBrowse LOCAL cAlias LOCAL nSkip LOCAL n LOCAL nRecSave LOCAL lRet := .F. LOCAL lReCount := .F. IF ::lIsDbf javascript:pst3('','','','[font%20color=blue]',''); lRet := .T. cAlias := ::cAlias ::nLastPos := ( cAlias )->( RecNo() ) вот эта строка портит позицию если удалить все нормально nRec := Min( ( cAlias )->( LastRec() ), nRec ) [/pre2] с этой проверкой пытается встать на запись которая не входит в фильтр
gfilatov2002: Haz пишет: с этой проверкой пытается встать на запись которая не входит в фильтр Поправил. Благодарю за помощь
gfilatov2002: Выпустил новую сборку 19.03 для BCC 5.5.1 и компиляторов Harbour и xHarbour. Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.03-setup.exe Также имеются дополнительные сборки для следующих Си-компиляторов: - MinGW 8.3.1 32-bit для Harbour 3.2.0dev; (есть в наличии) - MinGW 8.2.0 64-bit для Harbour 3.4.0dev; (есть в наличии) - MS VisualC 2017 32-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - MS VisualC 2017 64-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - Pelles C 8.0 32-bit для xHarbour b10244; (под заказ) - Pelles C 9.0 64-bit для xHarbour b10244; (под заказ) - Borland/Embarcadero C++ 7.3 (32-bit) для Harbour 3.2.0dev; (под заказ) - Open Watcom C/C++ 2.0 (32-bit) для Harbour 3.2.0dev. (под заказ) Эти сборки доступны для всех, кто сделал пожертвование для поддержки развития библиотеки Благодарю за Ваше внимание
Andrey: Григорий, а как получить сборки для MS VisualC 2017 ?
gfilatov2002: Andrey пишет: как получить сборки для MS VisualC 2017 ? Архивы этих сборок лежат по старым адресам, имена архивов я не менял.
Andrey: Спасибо ! И что-то нет доки: * New: Documentation 'Harbour for beginners' in format CHM. It is an original work of Alexander Kresin <alex@kresin.ru> (see hrbfaq.chm in folder \harbour\doc)
gfilatov2002: Andrey пишет: нет доки Документация находится в основном дисрибутиве (для BCC 5.5)
Andrey: Блин... Опять простая невнимательность .
SergKis: gfilatov2002 В новой версии примеры CheckLabel* валятся с похожей ошибкой [pre2] Application: C:\MiniGui\SAMPLES\BASIC\CheckLabel_3\demo.exe Date: 03/29/19 Time: 10:45:15 Time from start: 0 days 0 hours 0 mins 5 secs Error MGERROR/0 Control: Label_2 Of Form_Main : Refresh method can be used only if FIELD clause is set. Program terminated. Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from _REFRESH(5907) in module: h_controlmisc.prg Called from DOMETHOD(5223) in module: h_controlmisc.prg Called from (b)MAIN(57) in module: demo.prg Called from _DOCONTROLEVENTPROCEDURE(1865) in module: h_windows.prg Called from OLABELEVENTS(308) in module: h_label.prg Called from DOMESSAGELOOP(0) Called from _ACTIVATEWINDOW(1499) in module: h_windows.prg Called from MAIN(138) in module: demo.prg ----------------------------- System Information ------------------------------ ... [/pre2]
gfilatov2002: SergKis пишет: примеры CheckLabel* валятся с похожей ошибкой Да, я знаю Уже сделал "тихое" обновление этой сборки Прошу скачать заново и проверить эти исправления Андрей Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать...
SergKis: gfilatov2002 пишет Прошу скачать заново и проверить эти исправления Работает
Andrey: gfilatov2002 пишет: Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать... Спасибо БОЛЬШОЕ ! Григорий, а можно эти функции добавить в базовые ? А то постоянно приходиться добавлять в проги, где есть работа с ини-файлами. Функции не мои, это твоя работа. [pre2]*--------------------------------------------------------* STATIC Function GetIni( cSection, cEntry, cDefault, cFile ) RETURN GetPrivateProfileString(cSection, cEntry, cDefault, cFile ) *--------------------------------------------------------* STATIC Function WriteIni( cSection, cEntry, cValue, cFile ) RETURN( WritePrivateProfileString( cSection, cEntry, cValue, cFile ) ) *--------------------------------------------------------* STATIC Function IsINISection(cIniFile, cName) Return ( aScan( _GetSectionNames(cIniFile), {|x| UPPER(x) == UPPER(cName)} ) > 0 ) *--------------------------------------------------------* STATIC Function IsVarINISection(cIniFile, cSecName, cName) Return ( aScan( _GetSection(cSecName, cIniFile), {|x| UPPER(x[1]) == UPPER(cName)} ) > 0 ) [/pre2]
Andrey: Перешёл на новую версию МиниГуи. Теперь вылетает с ошибкой: Error MGERROR/0 Control: unrecognized property 'BACKGROUNDCOLOR'. Program terminated Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from SETPROPERTY(4126) in module: h_controlmisc.prg Called from MYINITMENUBUTTON6RESAY(1037) in module: form_calc.prg Строка 1037: [pre2] SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor )[/pre2] В текстах программ часто использую. Пришлось откатиться на предыдущую версию.
SergKis: Andrey SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor ) попробуй
Andrey: SergKis пишет: попробуй Блин, это опять все исходники шерстить....
SergKis: Andrey h_controlmisc.prg line 4025 CASE Arg3 == "BACKCOLOR" .OR. Arg3 == "GRADIENTOVER" .OR. Arg3 == "BACKGROUNDCOLOR" добавь и пересобери libу или пробни #translate BACKGROUNDCOLOR => BACKCOLOR
Andrey: Пере собрал библиотеку. Теперь вылетает на: Error MGERROR/0 Control: unrecognized property 'CAPTURE'. Program terminated. Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from SETPROPERTY(4126) in module: h_controlmisc.prg Called from MYINITMENUBUTTON8RESAY(1493) in module: form_calc.prg Строка 1493: [pre2] SetProperty( cForm, cObj, "Capture", "" )[/pre2]
SergKis: и какая версия у тебя см.уже 1810 не нахожу Captu ?
Andrey: 19.03 [pre2] @ 190, 20 CHECKBOX &cObj CAPTION cCaption ; .....[/pre2] В 19.02 работает однако.... Понял в чём дело. Ошибся в синтаксисе я, а раньше версии просто пропускали это. вместо SetProperty( cForm, cObj, "Capture", "" ) надо SetProperty( cForm, cObj, "CAPTION", "" ) Заработало !
SergKis: gfilatov2002 Предлагаю добавить в [pre2] CLASS TControl ... DATA lMsg AS LOGICAL INIT .T. ... METHOD SetMsg( cText, lDefault ) CLASS TControl ... If ! ::lMsg .or. ::nStatusItem < 1 return Nil EndIf ... тогда можно отключать "порчу" 1го itemа StatusBar, проделываемого TsBrowse. К примеру DEFINE TBROWSE Entity OBJ oBrw AT :Y, :X ALIAS Alias() CELL ; WIDTH This.ClientWidth - :X - :R ; HEIGHT This.ClientHeight - :Y - :B - ; This.StatusBar.Height ; COLORS App.Cargo:BrwColors ; ON INIT {|ob| TsbCreate( ob ) } :lMsg := .F. END TBROWSE ON END {|ob| ob:SetNoHoles() } dbSelectArea( App.Cargo:AllEntAls ) DEFINE TBROWSE AllEntity OBJ oBrw AT This.Tree_1.Row, This.Tree_1.Col ; ALIAS Alias() CELL ; WIDTH This.ClientWidth - :L - :R ; HEIGHT This.Entity.Height ; COLORS App.Cargo:BrwColors ; ON CHANGE {|ob| ob:DrawFooters() } ; ON INIT {|ob| TsbCreate( ob ) } :lMsg := .F. END TBROWSE ON END {|ob| ob:SetNoHoles(), This.AllEntity.Hide } ... [/pre2]
полная версия страницы