FiveTech Software tech support forums

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()

Try

Code: Select all  Expand view

oBtn:cCaption = "New caption"

EMG

Enrico

Thanks .. oBtn:cCaption worked perfectically !!

Rick Lipkin