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

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

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

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

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

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

 Отправлено: 09.07.18 10:52. Заголовок: Harbour MiniGUI Exte..

Harbour MiniGUI Extended Edition 18.06 (Release)
При сборке старого проекта требует

цитата:

Unable to open file 'HBOLE.LIB'

 Отправлено: 09.07.18 10:59. Заголовок: Vlad04 пишет: При с..

Vlad04 пишет:

цитата:

При сборке старого проекта требует

Поскольку, по-видимому, проект собирается с помощью Ide,
рекомендую обновить HMGS-IDE по ссылке

http://www.hmgextended.com/files/HMGS-IDE/ide.zip

 Отправлено: 09.07.18 12:36. Заголовок: оК! Всё нормально. И..

оК!
Всё нормально.
И ещё об использовании TsBrows для вызова справочников. Если присвоить свойство окну TopMost,
то при потере фокуса окно всё равно остается перед глазами- т.е юзер видит, что сделал что-то не то ( из двух вариантов : выбрать или закрыть )

 Отправлено: 10.07.18 08:44. Заголовок: Григорий, там в harb..

Григорий, там в harbour users group вас один товарищ разыскивает

 Отправлено: 10.07.18 21:12. Заголовок: Pasha пишет: вас о..

Pasha пишет:

цитата:

вас один товарищ разыскивает

Спасибо, вроде Esgici уже перечислил ему мои контакты

 Отправлено: 12.07.18 01:46. Заголовок: Haz пишет Если интер..

Haz пишет

цитата:

Если интересно , могу сюда сбросить скомпилированный пример, как это выглядит и исходники разумеется.

Допилил свой пример на эту тему (красоты не наводил, подключил работу с базой колонок)
Пример тут https://my-files.ru/3poc1q
Собран на последней версии hmg 18.06 + сделаны предложенные изменения !

 Отправлено: 12.07.18 02:20. Заголовок: Упс. С ошибкой собра..

Упс. С ошибкой собрал.
Правка (заменить)

 
 *----------------------------------------------------------------------------* 
 FUNC Base_Country ( oParent ) 
 *----------------------------------------------------------------------------* 
 ... 
    oParent:Action := .F. 
  
    // Init TBROWSE columns 
    AAdd( aCols, gCols( OrdKeyNo       ) ) 
    AAdd( aCols, gCols( Land.COUNTRYNO ) ) 
    AAdd( aCols, gCols( Land.KOD       ) ) 
    AAdd( aCols, gCols( Land.NAME      ) ) 
    AAdd( aCols, gCols( Land.ISES      ) ) 
  
    hFontBold := GetFontHandle('FontBold') 
 ... 
 

Exe тут https://my-files.ru/inivvh

 Отправлено: 12.07.18 08:56. Заголовок: SergKis пишет: Допи..

SergKis пишет:

цитата:

Допилил свой пример на эту тему

Интересно. Приеду на работу, гляну обязательно.

 Отправлено: 12.07.18 10:54. Заголовок: Haz пишет: Упс. С о..

Haz пишет:

цитата:

Упс. С ошибкой собрал. Правка (заменить)

Сергей, а DBF и CDX где лежат ?

 Отправлено: 12.07.18 11:49. Заголовок: Haz пишет Сергей, а ..

Haz пишет

цитата:

Сергей, а DBF и CDX где лежат ?

Все у exe. В пером архиве все с иходниками как есть (в demo.prg заменить из поста со вторым архивом с exe, им перекрыть пред. exe). У себя в SAMPLES создаю _Test каталог и в нем каталог проект APP_OOPTsbBox и в нем все лежит

 Отправлено: 12.07.18 12:26. Заголовок: SergKis пишет Упс. С..

SergKis пишет

цитата:

Упс. С ошибкой собрал. Правка (заменить)

Еще неточность demo.ch

 
 #translate sColsPrivate()                 => __mvPrivate( BASE_COLUMNS ) ; _CrtCols( BASE_COLUMNS ) 
 

 Отправлено: 12.07.18 12:38. Заголовок: SergKis пишет: Все ..

SergKis пишет:

цитата:

Все у exe. В пером архиве все с иходниками как есть

Все нашел , посмотрел , компактненько получилось.
Как и у меня один момент не допилен )
Мы оба ловим позицию по вертикали и открываем справочник сверху или снизу, а вот до горизонтали руки не доходят пока и справочник может открыться за пределами экрана .
Но это из разряда "красоты" которую позже можно допилить

 Отправлено: 12.07.18 13:01. Заголовок: Haz пишет посмотрел..

Haz пишет

цитата:

посмотрел , компактненько получилось

