Na rotina abaixo, como poderia colocar o foco no primeiro item da coluna que recebeu o click? Não estou conseguindo com a propriedade ONHEADCLICK.
#include "minigui.ch"
Function Main
Local lInit:= .F.
private aRows [10] [2]
aRows [1] := {'Simpson' , 'Homer' }
aRows [2] := {'Mulder' , 'Fox' }
aRows [3] := {'Smart' , 'Max' }
aRows [4] := {'Grillo' , 'Pepe' }
aRows [5] := {'Kirk' , 'James' }
aRows [6] := {'Barriga' , 'Carlos' }
aRows [7] := {'Flanders' , 'Ned' }
aRows [8] := {'Smith' , 'John' }
aRows [9] := {'Pedemonti' , 'Flavio' }
aRows [10] := {'Gomez' , 'Juan' }
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 568 ;
HEIGHT 430 ;
TITLE 'Grid Ordem' ;
MAIN ;
FONT 'Arial' ;
SIZE 9 ;
ON INIT FillGrid()
DEFINE GRID Grid_1
ROW 10
COL 10
WIDTH 420
HEIGHT 330
HEADERS { 'Sobrenome' , 'Nome' }
WIDTHS { 80, 180 }
CELLNAVIGATION .T.
ALLOWSORT .T.
ONGOTFOCUS iif( lInit, ,( HMG_SortColumn( 1 ), lInit := .T. ) )
Value 1
END GRID
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return(Nil)
/*********************************************************/
Function FillGrid()
/*********************************************************/
Local i
For i := 1 To Len( aRows )
Form_1.Grid_1.AddItem ( aRows [ i ] )
Next
Return(Nil)