Problema Com Resolução

[rafaelrneto]

Estou terminando de fazer uma aplicação e só agora me atentei pra um problema: a resolução. Fiz todo o programa com a resolução de 1024x768. Tenho que transforma-lo para 800x600. O que vocês acham que seria melhor: diminuir os componentes dos formularios para que possam caber na tela 800x600 ou usar alguma algum algoritmo para adaptação da resolução em tempo de execução.

[s3c]

Tente assim:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Scaled := true;
  if Screen.Width <> 1024 then
  begin
    Height := Height * Screen.Height div 768;
    Width  := Width  * Screen.Width  div 1024;
    ScaleBy(Screen.Width, 1024);
  end;
end;

[Ewerton]

Olá s3c,

Caso fosse ao contrário, de 800 x 600 pixels por 1024 x 768 pixels, como seria o código? Ou o código serve para todas as resoluções?

[s3c]

Olá, uma sugestão é criar duas constantes:

Const ScreenWidth = (Width da screen em desenvolvimento)

ScreenHeight = (Height da screen em desenvolvimento).

Substitua as constantes 1024 e 768 por essas constantes.

[Ewerton]

Olá,

Será que posso encontrar ou você conhece algum código mais genérico, que se adapte a qualquer resolução?

Obrigado.

[s3c]

Mais genérico que as Consts eu não conheço.

[Ewerton]

É que eu queria um código que se adapte a todas resoluções possíveis, eu consegui um desse, mas foi para sites, porque eu trabalho com web design também. Mas agora eu estava precisando de algum código para Delphi mesmo.

[s3c]

Mas qual o problema de utilizar as Consts p/ Width e Height ?

Lá você define as dimensões de largura e altura do seu projeto original e quando você o porta p/ outras resoluções de vídeo, automaticamente ele vai ser escalado.

[Ewerton]

Me desculpe pela falta de conhecimento...

Mas como ficaria o código de 800 x 600 para 1024 x 768

Obrigado.

[s3c]

Const  scrWidth  = 800; // Aqui você define as dimensões do seu projeto original
          scrHeight = 600;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Scaled := true;
 if Screen.Width <> scrWidth then
 begin
   Height := Height * Screen.Height div scrHeight;
   Width  := Width  * Screen.Width  div scrWidth;
   ScaleBy(Screen.Width, scrWidth);
 end;
end;

[Ewerton]

OK, e as dimensões da máquina do cliente eu devo colocar alí no código ou ele faz isso automaticamente, obrigado.

[Progr'amador]

OK, e as dimensões da máquina do cliente eu devo colocar alí no código ou ele faz isso automaticamente, obrigado.

Olá Ewerton.

esses numeros é do seu projeto original, como o s3c postou

// Aqui você define as dimensões do seu projeto original

Explicando: as const's tem as dimensões do seu pojeto original e o programa usa o if pra verificar e o valor da const é diferente das dimensões da tela onde esta sendo aberto

if Screen.Width <> scrWidth then

se for diferente o form é redimencionado de acordo com as dimensões atual.

  Height := Height * Screen.Height div scrHeight;
  Width  := Width  * Screen.Width  div scrWidth;
  ScaleBy(Screen.Width, scrWidth);

Abs.

[Ewerton]

Obrigado Progr'amador eu não estava entendendo o código, que dar ctrl+c depois ctrl+v é fácil, o interessante é você saber o código, novamente obrigado.

s3c obrigado também, valeu pelo código!

[Paulo Nobre]

Ewerton

Concordo com você plenamente em relação ao ctrl+c e ctrl+v.

Programador de ctrl+c e ctrl+v, não é programador, é copiador.

Não, que acho que devemos decorar tudo, isto é impossível, mas devemos tentar entender o máximo

Abraços

Paulo Nobre

[Ewerton]

Ewerton

Concordo com você plenamente em relação ao ctrl+c e ctrl+v.

Programador de ctrl+c e ctrl+v, não é programador, é copiador.

Não, que acho que devemos decorar tudo, isto é impossível, mas devemos tentar entender o máximo

Abraços

Paulo Nobre

Realmente decorar tudo é praticamente impossível, mas devemos tentar entender ao máximo.