| 4D v15.4WINDOW LIST | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D v15.4
 WINDOW LIST 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WINDOW LIST ( ventanas {; *} ) | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| ventanas | Array |   | Array de los números de referencia de las ventanas | |||||
| * | Operador |   | Si se especifica, tiene en cuenta las ventanas flotantes Si se omite, ignora las ventanas flotantes | |||||
El comando WINDOW LIST llena el array ventanas con los números de referencia de las ventanas abiertas actualmente en todos los procesos (procesos kernel o usuario).
Si no pasa el parámetro opcional *, se ignoran las ventanas flotantes.
El siguiente método de proyecto coloca en mosaico todas las ventanas abiertas actualmente, excepto las ventanas flotantes y las cajas de diálogo:
  ` Método de proyecto TILE WINDOWS
 
 WINDOW LIST($alWnd)
 $vlLeft:=10
 $vlTop:=80 ` Dejar espacio para la barra de herramientas
 For($vlWnd;1;Size of array($alWnd))
    If(Window kind($alWnd{$vlWnd})#Modal dialog)
       GET WINDOW RECT($vlWL;$vlWT;$vlWR;$vlWB;$alWnd{$vlWnd})
       $vlWR:=$vlLeft+($vlWR-$vlWL)
       $vlWB:=$vlTop+($vlWB-$vlWT)
       $vlWL:=$vlLeft
       $vlWT:=$vlTop
       SET WINDOW RECT($vlWL;$vlWT;$vlWR;$vlWB;$alWnd{$vlWnd})
       $vlLeft:=$vlLeft+10
       $vlTop:=$vlTop+25
    End if
 End forNota: este método puede mejorarse añadiendo pruebas del tamaño de la ventana principal (en Windows) o del tamaño y ubicación de las pantallas (en Macintosh).
 Añadir un comentario
Añadir un comentario