Cambiar titulo en un checkbox

[J. Ernesto]

Eso amigos del foro, necesito en tiempo de ejecución modificar el titulo del checkbox cuando este cambia, como lo hago?

Gracias

[Cgallegoa]

Hola,

Prueba con oChk:SetText(cText)

Ejemplo:

Code: Select all  Expand view

#include "FiveWin.ch"

Function Inicio()
LOCAL oDlg, oChk, lVar:= .T.
DEFINE DIALOG oDlg FROM 0,0 TO 200,400 PIXEL
   @ 10,10 BUTTON "Probar cambio título checkbox" OF oDlg PIXEL ACTION CambiaTituloChk(oChk)
   @ 40,20 CHECKBOX oChk VAR lVar PROMPT "Título cambiante" OF oDlg PIXEL
ACTIVATE DIALOG oDlg CENTERED
Return(NIL)

Function CambiaTituloChk(oChk)
LOCAL cTitulo:="", i:=1
for i:=1 TO 10
    cTitulo := "Nuevo título  "+StrZero(i,3)
    oChk:SetText( cTitulo )
    oChk:Refresh()
    SysWait(0.5)
next
Return(NIL)

[J. Ernesto]

me genera el siguiente mensaje de error:

Error description: Error BASE/1004 Message not found: LOGICAL:SETTEXT
Args:
[ 1] = L .T.

y estoy haciéndolo de la siguiente forma: lCostos:SetText ( "Con Costos Calculados" )

[Pedro]

Ernesto en la línea de tu programa, donde tienes el checkbox ¿la tienes como lCostos? "Define Checkbox lCostos......."

Lo que el amigo Gallegoa te está indicando es que si tienes :
DEFINE ó REDEFINE CHECKBOX oChk VAR lcostos PROMPT "Título cambiante" OF oDlg PIXEL
es oChk lo que debes poner con el settext, no lCostos.

[J. Ernesto]

Pedro:

lo tengo de la forma siguiente:

@ 091, 194 CHECKBOX lCostos PROMPT "Resumen por Material" SIZE 100, 10 FONT oFont10 PIXEL OF oDlg10 COLOR nRGB ( 240, 240, 008 ), nRGB ( 008, 008, 240 )

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

Function Inicio()

   LOCAL oDlg, oChk, lVar:= .T., lCostos

   DEFINE DIALOG oDlg FROM 0,0 TO 200,400 PIXEL

   // ASI
   @ 10,10 BUTTON "Probar cambio título checkbox" OF oDlg PIXEL ACTION CambiaTituloChk(oChk)

   //@ 091, 194 CHECKBOX lCostos PROMPT "Resumen por Material" SIZE 100, 10 FONT oFont10 PIXEL OF oDlg10 COLOR nRGB ( 240, 240, 008 ), nRGB ( 008, 008, 240 )

   // Ó CON ON CHANGE
   @ 40,20 CHECKBOX oChk VAR lCostos PROMPT "Resumen por Material" OF oDlg PIXEL ;
           ON CHANGE ( CambiaTituloChk( oChk ) )


   ACTIVATE DIALOG oDlg CENTERED

Return(NIL)

Function CambiaTituloChk(oChk)

   LOCAL cTitulo:="", i:=1

   for i:=1 TO 10
    cTitulo := "Nuevo título  "+StrZero(i,3)
    oChk:SetText( cTitulo )
    oChk:Refresh()
    SysWait(0.5)
   next

Return(NIL)


[FranciscoA]

Ernesto.
Como te han mostrado los demas colegas con sus ejemplos, tienes que crear el objeto:
@ 091, 194 CHECKBOX oCbx Var lCostos PROMPT "Resumen por Material"...
Saludos.

[J. Ernesto]

Gracias por la ayuda, se me había olvidado crear el objeto.

@ 103, 194 CHECKBOX olCostos VAR lCostos PROMPT "con Costos Calculados" SIZE 100, 10 FONT oFont10 PIXEL OF oDlg10 COLOR nRGB ( 240, 240, 008 ), nRGB ( 008, 008, 240 ) ;
ON CHANGE ( sTitulo := IIF ( lCostos, "sin Costos Calculados" , "con Precios Calculados" ),;
olCostos:SetText ( sTitulo ) ,;
olCostos:Refresh () )[/color]

Gracias y Saludos