HMGforum.com

Code: Select all

llThisCellVal := GetProperty( "DataBrowse", "BrowseStates", "CellEx", lnGridRowNr, 1 ) // Always returns Nil!

Code: Select all

public bcolor := { || if( this.Cellrowindex/2 == int(this.CellRowIndex/2), {210,120,255}, {100,200,255})}       // I added
	* 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 := {'TEXTBOX','CHARACTER'}

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

		DEFINE MAIN MENU 
			POPUP 'File'
				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
		END MENU

		*.............................................................

		SELECT 1

		USE TEST ALIAS TEST

		INDEX ON CODE TO TEST_CODE

		GO TOP

		*..............................................................

		SELECT 2

		USE CHILD ALIAS CHILD

		INDEX ON CODE TO CHILD_CODE

		GO TOP

		*..............................................................

		SELECT 1

		SET RELATION TO CODE INTO CHILD

		GO TOP

		*..............................................................

		@ 10,10 grid Grid_1 ;
			WIDTH 770 ;
			HEIGHT 440 ;
			HEADERS {'Column 5','Column 1','Column 2','Column 3','Column 4','Column 6'} ;
			WIDTHS {100,140,140,140,100,110};     // I changed
			FONT "ARIAL" SIZE 8;
			EDIT ;
			VALUE { 1 , 1 } ;
			COLUMNCONTROLS { aCtrl_5 , (aCtrl_1) , aCtrl_2 , aCtrl_3 , aCtrl_4 , aCtrl_6 } ;         // I changed
			ROWSOURCE "Test" ;
			COLUMNFIELDS { 'Married', 'Code' ,  'First' , 'Last' ,  'Birth' , 'child->info' } ;         // I changed
			ALLOWDELETE ;
			DYNAMICBACKCOLOR {BCOLOR,BCOLOR,BCOLOR,BCOLOR,BCOLOR,BCOLOR}           // I added

  
 
		
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return

Code: Select all

 
 #include "hmg.ch"



FUNCTION MAIN()
/***************/

aARQ  := {}
AADD( aARQ , { 'F1'      , 'N'	, 7	, 0 } )
AADD( aARQ , { 'F2'      , 'C'	, 10	, 0 } )
AADD( aARQ , { 'F3' 	    , 'C'   , 10 	, 0 } )
AADD( aARQ , { 'F4' 	    , 'D'   , 8 	, 0 } )
AADD( aARQ , { 'F5' 	    , 'L'   , 1 	, 0 } )
AADD( aARQ , { 'F6' 	    , 'C'   , 10 	, 0 } )
DBCREATE( "TESTRED2" , aARQ  )	  

SELECT 1
USE TESTRED2
GO TOP

APPEND BLANK
REPLACE F1  WITH 123
REPLACE F2  WITH '123'
REPLACE F3  WITH '123'
REPLACE F4  WITH DATE()-123
REPLACE F5  WITH .f.
REPLACE F6  WITH 'F6'

APPEND BLANK
REPLACE F1  WITH 321
REPLACE F2  WITH '312'
REPLACE F3  WITH '321'
REPLACE F4  WITH DATE()-123
REPLACE F5  WITH .T.
REPLACE F6  WITH 'F6'

APPEND BLANK
REPLACE F1  WITH 123
REPLACE F2  WITH '123'
REPLACE F3  WITH '123'
REPLACE F4  WITH DATE()-1 
REPLACE F5  WITH .f.
REPLACE F6  WITH 'F6'

APPEND BLANK
REPLACE F1  WITH 321
REPLACE F2  WITH '312'
REPLACE F3  WITH '321'
REPLACE F4  WITH DATE() 
REPLACE F5  WITH .T.
REPLACE F6  WITH 'F6'


public bcolor := { || if( this.Cellrowindex/2 == int(this.CellRowIndex/2), {210,120,255}, {100,200,255})}    

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

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

   @ 10,10 grid Grid_1 ;
      WIDTH 770 ;
      HEIGHT 440 ;
      HEADERS {'Column 1','Column 2','Column 3','Column 4','Column 5','Column 6'} ;
      WIDTHS {100,140,140,140,100,110};      
      FONT "ARIAL" SIZE 8;
      EDIT ;
      VALUE { 1 , 1 } ;
      COLUMNCONTROLS { aCtrl_1 , (aCtrl_2) , aCtrl_3 , aCtrl_4 , aCtrl_5 , aCtrl_6 } ;        
      ROWSOURCE "TESTRED2" ;
      COLUMNFIELDS { 'F1', 'F2' ,  'F3' , 'F4' ,  'F5' , 'F6' } ;          
      ALLOWDELETE ;
      DYNAMICBACKCOLOR {BCOLOR,BCOLOR,BCOLOR,BCOLOR,BCOLOR,BCOLOR}           

   
END WINDOW

CENTER WINDOW Form_1

ACTIVATE WINDOW Form_1

RETURN