06 Fev 2015 09:12
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")
07 Fev 2015 08:03
09 Fev 2015 09:46
09 Fev 2015 13:45
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
09 Fev 2015 17:53
10 Fev 2015 12:38
FOR N:=1 TO LEN(oBrw:aCols)
oBrw:aCols[n]:bLClickHeader := {|nRow, nCol, nFlags, oObj| msginfo(oObj:cHeader) }
NEXT