Como Ajustar A Tela Programa Automaticamente A Qualquer Resolucao Video

[helderlr]

Ola Regys Silveira

 

Como vc faz para nos seus sistemas ele se ajustar

a resolucao video do computador do cliente.

 

Vi varias solucoes:

 

- ancorar os controles

- desenvolver em 800x600 e ajustar a prox resolucao 1024x728

- funcoes que ajustam automaticamente,teve uma que chegou proximo mas nao fez totalmente

 

pederia me da uma luz ?

 

Obrigado.

 

 

 

[Daniel Paixão-Cascavel]

Olá, sei que perguntou ao Regys mas vou dar minha opinião: Depois de muito lutar pra tentar ancorar, fazer redimensionamento automático e mais um monte de coisas, tomei uma decisão bem mais difícil porém, com 100% de do objetivo alcançado. Eu fiz uma tela de PDV totalmente configurável, ou seja, eu posso montar a tela, tanto em tamanho, fonte, componentes, modelo de Grid e tudo mais que o cliente quiser, do jeito que ele quiser.

[Régys Silveira]

Aqui eu uso a propriedade "Scaled" dos forms, o resto o delphi basicamente faz sozinho.

 

Se você utiliza devexpress, ela tem o conceito de estilos, esses estilos não são afetados pelo scaled, então ai eu fiz a escala deles a mão.

const
  ScreenWidth: LongInt = 800;
....

  if (Screen.Width <> ScreenWidth) then
  begin
    // aqui faz a escala de todos os componentes do form, o scaled precisa estar true
    Self.ScaleBy(Screen.Width, ScreenWidth);

    // aqui eu forço a escala para os estilos do devexpress, se você não utiliza não precisa
    for I := ComponentCount - 1 downto 0 do
    begin
      if (Components[I] is TcxStyle) then
        TcxStyle(Components[I]).Font.Size := Trunc(TcxStyle(Components[I]).Font.Size * (Screen.Width / ScreenWidth));
    end;
  end;

[helderlr]

Valeu meus caros

 

faz tempo que acompanho o forum e vejo que a cada dia melhora,

os profissionais deixam dicas ai tudo fica mais facil pra quem ta na area de TI

 

o forum contribui muito mesmo e faz uma grande diferenca

 

muito obrigado camaradas (uma expressao russa)

Editado 25 Maio, 2013 por helderlr