Foco no item da coluna clicada ?

[Softwhouse]

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.

Código: Selecionar todos

#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)

[Claudio Soto]

Sería algo así:

ONHEADCLICK { {|| This.Value := { 1, this.CellColFocused } }, {|| This.Value := { 1, this.CellColFocused } } }

[Softwhouse]

Olá,

Apresentou erro de compilação, Minigui Extended.

[Claudio Soto]

Sería algo así:

ONHEADCLICK { {|| This.Value := { 1, this.CellColFocused } }, {|| This.Value := { 1, this.CellColFocused } } }

Este código es para HMG oficial

[Softwhouse]

Ok, muito obrigado.