Мысль завернуть в
DEFINE TSBBOX ...
...
END TSBBOX
надо обдумать немного, в примере больше возился с базой колонок, а по горизонтали сделаю, вчера просто забыл )

 Отправлено: 12.07.18 17:19. Заголовок: Опять упс, прогнать ..

Опять упс, прогнать забыл Compile.bat /e /w.
Исправленный вариант https://my-files.ru/l23x4s
Пора отвалить от компа.

 Отправлено: 13.07.18 11:23. Заголовок: Всем кому это интере..

Всем кому это интересно

Подготовил beta 3 для новой сборки библиотеки со следующим списком изменений
Скрытый текст

* Enhanced: DATEPICKER/TIMEPICKER supports BackColor definition for text box (based upon the undocumented trick with an erase background event). Warning: this feature will work at NO THEMED WinXP or earlier only. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo.prg in folder \samples\Basic\DatePicker) * Enhanced: The Grid control supports the optional COLUMNWIDTHLIMITS clause and corresponding ON DRAGHEADERITEMS event. Above clause specifies the limits for the column's width which will allowed at the dragging of a column's border via a mouse. Syntax: @ <row>,<col> GRID <name> [ OF <parent> ] ; [ WIDTH <nWidth> ] [ HEIGHT <nHeight> ] ; [ HEADERS <aHeaders> ] [ WIDTHS <aWidths> ] ; [ ITEMS <aItems> ] [ VALUE <value> ] [ COLUMNWIDTHLIMITS <aWidthLimits> ] [ ON DRAGHEADERITEMS <bAction> ] where the array aWidthLimits should have the following values for an each column: { nMinWidth, nMaxWidth } or NIL. The DRAGHEADERITEMS event will be executed after a changing of a header item's position. Based upon a contribution of HMG user KDJ. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\Grid_ColumnsWidth) * Enhanced: The 'System' and 'Application' objects supports the following read only properties: - System.ClientWidth - System.ClientHeight - Application.FontName - Application.FontSize Contributed by Sergej Kiselev (see demo in folder \samples\Advanced\APP_OOPTSBBOX) * Updated: Minor modifications for compatibility with Viktor's Harbour fork 3.4.0 and Borland/Embarcadero C++ 7.3 (32-bit). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.25.0dev (from 3.24.0). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: HMGS-IDE v.1.4.3.4 Project Manager and Two-Way Visual Form Designer. Contributed by Grigory Filatov <gfilatov@inbox.ru> (look for what's new at changelog.txt in folder \Ide) * New: 'TSBrowse OOP TSBBOX usage' sample. Contributed by Sergej Kiselev (see in folder \samples\Advanced\APP_OOPTSBBOX) * New: 'TSBrowse ListBox custom class usage' sample. Contributed by Igor Nazarov. Revised by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\Tsb_ListBox) * Updated: 'Print Pie Graph' sample: updated the data for June 2018. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo.prg in folder \samples\Basic\GraphPrint) * Updated: 'Grid Columns Width' sample by HMG user KDJ. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\Grid_ColumnsWidth) * Updated: 'TSBrowse Demo' sample: - fixed the internal function ComboBrowse(). The bugs were reported by Sylvain Larche. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\TSBrowse)

Благодарю за Ваше внимание
Особая благодарность за помощь Сергею Киселеву и Игорю Назарову

 Отправлено: 13.07.18 12:06. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Олегу Назарову

gfilatov2002 пишет:

цитата:

Contributed by Igor Nazarov

Не стыковочка

 Отправлено: 13.07.18 12:10. Заголовок: Dima пишет: Не стык..

Dima пишет:

цитата:

Не стыковочка

Спасибо, поправил...

 Отправлено: 13.07.18 18:31. Заголовок: gfilatov2002 Поправ..

gfilatov2002
Поправьте в примере APP_OOPTSBBOX для полноты действий

 
 demo.ch 
 ... 
 #translate sColsPrivate() => __mvPrivate( BASE_COLUMNS ); _CrtCols( BASE_COLUMNS ) 
 #translate sCols( <Key>, <oCol> )         => _SetCols( <"Key">, <oCol> ) 
 #translate sCols( <Key>, <Name>, <xVal> ) => _SetCols( <"Key">, <"Name">, <xVal> ) 
 #translate dCols( <Key> )                 => _DelCols( <"Key"> ) 
 #translate gCols( <Key> )                 => _GetCols( <"Key"> ) 
 #translate gCols()                        => _GetCols() 
  
 demo_misk.prg 
 ... 
 *----------------------------------------------------------------------------* 
 FUNC InitBaseCols() 
 *----------------------------------------------------------------------------* 
    LOCAL oCol 
 ... 
    sCols( Land.ISES     , nWidth         , TxtWidth('Входит')       ) 
  
 // Для проверки, потом можно в комментарии положить или удалить 
    oCol        := gCols( Land.ISES ) 
    oCol:cAlias := 'CUST' 
  
    sCols( Cust.ISES, oCol ) 
  
 // AEval(gCols()     , {|ao,no,oc| oc:=ao[2], _LogFile(.T.,no,ao[1],oc:cAlias,oc:cName,oc:cField,oc:cData,oc:cHeading) }) 
 // AEval(gCols(Land.), {|ao,no,oc| oc:=ao[2], _LogFile(.T.,no,ao[1],oc:cAlias,oc:cName,oc:cField,oc:cData,oc:cHeading) }) 
 // AEval(gCols(Cust.), {|ao,no,oc| oc:=ao[2], _LogFile(.T.,no,ao[1],oc:cAlias,oc:cName,oc:cField,oc:cData,oc:cHeading) }) 
  
 ? '------------------------ after Add column',  
  AEval(gCols(Cust.), {|ao,no,oc| oc:=ao[2], _LogFile(.T.,no,ao[1],oc:cAlias,oc:cName,oc:cField,oc:cData,oc:cHeading) }) 
  
    dCols( Cust.ISES ) 
  
 ? '------------------------ after Del column',  
  AEval(gCols(Cust.), {|ao,no,oc| oc:=ao[2], _LogFile(.T.,no,ao[1],oc:cAlias,oc:cName,oc:cField,oc:cData,oc:cHeading) }) 
  
 RETURN Nil 
 ... 
 *-----------------------------------------------------------------------------* 
 FUNC _DelCols( cKey, cVarName ) 
 *-----------------------------------------------------------------------------* 
    LOCAL oVar 
    Default cVarName := BASE_COLUMNS 
  
    IF !__mvExist(cVarName);                       RETURN .F. 
    ENDIF 
  
    IF ! HB_ISOBJECT( oVar := __mvGet(cVarName) ); RETURN .F. 
    ENDIF 
  
    oVar:Del(cKey) 
  
 RETURN .T. 
  
 *-----------------------------------------------------------------------------* 
 FUNC _SetCols( cKey, cName, xVal, cVarName ) 
 *-----------------------------------------------------------------------------* 
    LOCAL oVar, oCol 
    Default cVarName := BASE_COLUMNS 
  
    IF !__mvExist(cVarName);                       RETURN .F. 
    ENDIF 
  
    IF ! HB_ISOBJECT( oVar := __mvGet(cVarName) ); RETURN .F. 
    ENDIF 
  
    IF pCount() < 3 
       If pCount() == 2 .and. HB_ISOBJECT(cName) 
          oVar:Set(cKey, cName) 
       EndIf 
       RETURN .F. 
    ENDIF 
  
    If ! HB_ISOBJECT( oCol := oVar:Get( cKey ) );  RETURN .F. 
    EndIf 
     
    oCol:SetProperty( cName, xVal ) 
  
 RETURN .T. 
  
 *-----------------------------------------------------------------------------* 
 FUNC _GetCols( cKey, cVarName ) 
 *-----------------------------------------------------------------------------* 
    LOCAL oVar, aCol := {} 
    Default cVarName := BASE_COLUMNS 
  
    IF !__mvExist(cVarName);                       RETURN NIL 
    ENDIF 
  
    IF ! HB_ISOBJECT( oVar := __mvGet(cVarName) ); RETURN NIL 
    ENDIF 
  
    IF pCount() > 0 
  
       If right(cKey, 1) == '*'; cKey := left(cKey, At('.', cKey)) 
       EndIf 
  
       If right(cKey, 1) == '.' 
          AEval(oVar:GetAll(), {|ac| iif( cKey $ ac[1], AAdd(aCol, AClone(ac)), Nil ) }) 
          RETURN aCol 
       EndIf 
  
       RETURN oVar:Get( cKey ):Clone() 
        
    ENDIF 
  
 RETURN oVar:GetAll() 
 ... 
 

 Отправлено: 13.07.18 20:48. Заголовок: SergKis пишет: Попр..

SergKis пишет:

цитата:

Поправьте в примере

Что-то эти изменения "не пошли" - препроцессор ругается
Давайте лучше рабочий пример

P.S. Сам разобрался - уже работает

 Отправлено: 13.07.18 21:22. Заголовок: gfilatov2002 пишет у..

gfilatov2002 пишет

цитата:

уже работает

На всякий случай тут https://my-files.ru/9yo3yx