HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main
   public CtrlF2 := 'My Macro 1', CtrlF3 := 'My Macro 2'
   private a := ''
	
   DEFINE WINDOW Win1 ;
      AT 0,0 ;
      WIDTH 800 ;
      HEIGHT 400 ;
      TITLE 'Test Input' MAIN
	
	
	DEFINE LABEL LAB1
         ROW 20
         COL 200
         WIDTH 280
         HEIGHT 20
		 VALUE 'Enter Text   Or (  (Macro sets)  Or ( F4)  For Inputbox)  '  
	END LABEL
	
	DEFINE TEXTBOX TEXT1
      ROW 10
      COL 10
      WIDTH 150
      HEIGHT 20
	  ON ENTER  { || {Win1.Text2.Setfocus }}
   END TEXTBOX
   
   DEFINE TEXTBOX TEXT2
      ROW 35
      COL 10
      WIDTH 150
      HEIGHT 20
	   ON ENTER  { || {Win1.Text1.Setfocus }}
   END TEXTBOX
   
	SetKeys('Win1')  //sets all macros
	
	On Key F4 of Win1 Action { || {myInputbox()} , {msgbox('Now I Can Do Something With  '+a)}} 
  
    END WINDOW
   CENTER WINDOW Win1 
   ACTIVATE WINDOW Win1 
  
Return

Function MyInputBox
   
	DEFINE WINDOW MyBox ;
		AT win1.height/2,win1.width/2 ;
		WIDTH 300 ;
		HEIGHT 100 ;
		NOMAXIMIZE ;
		NOMINIMIZE ;
		NOSIZE;
		TITLE 'Input Window' CHILD

	DEFINE LABEL LAB1
         ROW 10
         COL 10
         WIDTH 280
         HEIGHT 20
		 VALUE 'Enter Text    (Escape/Blank to Exit)'
	END LABEL
	
	DEFINE TEXTBOX TEXT1
         ROW 30
         COL 10
         WIDTH 280
         HEIGHT 30
		 ON ENTER  { || {a := MyBox.Text1.Value} , {MyBox.Release} }	
	END TEXTBOX
	
		SetKeys('MYBOX') // Sets all macros
		
		ON KEY ESCAPE OF MyBox Action MyBox.Release

	END WINDOW

	MyBox.Text1.Setfocus
	CENTER WINDOW Mybox 
	ACTIVATE WINDOW Mybox 
Return

Function SetKeys(Fun)   
						// sets all macros

	ON KEY CONTROL+F2 OF Fun ACTION SetProperty( Fun , GetProperty( Fun , ;
		'FocusedControl' ) , 'Value' , CtrlF2 )
	ON KEY CONTROL+F3 OF Fun ACTION SetProperty( Fun , GetProperty( Fun , ;
		'FocusedControl' ) , 'Value' , CtrlF3 )
	* And so on More Macros
		
Return