Compa帽eros buenas tardes
alguien ha desarrollado un control o ha resuelto de alguna forma que se vaya mostrando un texto como hacen los instaladores de los programas en windows, no se si me explico se van mostrando texto y se va haciendo scroll automatico
Si alguien lo ha hecho muchas gracias si comparte codigo
saludos cordiales
Wilson
#include "FiveWin.ch"
Static oDlg, nContador
//------------------------------------------------------------------------//
FUNCTION LogDebug( xValor )
Local oGet, cVar := "", nAscan
If (nAscan := AScan( GetAllWin(), {|o| o:ClassName() == "TDIALOG" .and. o:Cargo = "LogDebug" } )) = 0
nContador := 0 //Solo crear la ventana 1 unica vez
DEFINE DIALOG oDlg FROM 0,0 TO 600, 280 ;
TITLE "LogDebugFW" PIXEL
@ 0,0 GET oGet VAR cVar MEMO SIZE 140, 300 PIXEL OF oDlg
oDlg:Cargo := "LogDebug"
ACTIVATE DIALOG oDlg NOWAIT
EndIf
//Convertir xValor en tipo caracter para poder mostrar
if xValor = Nil //Nul
xValor := "Nil"
elseif ValType(xValor) = "N" //Numero
xValor := LTrim(Str(xValor))
elseif ValType(xValor) = "D" //Data
xValor := DToC(xValor)
elseif ValType(xValor) = "L" //Logic
xValor := If( xValor, ".T.", ".F." )
elseif ValType(xValor) = "A" //Array... Habria que mostrar los valores del array, pero de momento me vale
xValor := "{...}"
elseif ValType(xValor) = "O" //Object
xValor := xValor:ClassName()
endif
//A帽ado en la ventana FWDebug una linea m谩s mostrando TODAS las anteriores + xValor
WITH OBJECT oDlg:aControls[1]
:VarPut( :VarGet() + CRLF + "#"+ AllTrim(Str(++nContador)) +" "+ xValor )
:Refresh()
:GoBottom()
END
RETURN NilXevi muchas gracias por el c贸digo se le ve interesante
ya lo reviso
saludos cordiales
Wilson