Buscar por:

Resolução

Código

Faça uma chamada a esta rotina no evento OnCreate do formulário

procedure VideoAdjust(Form: TForm);

const

ScreenWidth: LongInt = 800; // número de pontos usado no desenvolvimento

ScreenHeight: LongInt = 600; // número de pontos usado no desenvolvimento

var

i: integer;

begin

with Form do

begin

if Screen.Width = ScreenWidth then

Exit;

Scaled := true;

Height := Longint(height) * Longint(Screen.Height) DIV ScreenHeight;

Width := Longint(Width) * Longint(Screen.Width) DIV ScreenWidth;

ScaleyBy(Screen.Width, ScreenWidth);

// O tamanho da fonte dos objetos que tem essa propriedade deverá ser ajustado

// Para usar GetPropInfo, deverá ser adicionado Uses TypInfo.

for i := ComponentCount - 1 downto 0 do

with components[i] do

if GetPropInfo(ClassInfo, 'font') <> nil then

Font.Size := (NewFormWidth DIV OldFormWidth) * Font.Size;

end; // with

end; // VideoAdjust

Acrópole Delphi® - Cultura on line...