btnbmp cambiar prompt en tiempo de ejecucion

[QAZWSX2K]

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

[FranciscoA]

Hola. Algo asi?

Code: Select all | Expand

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

 

Saludos.

[FranciscoA]

Otro ejemplo:

Code: Select all | Expand

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

 

[FranciscoA]

Otra opcion. Espero te sirva alguna.

Code: Select all | Expand

//------------------------------//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
 

Saludos.

[nageswaragunupudi]

If your FWH version is not very old, you can use codeblock as prompt of BtnBmp

Code: Select all | Expand

@ r, c  BTMBMP PROMPT { || cPrompt } ...... UPDATE
 

At runtime you can change the value of cPrompt

Code: Select all | Expand

cPropt := "NEW" 
oDlg:Update()
 

This changes the prompt of the btnbmp

[QAZWSX2K]

con boton:settext() funciono perfecto, gracias a todos