Lentitud TProgressDlg

[Francisco Sanchez]

Este codigo hace que desde que se declara el run del tprogressdlg, hasta que
lo pinta, pasan por lo menos 3 o 4 segundos???? que estoy haciendo mal?
nLen := Len( ::aOpcModulos )
nIncremento := 100/nLen
nPorc := 0
LOGDEBUG( "EMPIEZA PROGRESS" )
WITH OBJECT oProgress := TprogressDlg():Create()
:cTitle := "ST Office"
:ctext := "Espere un momento"
:cMessage := "Cargando Módulos ST Office"
:lNoCancel := .T.
:lNoMinimize := .T.
:lAutoTime := .T.
:nCommonAVI := aviXPDOWNLOADFILE
:nMax := 100
:nValue := 0
:Run()
END WITH
LOGDEBUG( "FINALIZA DECLARACION DE PROGRESS" )
FOR n := 1 TO nLen
oProgress:nValue := nPorc
oForm:oTreeview2:oImageList:Add( ::aOpcModulos[n,4] )
WITH OBJECT oForm:oTreeview2:AddItem( Padr( Trad_id(
::aOpcModulos[n,2], NIDIOMA ), 20 ) + "-" + ;
Trad_id( ::aOpcModulos[n,3], NIDIOMA ), n )
:lChecked := .T.
END WITH
nPorc := nPorc + nIncremento
NEXT
Un saludo

[Francisco Sanchez]

el array que recorre el for next es de 13 elementos, y el progress empieza
verse a partir del elemento 6 antes no???? no tendria que ser inmediato ?
Un saludo
"FRANCISCO SANCHEZ" <francisco@softwaretotal.biz> escribió en el mensaje
news:[email=44a7ef32@news.xailer.com...]44a7ef32@news.xailer.com...[/email]
> Este codigo hace que desde que se declara el run del tprogressdlg, hasta
> que lo pinta, pasan por lo menos 3 o 4 segundos???? que estoy haciendo
> mal?
>
> nLen := Len( ::aOpcModulos )
> nIncremento := 100/nLen
> nPorc := 0
> LOGDEBUG( "EMPIEZA PROGRESS" )
> WITH OBJECT oProgress := TprogressDlg():Create()
> :cTitle := "ST Office"
> :ctext := "Espere un momento"
> :cMessage := "Cargando Módulos ST Office"
> :lNoCancel := .T.
> :lNoMinimize := .T.
> :lAutoTime := .T.
> :nCommonAVI := aviXPDOWNLOADFILE
> :nMax := 100
> :nValue := 0
> :Run()
> END WITH
> LOGDEBUG( "FINALIZA DECLARACION DE PROGRESS" )
>
> FOR n := 1 TO nLen
> oProgress:nValue := nPorc
> oForm:oTreeview2:oImageList:Add( ::aOpcModulos[n,4] )
> WITH OBJECT oForm:oTreeview2:AddItem( Padr( Trad_id(
> ::aOpcModulos[n,2], NIDIOMA ), 20 ) + "-" + ;
> Trad_id( ::aOpcModulos[n,3], NIDIOMA ), n )
> :lChecked := .T.
> END WITH
> nPorc := nPorc + nIncremento
> NEXT
>
> Un saludo
>

[jlalin]

Francisco,
como le acabo de decir a Timm en el otro foro es el comportamiento
estándar de Windows.
"There is a default two second delay before the dialog appears. This is
the default behavior."
En cristiano: "Hay un retardo por defecto de 2 segundos antes que
aparezca el diálogo. Es el comportamiento por defecto."
Saludos,
José Lalí­n