FiveTech Support Forums

#include "Fivewin.ch"
#include "Tcbrowse.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw, cVar

    LOCAL bValid := { || MsgInfo(), .T. }

    USE C:\XHARBOUR\TEST

    cVar = FIELD -> first

    DEFINE DIALOG oDlg SIZE 300, 300

    @ 0, 0 BROWSE oBrw;
           ON RIGHT CLICK oBrw:lEditCol( 1, @cVar, , bValid )

    ADD COLUMN TO oBrw;
               DATA TEST -> first;
               HEADER "FIRST"

    @ 6, 0 BUTTON "Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL