Dica: Adaptando Form para diferentes resoluções

Há uns 2 anos, eu precisei implantar um formulário que deveria manter a aparência em diferentes resoluções. Após testar alguns códigos, cheguei a um que resolveu o meu problema:

procedure ScaleForm(AForm: TForm);
var
  i, x, y, w, sw: integer;
  nEscala: Double;
  nPorcento: Integer; 
begin
  sw := 1280;  // a resolucao original, que eu utilizo em meu monitor
  w := AForm.width;
  AForm.Scaled := true;
  if (Screen.width <> sw) then
  begin
    nEscala := ((Screen.Width - sw) / sw);
    nPorcento := Round((nEscala * 100) + 100);

    AForm.Scaleby(screen.width, sw);

    for y := 0 to AForm.ComponentCount -1 do
    begin
      if (AForm.Components[y] is TDBGrid) and
        (TDBGrid(AForm.Components[y]).Columns.Count > 0) then
      begin
        for x := 0 to TDBGrid(AForm.Components[y]).Columns.Count -1 do
          TDBGrid(AForm.Components[y]).Columns[x].Width :=
            Round(TDBGrid(AForm.Components[y]).Columns[x].Width * (nPorcento /
            100));
      end;
    end;
  end;
end;

Chamo a função no create do form. Com isso, posso utilizar diferentes resoluções (800×600, 1024×768, etc.) e o form mantém sua aparência.

Abraços.

Posts Relacionados:

• TDaoIBX – Que tal um ORM Básico? Parte 11
• Design Pattern: Singleton
• Delphi e Google Maps Javascript API V3 – Parte 2
• Delphi: Com ou Sem DAO? Eis a questão!
• Clonando um objeto

Luiz Carlos

Desenvolvedor de software desde 1995. Em 1998, abriu sua própria empresa, a Lukas Sistemas, desde então passou a atender diversas empresas, principalmente autopeças. Apaixonado por Delphi, porém não o impede de flertar com outras linguagens sempre que possível. Mora na cidade de Balsas/MA com sua esposa e dois filhos.