FiveTech Software tech support forums

The easiest way is to add the dialog to an array when activating (use on init clause) and delete from the array when closing (use valid clause).

Other way is
aWnd := GetAllWin()
Check if each oWnd in aWnd is a valid object and if it is a dialog and add it to aDialog array

I came up with this: Function FW_FindWindow( cTitle,cClassName ) Local aWindows := GetAllWin() Local oRv := nil Local o := nil For Each o in aWindows If o:ClassName() == cClassName If o:cTitle == cTitle oRv := o Exit Endif Endif Next Return oRv If there is a better ...

Gracias... probaré esta solución o incluso la aprovecho para un caso en el que estava pensando. Al final, me he creado una función (de la mano de GetAllWin()) con la que controlo el cierre de la WINDOW principal la llamo así ACTIVATE WINDOW oWnd CENTERED VALID lCloseMainForm() ... static function ...

Xevi,

function GetAllWin() --> aWindows

Saludos
nWindows() Numero de Ventanas Abiertas
GetAllWin() te da un array con las ventanas abiertas

Tengo una duda , como genero una lista de los objetos que estan sin finalizar.

Gracias

...               (function  in ?)    WINDOW.PRG      594  1550 GENLOCALS()            (function  in ?)    WINDOW.PRG      596  1585  1590  1609 GETALLWIN()            (function  in WINDOW.PRG)    WINDOW.PRG      195! GETCLASSINFO()         (function  in ?)    WINDOW.PRG      945 GETCLASSLONG() ...

... para solicitar si alguien puede/quiere indicarme cómo poder mostrar un array multidimensional en xbrowse, por ejemplo el array que devuelve GetAllWin(), de la que incialmente no conoces el número de columnas. Gracias anticipadas Uso FWh 1.03 y Harbour 3.02

R,

Prueba xBrowse( GetAllWin() )

... una única ventana. Para el método End() de la Clase TView solo tendriamos que hacer: [ view release ]; y removerla de nuestro array devuelto por GetAllWin(). Creo que con eso es suficiente :-)

Dear Mr.Dutch,

Did you try the function GetAllWin(). This function returns an array of all windows/dialogs objects opened in your app. You can process this array to close the required dialogs/windows.

Regards

Anser

... muchas tildes que faltaban. Parece que había mucha copia directa sin corregir, desde los chm de FiveWin. Ahora ya está bien. GetActiveWindow() GetAllWin() GetASyncKey() Getbkcolor() GetCapture() GetCaretPos() GetClassName() GetClientRect() GetClpData() GetCommError() GetCoors() Getcpu() GetCpuSpeed() ...

Voy a revisarlo, muchas gracias.

El código fuente de GetAllWin() está en source\classes\window.prg

Puedes leer la documentación de GetAllWin() en el wiki de FiveWin:
http://wiki.fivetechsoft.com/doku.php?id=fivewin_funcion_getallwin

... que veas que el fallo está en la funcion READVAR (), la he encontrado en VALBLANK.PRG y se produce en la siguiente línea : local nWnd := AScan( GetAllWin(),; { | oWnd | oWnd:lFocused .and. oWnd:ClassName() == "TGET" } ) Cuando evalúa oWnd:lFocused de la lista de GetAllWin, en algunos ...

Puedes proporcionar un PRG de ejemplo en el que se pueda comprobar lo que comentas ? gracias