saludos,uso btnbmp y necesito cambiar el prompt del boton en tiempo ejecucion, no he encontrado la forma de hacerlo, si alguien sabe le agradezco mucho, gracias
WITH OBJECT oBrw2
:bChange := {|| oBt1:SetText("Tomar foto a " +CRLF+ alltrim(oBrw2:Nombre:Value),oBt1:Refresh()) }
END
@300,776 BTNBMP oBt1 PROMPT "Tomar Foto a" SIZE 145,50 PIXEL OF oDlg ;
FLAT RIGHT FILENAME "TuImage.png" FONT oFont ;
NOBORDER COLOR RGB(0,0,250),RGB(135,206,235) ; //2007 ;
ACTION ( TuAction() )local nVar := 1
REDEFINE RADIO oRadio VAR nVar ID 101,102,103 OF oDlg ;
ON CHANGE Refresque(@xBuscar,oBuscar,nVar,oCbx,oInfOpc,oBmpInf,@cBmpInf,oBt1,oBmpOpc)
REDEFINE BUTTONBMP oBt1 PROMPT "&Buscar " ID 301 OF oDlg BITMAP "FIND" TEXTRIGHT ;
ACTION Acciones( xBuscar,cSubDir,aFields,cVar,aDBFs,oBuscar, nVar,oCbx, oDlg )
//------------------------
Function Refresque(xBuscar,oBuscar,nVar,oCbx,oInfOpc,oBmpInf,cBmpInf,oBt1,oBmpOpc)
if nVar=1
xBuscar:=space(20)
oInfOpc:SetText("Devuelve informacion sobre tablas y registros que contengan la cadena introducida.")
oBmpInf:SetBmp("String")
oBt1:SetText("Buscar Cadena ")
oBt1:LoadBitMap("String")
oBmpOpc:SetBmp("Texto")
elseif nVar=2
xBuscar:=0.0000
oInfOpc:SetText("Devuelve informacion sobre tablas y registros que contengan el valor numerico introducido.")
oBmpInf:SetBmp("numero")
oBt1:SetText("Buscar Valor ")
oBt1:LoadBitMap("Numero")
oBmpOpc:SetBmp("Calculator")
elseif nVar=3
xBuscar:=date()
oInfOpc:SetText("Devuelve informacion sobre tablas y registros que contengan la fecha introducida.")
oBmpInf:SetBmp("Fecha")
oBt1:SetText("Buscar Fecha ")
oBt1:LoadBitMap("Fecha")
oBmpOpc:SetBmp("Calendar")
endif
oBuscar:SetFocus()
oBuscar:Refresh()
oInfOpc:Refresh()
oBmpInf:Refresh()
oBmpOpc:Refresh()
Return nil//------------------------------//Cambiar texto a boton al darle click
Function CambTxtBtn()
local oDlg, oBtn, bOpc, nOp := 1, cTxt := "Opcion Numero 1"
bOpc := {|| if( nOp = 2, (oBtn:SetText("Opcion Numero 1"),nOp := 1), (oBtn:SetText("Opcion DOS"),nOp := 2) ), oBtn:Refresh() }
DEFINE DIALOG oDlg SIZE 300,200 PIXEL TITLE "Prueba"
@60,10 BTNBMP oBtn PROMPT cTxt SIZE 60,14 PIXEL OF oDlg CENTER ;
ACTION ( MsgInfo("Ejecutando "+oBtn:cCaption), Eval(bOpc) )
@60,80 BUTTON "Salir" SIZE 60,14 PIXEL OF oDlg ;
ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
@ r, c BTMBMP PROMPT { || cPrompt } ...... UPDATEcPropt := "NEW"
oDlg:Update()con boton:settext() funciono perfecto, gracias a todos