Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 22 de junho de 2012

DELPHI - Listando tamanho das áreas de trabalho - TScreen

Reações: 


// ATLabs 22-06-2012

procedure TForm1.FormCreate(Sender: TObject);
begin

  Label1.Caption := // Largura do monitor principal
                    ' Screen.Width: ' + IntToStr(Screen.Width)+ #13#10 +
                    //------------------------------------

                    // Largura Total de monitores, monitor[0].width + monitor[1].width), depende do posicionamento dos monitores (Top - Left - Bottom - Right)
                    ' Screen.DesktopWidth: ' + IntToStr(Screen.DesktopWidth)+ #13#10 +
                    //--------------------------------------------------------------

                    // Largura do monitor principal menos a largura da barra de iniciar (se estiver na vertical)
                    ' Screen.WorkAreaWidth: ' + IntToStr(Screen.WorkAreaWidth)+ #13#10 +
                    //------------------------------------------------------------------

                    // Largura do monitor 0
                    ' Screen.Monitors[0].Width: ' + IntToStr(Screen.Monitors[0].Width)+ #13#10 +
                    //---------------------

                    // Largura do monitor 1// Somente se tiver + de um monitor (este seria o segundo monitor)
                    ' Screen.Monitors[1].Width: ' + IntToStr(Screen.Monitors[1].Width)+ #13#10 +
                    //---------------------

                    // Altura do monitor principal
                    ' Screen.Height: ' + IntToStr(Screen.Height)+ #13#10 +
                    //----------------------------

                    // Maior Largura Total dos monitores, depende do posicionamento dos monitores  (Top - Left - Bottom - Right)
                    ' Screen.DesktopHeight: ' + IntToStr(Screen.DesktopHeight)+ #13#10 +
                    //------------------------------------------------------------------

                    // Altura do monitor principal menos a largura da barra de iniciar (se estiver na horizontal)
                    ' Screen.WorkAreaHeight: ' + IntToStr(Screen.WorkAreaHeight)+ #13#10 +
                    //--------------------------------------------------------------------


                    // Altura do monitor 0
                    ' Screen.Monitors[0].Height: ' + IntToStr(Screen.Monitors[0].Height)+ #13#10 +
                    //--------------------

                    // Altura do monitor 1 // Somente se tiver + de um monitor (este seria o segundo monitor)
                    ' Screen.Monitors[1].Height: ' + IntToStr(Screen.Monitors[1].Height);
                    //--------------------
end;

//Aconselho o teste dentro de uma Virtual Machine (VMWarePlayer) para conseguir simular casos de area de trabalho e multiplos monitores.


Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer