PC Toledo

Código: Selecionar todos

FUNCTION gui_Browse( xDlg, xControl, nRow, nCol, nWidth, nHeight, oTbrowse, ;
   cField, xValue, workarea, aKeyCodeList, aDlgKeyCodeList )

   LOCAL aItem

   @ nRow, nCol XBROWSE xControl ;
      DATASOURCE workarea ;
      SIZE nWidth, nHeight PIXEL ;
      OF xDlg ;
      LINES CELL

   FOR EACH aItem IN oTbrowse
      ADD COLUMN oCol TO XBROWSE xControl SHOWBLOCK aItem[2] HEADER aItem[1]
      //AAdd( aWidthList, ( 1 + Max( Len( aItem[3] ), ;
      //   Len( Transform( ( workarea )->( FieldGet( FieldNum( aItem[ 1 ] ) ) ), "" ) ) ) ) * 13 )
   NEXT