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

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

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

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

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

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

 Отправлено: 17.02.18 20:30. Заголовок: SergKis пишет: Немн..

SergKis пишет:

цитата:

Немного правок

Принимается.
Благодарю за помощь

 Отправлено: 18.02.18 09:19. Заголовок: gfilatov2002 В прод..

gfilatov2002
В продолжение

 
 CLASS TStbData   INHERIT TCnlData  
 ... 
    METHOD Enable  ( lEnab )                         INLINE ::oTBrowse:lEnabled := iif( HB_ISLOGICAL(lEnab), lEnab, ::oTBrowse:lEnabled ) 
    METHOD Enabled ( lEnab )                         INLINE ::oTBrowse:Enabled( lEnab ) 
    METHOD Restore()                                 INLINE ::oTBrowse:Show() 
    METHOD Show()                                    INLINE ::oTBrowse:Show() 
    METHOD Hide()                                    INLINE ::oTBrowse:Hide() 
    METHOD SetFocus()                                INLINE ::oTBrowse:SetFocus() 
  
 ... 
 *-----------------------------------------------------------------------------* 
 Function _GetValue ( ControlName, ParentForm , Index ) 
 *-----------------------------------------------------------------------------* 
 ... 
    do case 
 #ifdef _TSBROWSE_ 
    case T == "TBROWSE" 
       oGet   := _HMG_aControlIds[ ix ] 
       retval := EVal( oGet:GetColumn( oGet:nCell ):bData ) 
 #endif 
 #ifdef _DBFBROWSE_ 
 ... 
 *-----------------------------------------------------------------------------* 
 Function _SetValue ( ControlName, ParentForm, Value , Index, lSetGet ) 
 *-----------------------------------------------------------------------------* 
 ... 
    do case 
 #ifdef _TSBROWSE_ 
    case T == "TBROWSE" 
       oGet := _HMG_aControlIds[ ix ] 
       EVal( oGet:GetColumn( oGet:nCell ):bData, Value ) 
 #endif 
 #ifdef _DBFBROWSE_ 
 ... 
 

 Отправлено: 18.02.18 09:22. Заголовок: PS Не углядел лишний..

PS
Не углядел лишний параметр из своей либы (убрать)
Function _SetValue ( ControlName, ParentForm, Value , Index, lSetGet )

 Отправлено: 18.02.18 09:26. Заголовок: PPS и класс не TStbD..

PPS
и класс не TStbData, а TTsbData
CLASS TTsbData INHERIT TCnlData

 Отправлено: 18.02.18 21:35. Заголовок: SergKis пишет: В пр..

SergKis пишет:

цитата:

В продолжение

Дополнил.
Благодарю за помощь

 Отправлено: 19.02.18 00:01. Заголовок: Григорий, прошу прощ..

Григорий, прошу прощения, пропустил наследованные методы в TTsbata Disable(), Refresh()

 
 вместо 
    METHOD Enable  ( lEnab )                         INLINE ::oTBrowse:lEnabled := iif( HB_ISLOGICAL(lEnab), lEnab, ::oTBrowse:lEnabled ) 
 сделать 
    METHOD Enable ()                                 INLINE ::oTBrowse:lEnabled := .T. 
 добавить 
    METHOD Disable()                                 INLINE ::oTBrowse:lEnabled := .F. 
    METHOD Refresh( lPaint )                         INLINE ::oTBrowse:Refresh(lPaint) 
 

 Отправлено: 19.02.18 09:42. Заголовок: gfilatov2002 И еще ..

