Отправлено: 26.01.16 21:04. Заголовок: Список контролов на форме

Дай бог здоровья всем добрым людям!
Вот опять дедушке невмоготу лазить по инструкциям, ответ раньше времени получить хочется!
И по поиску на форуме не нашлось мне ничего. (((
Можно ли как-то получить массив контролов, которые имеются на форме?
На форме имеется куча полей для ввода и в разных режимах необходимо делать большинство из них недоступными до определенного события, а затем наоборот - т е _ExtDisableControl ( ) _ExtDisableControl ( ) по массиву пробегаючись.
Что можно тут посоветовать?

 Отправлено: 26.01.16 21:22. Заголовок: Где то так.... ..

Где то так....

// считать все объекты на форме
aTemp := _GetArrayOfAllControlsForForm ( "Form_Main" )
FOR nI := 1 TO LEN(aTemp)
cObj := UPPER(aTemp[nI])
IF AT("OBUT_", cObj) > 0 .OR. ;
.OR. AT("IMAGE_1", cObj) > 0
SetProperty( "Form_Main", cObj, "Visible", .F. )
ENDIF
NEXT
......................

//////////////////////////////////////////////////////////////////////////////////////
// Перерисовать все объекты на форме
FUNCTION RedrawAll()
Local aCtrls := _GetArrayOfAllControlsForForm ( _HMG_ThisFormName )
Local nI, CtrlName

FOR nI := 1 TO LEN(aCtrls)
CtrlName := aCTrls[nI]
IF AT("DUMMYMENUNAME", UPPER(CtrlName) ) > 0
// пропуск, т.к. это объект МиниГуи-ядра
ELSE
SetProperty( _HMG_ThisFormName, CtrlName, "Visible" , .F. )
SetProperty( _HMG_ThisFormName, CtrlName, "Visible" , .T. )
ENDIF
NEXT

Return NIL


/*************** MiniGUI\SAMPLES\BASIC\Form_Controls **************************/
Function _GetArrayOfAllControlsForForm ( cFormName )
/******************************************************************************/
Local nFormHandle , i , nControlCount , aRetVal := {} , x

nFormHandle := GetFormHandle ( cFormName )
nControlCount := Len ( _HMG_aControlHandles )
For i := 1 To nControlCount
If _HMG_aControlParentHandles == nFormHandle
If ValType( _HMG_aControlHandles ) == 'N'
IF ! Empty( _HMG_aControlNames )
If Ascan( aRetVal, _HMG_aControlNames ) == 0
Aadd( aRetVal, _HMG_aControlNames )
EndIf
ENDIF
ElseIf ValType( _HMG_aControlHandles ) == 'A'
For x := 1 To Len ( _HMG_aControlHandles )
IF !Empty( _HMG_aControlNames )
If Ascan( aRetVal, _HMG_aControlNames ) == 0
Aadd( aRetVal, _HMG_aControlNames )
EndIf
ENDIF
Next x
EndIf
EndIf
Next i
Return Asort( aRetVal )

 Отправлено: 27.01.16 03:42. Заголовок: Вооо! Спасибо за сс..

Вооо! Спасибо за ссылку, счас гляну, сразу в примерах и не углядел!
За вечер правда уже на другой путь свернуть я успел... (((((
А можно ли станд.средствами узнать, есть ли контрол на форме, т е не обращаясь к сформированному списку имеющихся?

 Отправлено: 27.01.16 20:11. Заголовок: If .Not. _IsWindowD..

If .Not. _IsWindowDefined (ParentForm)
MsgMiniGuiError("Window: "+ ParentForm + " is not defined.")
Endif

If _IsControlDefined (ControlName,ParentForm)
MsgMiniGuiError ("Control: " + ControlName + " Of " + ParentForm + " Already defined.")
endif

 Отправлено: 27.01.16 21:51. Заголовок: Andrey пишет: Где т..

Andrey пишет:

цитата:

Где то так....

 Отправлено: 28.01.16 21:57. Заголовок: Пасибки! И в каких ..

Пасибки!
И в каких только умных книжках все это народ находит?
Наверно толстые и без картинок...

 Отправлено: 28.01.16 23:14. Заголовок: mshep пишет: И в ка..

mshep пишет:

цитата:

И в каких только умных книжках все это народ находит?

Открвываешь в Far'е поиск в папке MiniGUI и читаешь исходники...
Ничего не понимаешь, через день повторить... И так пока не поймёшь... А потом можешь и забыть...
Нет никаких книжек, только работа, работа и ещё раз работа !
Пока не переделаешь кучу примеров, ничего не поймёшь....

 Отправлено: 20.05.18 01:01. Заголовок: Добрый вечер добрым ..

Добрый вечер добрым людям!
Подсказал бы кто мне функцию, по которой можно было бы получить список всех открытых WINDOW текущей программы
и чтобы можно было отловить которые из них HIDE.
И где про сию функцию посмотреть/почитать.
Очень буду благодарен и удовлетворен, если кто ответит дедушке.

 Отправлено: 20.05.18 09:28. Заголовок: mshep пишет получить..

mshep пишет

цитата:

получить список всех открытых WINDOW текущей программы

_HMG_aFormNames
_HMG_aFormHandles
т.е.
For i := 1 To Len( _HMG_aFormHandles )
? _HMG_aFormNames[ i ]
Next

цитата:

и чтобы можно было отловить которые из них HIDE. И где про сию функцию посмотреть/почитать.

h_window.pg Скрытый текст

*-----------------------------------------------------------------------------* FUNCTION _HideWindow ( FormName ) *-----------------------------------------------------------------------------* LOCAL i, FormHandle IF ( i := GetFormIndex ( FormName ) ) > 0 FormHandle := _HMG_aFormHandles [ i ] IF IsWindowVisible ( FormHandle ) IF _HMG_aFormType [ i ] == 'M' IF _HMG_ActiveModalHandle <> FormHandle MsgMiniGuiError ( "Non top modal windows can't be hide." ) ENDIF ENDIF HideWindow ( FormHandle ) _hmg_OnHideFocusManagement ( i ) ENDIF ENDIF RETURN NIL

 Отправлено: 20.05.18 10:50. Заголовок: Пасибки! И в каких ..

Пасибки! И в каких книжках все все это находят?

 Отправлено: 20.05.18 11:42. Заголовок: mshep пишет И в каки..

mshep пишет

цитата:

И в каких книжках все все это находят?

В исходниках.
Список функций по файлам MiniGui\UTILS\FuncList, собираете, смотрите, изучаете.
Include\i_*.ch там все команды, к примеру i_window.ch

 
    #xcommand DEFINE WINDOW <w> ; 
 ... 
          [ <helpbutton: HELPBUTTON> ] ; 
    => ; 
 ... 
    _DefineWindow ( <"w">, <title>,...) 
 ... 
 ищем _DefineWindow она в h_window.prg, смотрим ее и в самом конце видим 
 Скрытый текст

 
    IF k > 0 
  
       Public &mVar. := k 
  
       _HMG_aFormNames [ k ] :=  FormName 
       _HMG_aFormHandles [ k ] :=  FormHandle 
       _HMG_aFormActive [ k ] :=  .F. 
       _HMG_aFormType [ k ] :=  cType 
       _HMG_aFormParentHandle [ k ] :=  iif( panel, ParentHandle, 0 ) 
       _HMG_aFormReleaseProcedure [ k ] :=  ReleaseProcedure 
       _HMG_aFormInitProcedure [ k ] :=  InitProcedure 
       _HMG_aFormToolTipHandle [ k ] :=  htooltip 
       _HMG_aFormContextMenuHandle [ k ] :=  0 
       _HMG_aFormMouseDragProcedure [ k ] :=  MouseDragProcedure 
       _HMG_aFormSizeProcedure [ k ] :=  SizeProcedure 
       _HMG_aFormClickProcedure [ k ] :=  ClickProcedure 
       _HMG_aFormMouseMoveProcedure [ k ] :=  MouseMoveProcedure 
       _HMG_aFormMoveProcedure [ k ] :=  MoveProcedure 
       _HMG_aFormDropProcedure [ k ] :=  DropProcedure 
       _HMG_aFormDeleted [ k ] := .F. 
       _HMG_aFormBkColor [ k ] := aRGB 
       _HMG_aFormPaintProcedure [ k ] :=  PaintProcedure 
       _HMG_aFormNoShow [ k ] :=  noshow 
       _HMG_aFormNotifyIconName [ k ] :=  NotifyIconName 
       _HMG_aFormNotifyIconToolTip [ k ] :=  NotifyIconToolTip 
       _HMG_aFormNotifyIconLeftClick [ k ] :=  NotifyIconLeftClick 
       _HMG_aFormNotifyIconDblClick [ k ] :=  NotifyIconDblClick 
       _HMG_aFormGotFocusProcedure [ k ] :=  GotFocus 
       _HMG_aFormLostFocusProcedure [ k ] :=  LostFocus 
       _HMG_aFormReBarHandle [ k ] :=  0 
       _HMG_aFormNotifyMenuHandle [ k ] := 0 
       _HMG_aFormBrowseList [ k ] :=  {} 
       _HMG_aFormSplitChildList [ k ] := {} 
       _HMG_aFormVirtualHeight [ k ] :=  VirtualHeight 
       _HMG_aFormVirtualWidth [ k ] :=  VirtualWidth 
       _HMG_aFormFocused [ k ] :=  .F. 
       _HMG_aFormScrollUp [ k ] :=  ScrollUp 
       _HMG_aFormScrollDown [ k ] :=  ScrollDown 
       _HMG_aFormScrollLeft [ k ] :=  ScrollLeft 
       _HMG_aFormScrollRight [ k ] :=  ScrollRight 
       _HMG_aFormHScrollBox [ k ] := HScrollBox 
       _HMG_aFormVScrollBox [ k ] := VScrollBox 
       _HMG_aFormBrushHandle [ k ] := BrushHandle 
       _HMG_aFormFocusedControl [ k ] := 0 
       _HMG_aFormGraphTasks [ k ] := {} 
       _HMG_aFormMaximizeProcedure [ k ] :=  MaximizeProcedure 
       _HMG_aFormMinimizeProcedure [ k ] :=  MinimizeProcedure 
       _HMG_aFormRestoreProcedure [ k ] :=  RestoreProcedure 
       _HMG_aFormAutoRelease [ k ] :=  ! NoAutoRelease 
       _HMG_aFormInteractiveCloseProcedure [ k ] :=  InteractiveCloseProcedure 
       _HMG_aFormMinMaxInfo [ k ] := InitMinMaxInfo ( FormHandle ) 
       _HMG_aFormActivateId [ k ] := 0 
       _HMG_aFormMiscData1  [ k ] := {} 
       _HMG_aFormMiscData2  [ k ] := '' 
 #ifdef _HMG_COMPAT_ 
       _HMG_StopWindowEventProcedure [ k ] := .F. 
 #endif 
  
    ELSE 
  
       k := Len( _HMG_aFormNames ) + 1 
  
       Public &mVar. := k 
  
       AAdd ( _HMG_aFormNames, FormName ) 
       AAdd ( _HMG_aFormHandles, FormHandle ) 
       AAdd ( _HMG_aFormActive, .F. ) 
       AAdd ( _HMG_aFormType, cType ) 
       AAdd ( _HMG_aFormParentHandle, iif( panel, ParentHandle, 0 ) ) 
       AAdd ( _HMG_aFormReleaseProcedure, ReleaseProcedure ) 
       AAdd ( _HMG_aFormInitProcedure, InitProcedure ) 
       AAdd ( _HMG_aFormToolTipHandle, htooltip ) 
       AAdd ( _HMG_aFormContextMenuHandle, 0 ) 
       AAdd ( _HMG_aFormMouseDragProcedure, MouseDragProcedure ) 
       AAdd ( _HMG_aFormSizeProcedure, SizeProcedure ) 
       AAdd ( _HMG_aFormClickProcedure, ClickProcedure ) 
       AAdd ( _HMG_aFormMouseMoveProcedure, MouseMoveProcedure ) 
       AAdd ( _HMG_aFormMoveProcedure, MoveProcedure ) 
       AAdd ( _HMG_aFormDropProcedure, DropProcedure ) 
       AAdd ( _HMG_aFormDeleted, .F. ) 
       AAdd ( _HMG_aFormBkColor, aRGB ) 
       AAdd ( _HMG_aFormPaintProcedure, PaintProcedure ) 
       AAdd ( _HMG_aFormNoShow, noshow ) 
       AAdd ( _HMG_aFormNotifyIconName, NotifyIconName    ) 
       AAdd ( _HMG_aFormNotifyIconToolTip, NotifyIconToolTip    ) 
       AAdd ( _HMG_aFormNotifyIconLeftClick, NotifyIconLeftClick    ) 
       AAdd ( _HMG_aFormNotifyIconDblClick, NotifyIconDblClick    ) 
       AAdd ( _HMG_aFormGotFocusProcedure, GotFocus ) 
       AAdd ( _HMG_aFormLostFocusProcedure, LostFocus ) 
       AAdd ( _HMG_aFormReBarHandle, 0 ) 
       AAdd ( _HMG_aFormNotifyMenuHandle, 0 ) 
       AAdd ( _HMG_aFormBrowseList, {} ) 
       AAdd ( _HMG_aFormSplitChildList, {} ) 
       AAdd ( _HMG_aFormVirtualHeight, VirtualHeight ) 
       AAdd ( _HMG_aFormVirtualWidth, VirtualWidth ) 
       AAdd ( _HMG_aFormFocused, .F. ) 
       AAdd ( _HMG_aFormScrollUp, ScrollUp ) 
       AAdd ( _HMG_aFormScrollDown, ScrollDown ) 
       AAdd ( _HMG_aFormScrollLeft, ScrollLeft ) 
       AAdd ( _HMG_aFormScrollRight, ScrollRight ) 
       AAdd ( _HMG_aFormHScrollBox, HScrollBox ) 
       AAdd ( _HMG_aFormVScrollBox, VScrollBox ) 
       AAdd ( _HMG_aFormBrushHandle, BrushHandle ) 
       AAdd ( _HMG_aFormFocusedControl, 0 ) 
       AAdd ( _HMG_aFormGraphTasks, {} ) 
       AAdd ( _HMG_aFormMaximizeProcedure, MaximizeProcedure ) 
       AAdd ( _HMG_aFormMinimizeProcedure, MinimizeProcedure ) 
       AAdd ( _HMG_aFormRestoreProcedure, RestoreProcedure ) 
       AAdd ( _HMG_aFormAutoRelease, ! NoAutoRelease ) 
       AAdd ( _HMG_aFormInteractiveCloseProcedure, InteractiveCloseProcedure ) 
       AAdd ( _HMG_aFormMinMaxInfo, InitMinMaxInfo ( FormHandle ) ) 
       AAdd ( _HMG_aFormActivateId, 0 ) 
       AAdd ( _HMG_aFormMiscData1, {} ) 
       AAdd ( _HMG_aFormMiscData2, '' ) 
 #ifdef _HMG_COMPAT_ 
       AAdd ( _HMG_StopWindowEventProcedure, .F. ) 
 #endif 
  
    ENDIF 
 
 
 это системные переменные hmg для окна. 
 Так же поступаете с контролами файл i_<контрол>.ch -> h_<контрол>.prg 
 в нем переменные hmg для контролов. 
 Словом смотрим исходники. 
 В примерах ищем Farом, как предлагалось выше 
 

 Отправлено: 20.05.18 12:00. Заголовок: PS см. MiniGui\D..

PS
см. MiniGui\Doc
MiniGui.chm
...