In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

::cText and ::oLabel:cText

Foro público de Xailer en español
Responder
franksoft
Mensajes: 42
Registrado: Lun Sep 05, 2011 6:45 pm

::cText and ::oLabel:cText

Mensaje por franksoft »

¿Puede alguien decirme por qué en este ejemplo
se actualiza ::cText y ::oLabel2:cText no?
Gracias Frank
METHOD FormShow( oSender ) CLASS Compatta
LOCAL nFile:=1,cFile:=""
LOCAL aFile:={"DatiMAGAZZI",;
"DatiANAGRA",;
"DatiRICMAT",;
"DatiMOVIME",;
"ORDINIRigOrd",;
"ORDINIElenOrd",;
"DipendDipend",;
"DipendDipPres",;
"DatiOperat",;
"DatiOperAbil",;
"PREVENElenPrev",;
"PREVENRigPrev",;
"CommesseElenComm",;
"CommesseRigComm",;
"DatiDene",;
"DdtRigheDdt",;
"DdtDdtDli",;
"DatiScadenze",;
"DatiCatMer",;
"DipendAttrezzi_DIP",;
"DipendDPI_DIP",;
"DipendStrume_DIP",;
"DipendDipend",;
"DipendFestivita",;
"DatiASPETTO",;
"DatiCAUSALE",;
"DatiCONSUMO",;
"DatiCORRIERI",;
"TracciatiDOT_ATT",;
"TracciatiDOT_DPI",;
"TracciatiDOT_STR",;
"CommesseNoleggi",;
"CommesseConform",;
"CommesseElenMat",;
"CommesseTabSchema",;
"CommesseElenNorme",;
"DatiNormeDef",;
"DatiFasiLav",;
"DatiAttrezzi",;
"DatiSostanze",;
"DatiRischi",;
"DatiRiskFasi",;
"DatiRiskAttre",;
"DatiRiskSosta",;
"DatiPosFasi",;
"DatiPosAttre",;
"DatiPosSosta",;
"DatiPosRischi",;
"DatiIva",;
"CommesseElenDip",;
"CommesseElenArti"}
WITH OBJECT ::oPROGRESSBAR1
:nMin := nFile
:nMax := Len(aFile)
FOR nFile := 1 to Len(aFile)
:nValue := nFile
cFile:=cPath+aFile[nFile]
USE &cFile
::oLabel2:cText := cFile
::cText:=cFile
PACK
CLOSE
NEXT
END WITH
MSGINFO("Archivi compattati con successo!"+CHR(13)+ALLTRIM(STR(nFile))+" File trattati","WinPrime")
::Close()
RETURN Nil
Arriba
Avatar de Usuario
XeviCOMAS
Mensajes: 593
Registrado: Sab Mar 12, 2011 8:16 pm

::cText and ::oLabel:cText

Mensaje por XeviCOMAS »

