Fórum Resolução de tela #312295

const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;


procedure TPrincipal.FormCreate(Sender: TObject);
var
i:integer;
p:PPropInfo;
begin
    // resolução
    scaled := true;
    if (screen.width <> ScreenWidth) then
    begin
        height := longint(height) * longint(screen.height) DIV ScreenHeight;
        width := longint(width) * longint(screen.width) DIV ScreenWidth;
        scaleBy(screen.width, ScreenWidth);
    end;
    // tamanho das fontes
    for i := componentCount - 1 downto 0 do
    with components [i] do
    begin
        p := GetPropInfo (ClassInfo, ´font´);
        if assigned (p) then
        font.size := (Principal.Width DIV Principal.Width) * font.size;
    end;
end;