topic-26482

J. Ernesto

Posts: 162

Joined: Tue Feb 03, 2009 10:08 PM

Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 02:57 PM

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

Gracias

J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 03:36 PM

Hola,

Prueba con oChk:SetText(cText)

Ejemplo:

Code (fw): Select all Collapse

#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-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

J. Ernesto

Posts: 162

Joined: Tue Feb 03, 2009 10:08 PM

Re: Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 04:39 PM

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

J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com

Pedro

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Re: Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 07:05 PM

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

J. Ernesto

Posts: 162

Joined: Tue Feb 03, 2009 10:08 PM

Re: Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 08:05 PM

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.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Cambiar titulo en un checkbox
Posted: Wed Jun 05, 2013 08:32 PM

Code (fw): Select all Collapse

#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 - Phone: +55(11)95150-7341

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambiar titulo en un checkbox
Posted: Thu Jun 06, 2013 01:58 AM

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.

Fwxh-MySql-TMySql

J. Ernesto

Posts: 162

Joined: Tue Feb 03, 2009 10:08 PM

Re: Cambiar titulo en un checkbox (Solucionado)
Posted: Thu Jun 06, 2013 03:15 PM

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

J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com

FiveTech Support Forums

Continue the discussion