ON HEADCLICK

[Daiane]

Alguem poderia me dizer qual a estrutura do ON HEADCLICK ?
estou tentando fazer um teste,mas da sempre erro no {

segue o codigo para melhor entendimento

Código: Selecionar todos

REDEFINE XBROWSE ::xBrw2 ID 4003 OF ::oDlg CELL LINES;
  FIELDS 39->DIRETORIO, IF(39->SN == "S", .T., .F.), 39->EMPRESA, 39->CGC; 
  HEADERS "Pasta", "S/N", "Empresa", "C.N.P.J.";
  ON DBLCLICK ::c4change() ;
  ON HEADCLICK msginfo("oi")

[Euclides]

Daiane,
ON HEADCLICK não está definido no "xbrowse.ch" por isso o erro.
T+
Euclides

[Daiane]

E não teria uma forma de poder clicar no cabeçalho e ter algum retorno?

[Kapiaba]

Na classe do xBrowse.prg:

Código: Selecionar todos

   DATA bLClickHeader,; // codeblock to be evaluated when left clicking on the header
        bRClickHeader,; // codeblock to be evaluated when right clicking on the header
        bLClickFooter,; // codeblock to be evaluated when left clicking on the footer
        bRClickFooter,; // codeblock to be evaluated when right clicking on the footer
        bLDClickData,;  // codeblock to be evaluated when left double clicking on the data
        bRClickData     // codeblock to be evaluated when right clicking on the data

Abs

[Daiane]

É eu ja tinha visto o "bLClickHeader"
Alguem sabe me dizer a estrutura dele?

[Euclides]

Daiane,
É mais ou menos isso:

Código: Selecionar todos

FOR N:=1 TO LEN(oBrw:aCols)
oBrw:aCols[n]:bLClickHeader := {|nRow, nCol, nFlags, oObj| msginfo(oObj:cHeader) }
NEXT

oBrw é o objeto xBrowse
nRow e nCol, são autoexplicativos
oObj é o objeto da Coluna
nFlags - não sei como usar...
Qualquer coisa... avise.
Euclides