gfilatov2002
И еще

 
 CLASS TWndData 
 ... 
    METHOD Hide()                 INLINE _HideWindow      ( ::cName ) 
    METHOD SetSize( y, x, w, h )  INLINE _SetWindowSizePos( ::cName, y, x, w, h ) 
 в TCnlData есть такой метод 
  
 в TSBROWSE добавил 
  METHOD GetValue( xCol )         INLINE ( xCol := hb_defaultValue(xCol, ::nCell),    ;   
                                                EVal( ::GetColumn(xCol):bData ) ) 
  METHOD SetValue( xCol, xVal )   INLINE ( xCol := hb_defaultValue(xCol, ::nCell),    ; 
                                                EVal( ::GetColumn(xCol):bData, xVal ) ) 
 надоело писать Eval 
 

 Отправлено: 19.02.18 09:50. Заголовок: PS Может методы назв..

PS
Может методы назвать надо было короче Get и Put, взял по аналогии с _GetValue и _SetValue

 Отправлено: 19.02.18 11:41. Заголовок: SergKis пишет: Може..

SergKis пишет:

цитата:

Может методы назвать надо было короче Get и Put, взял по аналогии с _GetValue и _SetValue

Лучше GetColumn() и PutColumn(xCol)

 Отправлено: 19.02.18 12:18. Заголовок: SergKis пишет: проп..

SergKis пишет:

цитата:

пропустил наследованные методы в TTsbata Disable(), Refresh()

Исправил и добавил все предложенные методы.

SergKis пишет:

цитата:

Может методы назвать надо было короче

Полностью полагаюсь на Ваш вкус в этом вопросе.

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

 Отправлено: 19.02.18 13:01. Заголовок: После перехода с вер..

После перехода с версии 17.11 на 17.12 ( и 18.01 ) изменилось поведение CHECKLABEL ( пример c:\MiniGUI\SAMPLES\BASIC\CheckLabel\ )

@ 200,30 CHECKLABEL Label_1 ;
WIDTH 200 HEIGHT 24 ;
VALUE 'Check Label_1 standard' ;
CHECKED ;
FONT 'Arial' SIZE 9 BACKCOLOR YELLOW ;
ON MOUSEHOVER Rc_Cursor( "MINIGUI_FINGER" ) ;
ONCLICK (MsgInfo(HB_VALTOSTR(Form_Main.Label_1.Value)), lChecked := Form_Main.Label_1.Checked, Form_Main.Label_1.Checked := !lChecked )

ранее выдавало значение Form_Main.Label_1.Value = 'Check Label_1 standard',
а теперь Form_Main.Label_1.Value = Form_Main.Label_1.Checked

Ну соответственно новое значение Form_Main.Label_1.Value не присваивается.

 Отправлено: 19.02.18 13:16. Заголовок: Avf пишет: а теперь..

Avf пишет:

цитата:

а теперь Form_Main.Label_1.Value = Form_Main.Label_1.Checked

Все верно

цитата:

* Enhanced: CHECKLABEL control supports the optional 'Value' property as synonym for the 'Checked' property. You can set/get 'Value' property at runtime as usually. Added a default action for 'On Click' event: it will switch a value similar to the CheckBox control. Suggested and contributed by Sergej Kiselev.

Avf пишет:

цитата:

новое значение Form_Main.Label_1.Value не присваивается

Пробуйте

цитата:

ONCLICK (Form_Main.Label_1.Caption:='New Value', lChecked := Form_Main.Label_1.Checked, Form_Main.Label_1.Checked := !lChecked )

 Отправлено: 19.02.18 13:46. Заголовок: Спасибо, не посмотр..

Спасибо, не посмотрел изменения.

 Отправлено: 20.02.18 17:14. Заголовок: gfilatov2002 Обнару..

