HMGforum.com

Code: Select all

/*
* MiniGUI Virtual Grid Demo
* (c) 2009 Roberto Lopez
*/

#include "hmg.ch"

Function Main

Local aValue := { Nil , Nil }

	* Grid Column Controls Definitions

	aCtrl_1 := {'TEXTBOX','NUMERIC','9999999999'}
	aCtrl_2 := {'TEXTBOX','CHARACTER'}
	aCtrl_3 := {'TEXTBOX','CHARACTER'}
	aCtrl_4 := {'DATEPICKER','UPDOWN'}
	aCtrl_5 := { 'CHECKBOX' , 'Yes' , 'No' }
	aCtrl_6 := { 'EDITBOX' }

mat_HEADERS_todos         :={'Column 1','Column 2','Column 3','Column 4','Column 5','Column 6'}
mat_WIDTHS_todos          :={140,140,140,100,100,100}
mat_COLUMNCONTROLS_todos  :={ aCtrl_1 , aCtrl_2 , aCtrl_3 , aCtrl_4 , aCtrl_5 , aCtrl_6 }
mat_COLUMNFIELDS_todos    :={ 'Code' ,  'First' , 'Last' ,  'Birth' , 'Married' , 'Bio' }

mat_HEADERS         := mat_HEADERS_todos
mat_WIDTHS          := mat_WIDTHS_todos
mat_COLUMNCONTROLS  := mat_COLUMNCONTROLS_todos
mat_COLUMNFIELDS    := mat_COLUMNFIELDS_todos


	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 510 ;
		TITLE 'Hello World!' ;
		MAIN 

		DEFINE MAIN MENU 
			POPUP 'File'
				ITEM 'Pack'					ACTION Pack()
				ITEM 'Append (Alt+A)'				ACTION Form_1.Grid_1.Append
				ITEM 'Set RecNo'				ACTION Form_1.Grid_1.RecNo := val(InputBox('','')) 
				ITEM 'Get RecNo'				ACTION MsgInfo( Str(Form_1.Grid_1.RecNo) )
				ITEM 'Delete (Alt+D)'				ACTION Form_1.Grid_1.Delete
				ITEM 'Recall (Alt+R)'				ACTION Form_1.Grid_1.Recall
				ITEM 'Get Value'				ACTION ( aValue := Form_1.Grid_1.Value , MsgInfo( Str( aValue [1] ) + ' , ' + Str( aValue [2] ) ) )
				ITEM 'Set Value'				ACTION ( aValue [ 1 ] :=  val(InputBox('New Row','Selected Cell (Value)')) , aValue [ 2 ] :=  val(InputBox('New Col','Selected Cell (Value)')) , Form_1.Grid_1.Value := { aValue [ 1 ] , aValue [ 2 ] } )
				ITEM 'Save Pending Changes (Alt+S)'		ACTION Form_1.Grid_1.Save
				ITEM 'Clear Changes Buffer (Undo) (ALt+U)'	ACTION Form_1.Grid_1.ClearBuffer
			END POPUP
			
			POPUP 'FIELDS'
			    ITEM 'Ver Todos'            ACTION cambiar_field (1)
			    ITEM 'Ver FIELDS 1, 2 y 3'  ACTION cambiar_field (2)
			    ITEM 'Ver FIELDS 4, 5 y 6'  ACTION cambiar_field (3)
			END POPUP    
		END MENU

		USE TEST // SHARED

		INDEX ON CODE TO CODE

		*PACK

		GO TOP

		@ 10,10 GRID Grid_1 ;
			WIDTH 770 ;
			HEIGHT 440 ;
			HEADERS mat_HEADERS;
			WIDTHS  mat_WIDTHS;
			EDIT ;
			VALUE { 1 , 1 } ;
			COLUMNCONTROLS mat_COLUMNCONTROLS;
			ROWSOURCE "Test" ;
			COLUMNFIELDS mat_COLUMNFIELDS;
			ALLOWAPPEND ;
			ALLOWDELETE 
		
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return

Function pack
	pack
	Form_1.Grid_1.Refresh
Return



procedure cambiar_field (n)
   mat_HEADERS         := {}
   mat_WIDTHS          := {}
   mat_COLUMNCONTROLS  := {}
   mat_COLUMNFIELDS    := {}

   do case
      case n = 1
        mat_HEADERS         := mat_HEADERS_todos
        mat_WIDTHS          := mat_WIDTHS_todos
        mat_COLUMNCONTROLS  := mat_COLUMNCONTROLS_todos
        mat_COLUMNFIELDS    := mat_COLUMNFIELDS_todos
      case n = 2
           for i = 1 to 3             
               aadd (mat_HEADERS, mat_HEADERS_todos [i])
               aadd (mat_WIDTHS,  mat_WIDTHS_todos [i])
               aadd (mat_COLUMNCONTROLS, mat_COLUMNCONTROLS_todos [i])
               aadd (mat_COLUMNFIELDS, mat_COLUMNFIELDS_todos[i])
           next
      case n = 3
           for i = 4 to 6                           
               aadd (mat_HEADERS, mat_HEADERS_todos [i])
               aadd (mat_WIDTHS,  mat_WIDTHS_todos [i])
               aadd (mat_COLUMNCONTROLS, mat_COLUMNCONTROLS_todos [i])
               aadd (mat_COLUMNFIELDS, mat_COLUMNFIELDS_todos[i])
           next
    endcase

    reg := 1
    IF IsControlDefined ( Grid_1 , Form_1 ) 
        reg := Form_1.Grid_1.recno 
        Form_1.Grid_1.Release
    ENDIF
    
    @ 10,10 GRID Grid_1 OF Form_1;
			WIDTH 770 ;
			HEIGHT 440 ;
			HEADERS mat_HEADERS;
			WIDTHS  mat_WIDTHS;
			EDIT ;
			VALUE { reg , 1 } ;
			COLUMNCONTROLS mat_COLUMNCONTROLS;
			ROWSOURCE "Test" ;
			COLUMNFIELDS mat_COLUMNFIELDS;
			ALLOWAPPEND ;
			ALLOWDELETE 
            
return