Cambiar titulo en un checkbox

Post Reply
User avatar
J. Ernesto
Posts: 140
Joined: Tue Feb 03, 2009 10:08 pm
Location: Bogotá D.C. Colombia
Contact:

Cambiar titulo en un checkbox

Post by 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
Posts: 335
Joined: Sun Oct 16, 2005 3:32 am
Location: Quito - Ecuador
Contact:

Re: Cambiar titulo en un checkbox

Post by Cgallegoa »

Hola,

Prueba con oChk:SetText(cText)

Ejemplo:

Code: Select all

#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)
Saludos,

Carlos Gallego

*** FWH-20.07, xHarbour 1.2.3 Build 20190603, Borland C++7.30, PellesC ***
User avatar
J. Ernesto
Posts: 140
Joined: Tue Feb 03, 2009 10:08 pm
Location: Bogotá D.C. Colombia
Contact:

Re: Cambiar titulo en un checkbox

Post by 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 _" )
J. Ernesto Pinto Q.
Fivewin 1905 + BCC++ 700 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
User avatar
Pedro
Posts: 457
Joined: Tue Mar 21, 2006 7:30 pm
Location: Córdoba (España)

Re: Cambiar titulo en un checkbox

Post by 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.
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
User avatar
J. Ernesto
Posts: 140
Joined: Tue Feb 03, 2009 10:08 pm
Location: Bogotá D.C. Colombia
Contact:

Re: Cambiar titulo en un checkbox

Post by 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 )
J. Ernesto Pinto Q.
Fivewin 1905 + BCC++ 700 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Cambiar titulo en un checkbox

Post by karinha »

Code: Select all

#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)
João Santos - São Paulo - Brasil
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Cambiar titulo en un checkbox

Post by 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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
J. Ernesto
Posts: 140
Joined: Tue Feb 03, 2009 10:08 pm
Location: Bogotá D.C. Colombia
Contact:

Re: Cambiar titulo en un checkbox (Solucionado)

Post by J. Ernesto »

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

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

Gracias y Saludos
J. Ernesto Pinto Q.
Fivewin 1905 + BCC++ 700 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
Post Reply