HMGforum.com

Code: Select all

#include "hmg.ch"

MEMVAR _HMG_SYSDATA

proc main
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'Test';
		MAIN

      DEFINE MAIN MENU
              POPUP 'Standard'
                ITEM 'Open Window' ACTION {|| DoWindow2() } 
              END POPUP
      END MENU

      @ 40,20 LABEL Win_1_Label_1 VALUE "L1"
      
      @ 20,30 BUTTON Win_1_Button_1 Caption 'Controls' WIDTH 100 HEIGHT 20 ACTION GetControls (ThisWindow.Name)
      
	END WINDOW

	activate window Form_1
retu

//*****************************************************************************
func DoWindow2()
	DEFINE WINDOW Form_2 ;
		AT 0,0 ;
		WIDTH 600 HEIGHT 400 ;
		TITLE 'Win 2' 

		@ 20,40 BUTTON Win_2_Button_1 caption 'Win 3' WIDTH 100 HEIGHT 20 ACTION {|| DoWindow3() }
		
		@ 40,20 LABEL Win_2_Label_1 VALUE "L1"
		@ 60,20 LABEL Win_2_Label_2 VALUE "L2"
		
		@ 100,30 BUTTON Win_2_Button_2 Caption 'Controls' WIDTH 100 HEIGHT 20 ACTION GetControls (ThisWindow.Name)

	END WINDOW

	activate window Form_2
return

//*****************************************************************************
func DoWindow3()
	DEFINE WINDOW Form_3 ;
		AT 0,0 ;
		WIDTH 600 HEIGHT 400 ;
		TITLE 'Win 3' 

		@ 50,100 BUTTON Win_3_Button_1 caption 'OK' WIDTH 100 HEIGHT 20 ACTION {|| MsgBox('OK') }
		
		@ 70,20 LABEL Win_3_Label_1 VALUE "L1"
		@ 90,20 LABEL Win_3_Label_2 VALUE "L2"
		@ 110,20 LABEL Win_3_Label_3 VALUE "L3"
		
		@ 130,30 BUTTON Win_3_Button_3 Caption 'Controls' WIDTH 100 HEIGHT 20 ACTION GetControls (ThisWindow.Name)

	END WINDOW

	activate window Form_3
return


************************************************************************************
Function GetControls( cForm )
Local hWnd := GetFormHandle( cForm )
Local aControls := {}		//List of controls {ControlType, ControlName}
AEVAL( _HMG_SYSDATA[ 4 ], { | hCtrWnd, nPos | IF( hCtrWnd == hWnd, AADD( aControls , { _HMG_SYSDATA[ 1, nPos ], _HMG_SYSDATA[ 2, nPos ] }), Nil ) } )

MsgDebug( 'List of controls', aControls)

Return aControls