PC Toledo

Código: Selecionar todos

#include "frm_class.ch"
#include "fivewin.ch"
#include "colors.ch"

FUNCTION fwBrowseADO( cnSQL, oTBrowse )

   LOCAL xDlg, xControl, aItem, oCol

   DEFINE DIALOG xDlg FROM 0, 0 TO 700, 1024 PIXEL ;
      TITLE "browse" COLOR COLOR_LIGHTGRAY

   @ 40, 10 XBROWSE xControl ;
      ARRAY Array(10) ;
      SIZE 900, 600 PIXEL ;
      OF xDlg ;
      ON DBLCLICK ( (nRow), (nCol), (nFlags), FWBrowseENTER( xControl, cnSQL ) )

   WITH OBJECT xControl
      :xUserData := cnSQL
      :xUserValue := xControl:xUserData:RecordCount()
      :nArrayAt := 1
      FOR EACH aItem IN oTBrowse
         ADD oCol TO xControl ;
            DATA aItem[ 2 ] ;
            HEADER aItem[ 1 ]
      NEXT
      :bOnSkip := { || xControl:xUserData:Move( xControl:nArrayAt - 1, 1 ) }
      :SetArray( Array( xControl:xUserData:RecordCount() ) )
      :bClrStd := { || { CLR_BLACK, iif( Mod( xControl:xUserData:AbsolutePosition, 2 ) == 0, CLR_WHITE, RGB(179,207,231) ) } }
   ENDWITH

   ACTIVATE DIALOG xDlg CENTERED

   (oCol)

   RETURN Nil

FUNCTION FWBrowseEnter( xControl, cnSQL )

   (xControl); (cnSQL)

   RETURN Nil