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

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

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

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

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

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

 Отправлено: 20.03.19 18:31. Заголовок: Косячек в ::GoToRec()

Григорий,
уберите пожалуйста проверку на номер записи. С индексами и фильтром при наличии проверки не работает метод ( конкретно под ADS , остальное не проверял )

 
 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 )    
  
 

с этой проверкой пытается встать на запись которая не входит в фильтр

 Отправлено: 20.03.19 21:01. Заголовок: Haz пишет: с этой п..

Haz пишет:

цитата:

с этой проверкой пытается встать на запись которая не входит в фильтр

Поправил.
Благодарю за помощь

 Отправлено: 27.03.19 11:02. Заголовок: Выпустил новую сборк..

Выпустил новую сборку 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. (под заказ)

Эти сборки доступны для всех, кто сделал пожертвование для поддержки развития библиотеки

Благодарю за Ваше внимание

 Отправлено: 27.03.19 12:18. Заголовок: Григорий, а как полу..

Григорий, а как получить сборки для MS VisualC 2017 ?

 Отправлено: 27.03.19 12:58. Заголовок: Andrey пишет: как п..

Andrey пишет:

цитата:

как получить сборки для MS VisualC 2017 ?

Архивы этих сборок лежат по старым адресам, имена архивов я не менял.

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

Спасибо !

И что-то нет доки:
* 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)

 Отправлено: 27.03.19 13:24. Заголовок: Andrey пишет: нет д..

Andrey пишет:

цитата:

нет доки

Документация находится в основном дисрибутиве (для BCC 5.5)

 Отправлено: 27.03.19 14:20. Заголовок: Блин... Опять проста..

Блин... Опять простая невнимательность .

 Отправлено: 29.03.19 11:46. Заголовок: gfilatov2002 В ново..

gfilatov2002
В новой версии примеры CheckLabel* валятся с похожей ошибкой Скрытый текст

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 ------------------------------ ...

 Отправлено: 29.03.19 12:56. Заголовок: SergKis пишет: прим..

SergKis пишет:

цитата:

примеры CheckLabel* валятся с похожей ошибкой

Да, я знаю

Уже сделал "тихое" обновление этой сборки

Прошу скачать заново и проверить эти исправления

Андрей
Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать...

 Отправлено: 29.03.19 13:58. Заголовок: gfilatov2002 пишет П..

gfilatov2002 пишет

цитата:

Прошу скачать заново и проверить эти исправления

Работает

 Отправлено: 31.03.19 16:00. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать...

Спасибо БОЛЬШОЕ !

Григорий, а можно эти функции добавить в базовые ?
А то постоянно приходиться добавлять в проги, где есть работа с ини-файлами.
Функции не мои, это твоя работа.

*--------------------------------------------------------* 
 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 ) 

 Отправлено: 31.03.19 20:20. Заголовок: Перешёл на новую вер..

Перешёл на новую версию МиниГуи.
Теперь вылетает с ошибкой:
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:

   SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor )

В текстах программ часто использую.
Пришлось откатиться на предыдущую версию.

 Отправлено: 31.03.19 20:57. Заголовок: Andrey SetProperty(..

Andrey
SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor )
попробуй

 Отправлено: 31.03.19 21:20. Заголовок: SergKis пишет: попр..

SergKis пишет:

цитата:

попробуй

Блин, это опять все исходники шерстить....

 Отправлено: 31.03.19 21:42. Заголовок: Andrey h_controlmis..

Andrey
h_controlmisc.prg line 4025
CASE Arg3 == "BACKCOLOR" .OR. Arg3 == "GRADIENTOVER" .OR. Arg3 == "BACKGROUNDCOLOR"
добавь и пересобери libу
или пробни
#translate BACKGROUNDCOLOR => BACKCOLOR

 Отправлено: 31.03.19 22:03. Заголовок: Пере собрал библиоте..

Пере собрал библиотеку.
Теперь вылетает на:
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:

       SetProperty( cForm, cObj, "Capture", ""  )

 Отправлено: 31.03.19 22:21. Заголовок: и какая версия у теб..

и какая версия у тебя см.уже 1810 не нахожу Captu ?

 Отправлено: 31.03.19 22:57. Заголовок: 19.03..

19.03

   @ 190, 20 CHECKBOX &cObj   CAPTION cCaption                       ; 
      .....

В 19.02 работает однако....
Понял в чём дело. Ошибся в синтаксисе я, а раньше версии просто пропускали это.
вместо SetProperty( cForm, cObj, "Capture", "" ) надо SetProperty( cForm, cObj, "CAPTION", "" )
Заработало !

 Отправлено: 03.04.19 11:48. Заголовок: gfilatov2002 Предла..

gfilatov2002
Предлагаю добавить в

 
 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 } 
 ...