Un mensaje de Bingen...
ProgressBar y labels.
El error que le ocupa es el mismo que te puede estar pasando.
La solución, ya que creo que se trata de un bug en la clase TLabel, pasa por
utilizar un TEdit...
***
a mi tampoco me "refresca" un label (por mas que fuerze
ProcessMessages())... en un bucle repetitivo y que muestro una ProgressBar.
Lo que hago, es utilizar un TEdit con lBorder .F., lEnabled .F.,
nClrPaneDisabled clBtnFace, nClrTextDisabled clWindowText
Vaya, que utilizo un TEdit de Label... y la misma rutina SI QUE SE
REFRESCA!!!
No se en que actualización/revisión de Xailer dejó de funcionar, pero se que
hace ya un tiempo.
***
Un Saludo,
Xevi.
"Franco" ha escrit al missatge:510d139d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
¿Puede alguien decirme por qué en este ejemplo
se actualiza ::cText y ::oLabel2:cText no?
Gracias Frank
METHOD FormShow( oSender ) CLASS Compatta
LOCAL nFile:=1,cFile:=""
LOCAL aFile:={"DatiMAGAZZI",;
"DatiANAGRA",;
"DatiRICMAT",;
"DatiMOVIME",;
"ORDINIRigOrd",;
"ORDINIElenOrd",;
"DipendDipend",;
"DipendDipPres",;
"DatiOperat",;
"DatiOperAbil",;
"PREVENElenPrev",;
"PREVENRigPrev",;
"CommesseElenComm",;
"CommesseRigComm",;
"DatiDene",;
"DdtRigheDdt",;
"DdtDdtDli",;
"DatiScadenze",;
"DatiCatMer",;
"DipendAttrezzi_DIP",;
"DipendDPI_DIP",;
"DipendStrume_DIP",;
"DipendDipend",;
"DipendFestivita",;
"DatiASPETTO",;
"DatiCAUSALE",;
"DatiCONSUMO",;
"DatiCORRIERI",;
"TracciatiDOT_ATT",;
"TracciatiDOT_DPI",;
"TracciatiDOT_STR",;
"CommesseNoleggi",;
"CommesseConform",;
"CommesseElenMat",;
"CommesseTabSchema",;
"CommesseElenNorme",;
"DatiNormeDef",;
"DatiFasiLav",;
"DatiAttrezzi",;
"DatiSostanze",;
"DatiRischi",;
"DatiRiskFasi",;
"DatiRiskAttre",;
"DatiRiskSosta",;
"DatiPosFasi",;
"DatiPosAttre",;
"DatiPosSosta",;
"DatiPosRischi",;
"DatiIva",;
"CommesseElenDip",;
"CommesseElenArti"}
WITH OBJECT ::oPROGRESSBAR1
:nMin := nFile
:nMax := Len(aFile)
FOR nFile := 1 to Len(aFile)
:nValue := nFile
cFile:=cPath+aFile[nFile]
USE &cFile
::oLabel2:cText := cFile
::cText:=cFile
PACK
CLOSE
NEXT
END WITH
MSGINFO("Archivi compattati con
successo!"+CHR(13)+ALLTRIM(STR(nFile))+" File
trattati","WinPrime")
::Close()
RETURN Nil
Un Saludo,
Xevi.
Arriba
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

::cText and ::oLabel:cText

Mensaje por Moises Leon »

A mi me pasaba lo mismo con un ::oLaber hasta que utilice ::oLabel:ReDraw
despues demodificar su ::oLabel:cText
Espero que de algo sirva.
Saludo
Moises
"Franco" <fra[dot]61[at]libero[dot]it> escribió en el mensaje
news:510d139d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> ¿Puede alguien decirme por qué en este ejemplo
> se actualiza ::cText y ::oLabel2:cText no?
>
> Gracias Frank
>
> METHOD FormShow( oSender ) CLASS Compatta
> LOCAL nFile:=1,cFile:=""
> LOCAL aFile:={"DatiMAGAZZI",;
> "DatiANAGRA",;
> "DatiRICMAT",;
> "DatiMOVIME",;
> "ORDINIRigOrd",;
> "ORDINIElenOrd",;
> "DipendDipend",;
> "DipendDipPres",;
> "DatiOperat",;
> "DatiOperAbil",;
> "PREVENElenPrev",;
> "PREVENRigPrev",;
> "CommesseElenComm",;
> "CommesseRigComm",;
> "DatiDene",;
> "DdtRigheDdt",;
> "DdtDdtDli",;
> "DatiScadenze",;
> "DatiCatMer",;
> "DipendAttrezzi_DIP",;
> "DipendDPI_DIP",;
> "DipendStrume_DIP",;
> "DipendDipend",;
> "DipendFestivita",;
> "DatiASPETTO",;
> "DatiCAUSALE",;
> "DatiCONSUMO",;
> "DatiCORRIERI",;
> "TracciatiDOT_ATT",;
> "TracciatiDOT_DPI",;
> "TracciatiDOT_STR",;
> "CommesseNoleggi",;
> "CommesseConform",;
> "CommesseElenMat",;
> "CommesseTabSchema",;
> "CommesseElenNorme",;
> "DatiNormeDef",;
> "DatiFasiLav",;
> "DatiAttrezzi",;
> "DatiSostanze",;
> "DatiRischi",;
> "DatiRiskFasi",;
> "DatiRiskAttre",;
> "DatiRiskSosta",;
> "DatiPosFasi",;
> "DatiPosAttre",;
> "DatiPosSosta",;
> "DatiPosRischi",;
> "DatiIva",;
> "CommesseElenDip",;
> "CommesseElenArti"}
>
>
> WITH OBJECT ::oPROGRESSBAR1
> :nMin := nFile
> :nMax := Len(aFile)
> FOR nFile := 1 to Len(aFile)
> :nValue := nFile
> cFile:=cPath+aFile[nFile]
> USE &cFile
> ::oLabel2:cText := cFile
> ::cText:=cFile
> PACK
> CLOSE
> NEXT
>
>
>
>
> END WITH
>
> MSGINFO("Archivi compattati con
> successo!"+CHR(13)+ALLTRIM(STR(nFile))+" File
> trattati","WinPrime")
> ::Close()
> RETURN Nil
>
Arriba
franksoft
Mensajes: 42
Registrado: Lun Sep 05, 2011 6:45 pm

::cText and ::oLabel:cText

Mensaje por franksoft »

gracias por los consejos
Frank
Arriba
Responder

Volver a “Xailer Spanish”