| 4D v15.4WINDOW LIST | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D v15.4
 WINDOW LIST 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WINDOW LIST ( janelas {; *} ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| janelas | Array |   | Array de números de referência de janelas | |||||
| * | Operador |   | Se especificado, considere janela flutuante, se omitido, ignore janela flutuante | |||||
O comando WINDOW LIST preenche o array janelas com os números de referência das janelas abertas atualmente em todos os processos (processos kernel ou usuário).
Se não passar o parâmetro opcional *, as janelas flutuantes são ignoradas.
O método de projeto abaixo coloca em mosaico todas as janelas abertas atualmente, exceto as janelas suspensas e as caixas de diálogo:
  ` Método de projeto TILE WINDOWS
 
 WINDOW LIST($alWnd)
 $vlLeft:=10
 $vlTop:=80 ` Deixar espaço para a barra de ferramentas
 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 pode ser melhorado adicionando testes do tamanho da janela principal (em Windows) ou do tamanho e localização das telas (em Macintosh).
 Adicionar um comentário
Adicionar um comentário