(Resolvido) Resolução da Tela

[Eder]

Ola...

Existe algum codigo que eu posso inserir eu meu aplicativo que se adapte a qualquer resolução de tela, ou seja, se o camarada tiver resolução 1024x768 ele automaticamente se ajute a esta tela.....800x600 e assim por diante...

por exemplo tenho um usuario que usa em seu notebook 1280 x alguma coisa não me lembro..e ai as telas do aplicativo..fica tudo bagunçado..

muito Grato

[Jhonas]

Existe algum codigo que eu posso inserir eu meu aplicativo que se adapte a qualquer resolução de tela, ou seja, se o camarada tiver resolução 1024x768 ele automaticamente se ajute a esta tela.....800x600 e assim por diante...

por exemplo tenho um usuario que usa em seu notebook 1280 x alguma coisa não me lembro..e ai as telas do aplicativo..fica tudo bagunçado..

defina as constantes para as telas do seu sistema exemplo: Tela de 800 X 600

Uses TypInfo;

const
  sw : longint = 800;
  sh : longint = 600;

procedure TForm1.FormCreate(Sender: TObject);
var i , w : integer;
begin
  w := width; // automatico ou pode usar a constante sh
  Scaled := true;
  if (Screen.width <> sw) then
     Scaleby(screen.width,sw);

  for i := ComponentCount-1 downto 0 do
     with Components[i] do
       begin
         if GetPropInfo(ClassInfo, 'Font') <> nil then
           Font.Size := (width div w) * font.Size;
       end;

end;

OBS: Qualquer que seja a resolução de tela do usuário o programa rodará sempre com uma resolução de 800 X 600

abraço

[Eder]

OLA..Jonas...

eu tenho que usar este codigo em todas as telas? :blush:

Grato

[Jhonas]

Voce deve colocar este código em todas as janelas

abraço

[Eder]

falou..Jonas.

Tks.

Abraço

[William - TI]

Só para complementar que sofri um pouco com isso.

Para usar GetPropInfo, deverá ser adicionado Uses TypInfo.

[Fuzileir0]

Valeu denovo! Jhonas = Jesus!

[Douglas Soares]

O Jhonas é D+ vamo paga um churrasco pra ele ^^

Vlw me ajudou muito!

Abraços

[Douglas Soares]

Poxa eu tenho um Status bar, e tem 4 panels, porem com o texto que coloco, mesmo com esse seu código, as vezes o texto corta :angry: .... o que fazer?

Abraços

[Jhonas]

Poxa eu tenho um Status bar, e tem 4 panels, porem com o texto que coloco, mesmo com esse seu código, as vezes o texto corta .... o que fazer?

defina as constantes para as telas do seu sistema exemplo: Tela de 800 X 600

Se voce for trabalhar com essa resolução de tela, então é nesta tela que voce definirá o tamanho do statusbar ... uma vez definido o tamanho ele permanecerá correto.

abraço

[Douglas Soares]

Não, porque é o programa dos Clientes, e cada um tem uma resolução diferente né..... não tem como deixar automatico isso???

Abraços

[Jhonas]

Não, porque é o programa dos Clientes, e cada um tem uma resolução diferente né..... não tem como deixar automatico isso???

Douglas ... perceba que a tela que voce definir para o seu programa (800 X 600), é a tela que aparecerá para os seus clientes.

independemente das configurações de telas que eles tenham definido, ao rodar o seu programa, o tamanho de tela que voce definou (800 X 600) é que será usada .... automaticamente.

Quando sai do programa, as configurações anteriores (1024 X 768) serão novamente usadas ... automaticamente

abraço

[Alberto Mota]

Obrigado por responder Jhonas,

Infelizmente no outro computador, onde a tela é bem maior

não abre conforme coloquei na função 800 X 600.

A resolução de video no outro pc esta 1280 X 1024

Vale dizer que meu notebook possui resoluções diferentes.

Li com atenção o tópico que sugeriu, segui todos os passos.

Coloquei no form de Login e no de vendas(apenas nesses 2) as funções de resolução.

Tenho outros sistemas em outras empresas e não acontece nada disso.

O que faço no meu pc de desenvolvimento aparece tal e qual nesses lugares.

Apenas no pc de um novo cliente e em outro que possuo para testes, num monitor maior

que o notebook esta acontecendo isso.

Sinceramente tentei de tudo.

desculpem, postei no local errado.