Antonio
How can I dynamically update the PROMPT ( text ) on the button .. this code changes the color .. based on a static function that tests for an eof on a recorset .. is there a setprompt() method ??
Rick Lipkin
// seperate function
IF EMPTY(oBtn5)
ELSE
DO CASE
CASE lISCHARTER = .T. // found a charter document
cCHPROMPT := "This Projects CHARTER [read me]"+space(10)
OTHERWISE
cCHPROMPT := "This Projects CHARTER [not found]"+space(8)
ENDCASE
DO CASE
CASE lISCHARTER = .T. // found a charter document
oBtn5:SetColor( "G/W" )
oBTN5:ReFresh()
SysReFresh()
OTHERWISE
oBtn5:SetColor( "R+/W" )
oBtn5:ReFresh()
SysReFresh()
ENDCASE
ENDIF
SysReFresh()
