Analitcs

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

segunda-feira, 11 de agosto de 2014

DELPHI - FormOrientation - FireMonkey

Reações: 


Retornando a orientação atual do form (Não achei na internet e está ai publicado:)
  type
    TATLabs_FrmOrientation = (atlFoPortrait, atlFoLandscape, atlFoInvertedPortrait, atlFoInvertedLandscape);
    TATLabs_FormOrientation = Class(TObject)
    Public
    Class Function GetFormOrientation : TATLabs_FrmOrientation;
  end;


//    . . . 


{ TATLabs_FormOrientation }

class function TATLabs_FormOrientation.GetFormOrientation: TATLabs_FrmOrientation;
begin
  if Assigned(Screen) then
  begin
    if Screen.Size.Height > Screen.Size.Width then
    begin
      Result := atlFoPortrait;
    end
    else
    if Screen.Size.Height < Screen.Size.Width then
    begin
      Result := atlFoLandscape;
    end;

  end;

end;

Nenhum comentário:

Postar um comentário

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

Max Gehringer