Xailer & OZ Software

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

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
>

gracias por los consejos
Frank