gfilatov2002
Обнаружил, что GetControlHandle(...) возвращает массив Handle, вернее This.Spinner_Year.Handle, т.е.
GetProperty(cForm, 'Spinner_Year', 'Handle')

 
 Тут сделано так: 
 *-----------------------------------------------------------------------------* 
 FUNC Do_OnCtlInit( i, cVar ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nCtlIndex := i 
    LOCAL cCtlName  := _HMG_aControlNames[ i ] 
    LOCAL nHandle   := iif( ISARRAY( _HMG_aControlHandles[ i ] ), ; 
       _HMG_aControlHandles[ i ][ 1 ], _HMG_aControlHandles[ i ] ) 
    LOCAL nParent   := _HMG_aControlParentHandles[ i ] 
 ... 
 что то, нет ясности, где править GetControlHandle(...) или GetProperty(...) ? 
 

 Отправлено: 20.02.18 17:22. Заголовок: PS Это меня заклинил..

PS
Это меня заклинило\глюкнуло.
Надо знать про массив и где нужно делать руками This.Spinner_Year.Handle[1]

 Отправлено: 22.02.18 14:59. Заголовок: gfilatov2002 Возмож..

gfilatov2002
Возможно, будет интересен пример SET OOP ON с event-ами. http://my-files.ru/ii331e
Работа с event-ами позволяет создавать This среду для контролов (для тсб тоже).
К примеру события 101, 102 вызываются и из меню 1.1, 1.2 ( This - окно ), а с кнопок Button_1, Button_2 This среда контролов.

 Отправлено: 22.02.18 16:14. Заголовок: SergKis пишет: Возм..

SergKis пишет:

цитата:

Возможно, будет интересен пример SET OOP ON с event-ами.

Да, этот пример будет интересен, как и все Ваши примеры использования ООП в Минигуи
Благодарю за внимание

 Отправлено: 23.02.18 10:15. Заголовок: gfilatov2002 Лишние..

gfilatov2002
Лишние скобки надо убрать

 
 METHOD Eval( Block ) CLASS TKeyData 
 ... 
       IF     b; Eval( Block, hb_HValueAt( ::aKey, i ), hb_HKeyAt( ::aKey, i ), i   ) 
       ELSEIF l; AAdd( a,   { hb_HValueAt( ::aKey, i )                            } ) 
       ELSE    ; AAdd( a,   { hb_HValueAt( ::aKey, i ), hb_HKeyAt( ::aKey, i ), i } ) 
 ... 
 METHOD Eval( Block ) CLASS TThrData 
 ... 
       If ::lMT 
          m := ::SGD( 4, i ) 
          IF     b; Eval( Block, m[ 2 ], m[ 1 ], i   ) 
          ELSEIF l; AAdd( a,   { m[ 2 ]            } ) 
          ELSE    ; AAdd( a,   { m[ 2 ], m[ 1 ], i } ) 
          ENDIF 
       ELSE 
          IF     b; Eval( Block, hb_HValueAt( ::aKey, i ), hb_HKeyAt( ::aKey, i ), i   ) 
          ELSEIF l; AAdd( a,   { hb_HValueAt( ::aKey, i )                            } ) 
          ELSE    ; AAdd( a,   { hb_HValueAt( ::aKey, i ), hb_HKeyAt( ::aKey, i ), i } ) 
          ENDIF 
       ENDIF 
 ...

 Отправлено: 23.02.18 11:22. Заголовок: SergKis пишет: Лишн..

SergKis пишет:

цитата:

Лишние скобки надо убрать

Убрал, конечно.
Благодарю за помощь

 Отправлено: 28.02.18 10:53. Заголовок: Опубликована новая с..

Опубликована новая сборка 18.02 для BCC 5.51 для компиляторов Harbour и xHarbour

Базовый дистрибутив-инсталлятор находится по адресу

http://hmgextended.com/files/CONTRIB/hmg-18.02-setup.exe

Имеются в наличии также готовые сборки для следующих пар (Си-компилятор+Харбор):

- MinGW 7.2.0 32-bit для Harbour 3.2.0dev;

- MinGW 7.2.0 64-bit для Harbour 3.4.0dev;

- MS VisualC 2017 32-bit для Harbour 3.2.0dev;

- Borland/Embarcadero C++ 7.3 (32-bit) для Harbour 3.2.0dev.

ссылки на которые будут доступны по Вашему запросу