HMGforum.com

Code: Select all

  private cControlToSetFocus := "TextSEARCH5"

Code: Select all

  cControlToSetFocus := "TextSEARCH5"

Code: Select all

  if !empty(cControlToSetFocus)
     DoMethod ("Frmbrwcrs5", "TextSEARCH5", "SetFocus")
     //clear this variable to allow BROWSE to get focus 
     cControlToSetFocus := ""
  endif

Code: Select all

#include "hmg.ch"

Function Main

	Local aRows [20] [3]
	local i
	local aDBF := {	{"LastName", "C", 20, 0},;
					{"FirstName", "C", 20, 0},;
					{"Phone", "C", 20, 0} }
	
	private cSearchControl := ""
	
	aRows [1]	:= {'Simpson','Homer','555-5555'}
	aRows [2]	:= {'Mulder','Fox','324-6432'} 
	aRows [3]	:= {'Smart','Max','432-5892'} 
	aRows [4]	:= {'Grillo','Pepe','894-2332'} 
	aRows [5]	:= {'Kirk','James','346-9873'} 
	aRows [6]	:= {'Barriga','Carlos','394-9654'} 
	aRows [7]	:= {'Flanders','Ned','435-3211'} 
	aRows [8]	:= {'Smith','John','123-1234'} 
	aRows [9]	:= {'Pedemonti','Flavio','000-0000'} 
	aRows [10]	:= {'Gomez','Juan','583-4832'} 
	aRows [11]	:= {'Fernandez','Raul','321-4332'} 
	aRows [12]	:= {'Borges','Javier','326-9430'} 
	aRows [13]	:= {'Alvarez','Alberto','543-7898'} 
	aRows [14]	:= {'Gonzalez','Ambo','437-8473'} 
	aRows [15]	:= {'Batistuta','Gol','485-2843'} 
	aRows [16]	:= {'Vinazzi','Amigo','394-5983'} 
	aRows [17]	:= {'Pedemonti','Flavio','534-7984'} 
	aRows [18]	:= {'Samarbide','Armando','854-7873'} 
	aRows [19]	:= {'Pradon','Alejandra','???-????'} 
	aRows [20]	:= {'Reyes','Monica','432-5836'} 
	
	
	// prepare database
	
	DbCreate("test", aDBF)
	use test new
	index on lastname to test1
	index on firstname to test2
	index on phone to test3
	close indexes
	set index  to test1,test2,test3
	for i:=1 to len(aRows)
		append blank
		replace;
			LastName	with aRows[i,1],;
			FirstName	with aRows[i,2],;
			Phone	with aRows[i,3]
	next i
	

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 550 ;
		TITLE 'OnHeadClick Test' ;
		MAIN 


		DEFINE BROWSE BR1
			ROW 10
			COL 10
			WIDTH 760
			HEIGHT 400
			HEADERS {'Last Name','First Name','Phone'}
			FIELDS  {'LastName','FirstName','Phone'}
			WIDTHS {140,140,140}
			WORKAREA test
			ONHEADCLICK {{|| BR1_OnHeadClick(1)},;
							{|| BR1_OnHeadClick(2)},;
							{|| BR1_OnHeadClick(3)} }
			ONGOTFOCUS BR1_OnGotFocus()
		END BROWSE
		
		DEFINE TEXTBOX T_Search
			ROW 430
			COL 10
			ONENTER BR1_Search()
		END TEXTBOX
		
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return
*------------------
function BR1_OnHeadClick
	param nOrder
	
	cSearchControl := "T_Search"
	
	test->(DBSetOrder(nOrder))
	Form_1.BR1.Refresh
return
*-----------------
function BR1_OnGotFocus
	if !empty(cSearchControl)
		DoMethod("Form_1",cSearchControl, "SetFocus")
		cSearchControl := ""
	endif
return
*-----------------
function BR1_Search

	test->(DBSeek(This.Value))
	Form_1.BR1.Value := test->(RecNo())
	//Form_1.BR1.Refresh
return