Fórum Ajuste na resolução do Monitor #331065
12/10/2006
0
Boa Tarde Pessoal.
Existe alguma propriedade ou função onde eu possa fazer com que o meus sistema de auto-ajuste na resolução do monitor seja ele 800x600 ou 1024x768 ou superior.
Abraço
Wagner
Existe alguma propriedade ou função onde eu possa fazer com que o meus sistema de auto-ajuste na resolução do monitor seja ele 800x600 ou 1024x768 ou superior.
Abraço
Wagner
Wagnermarrane
Curtir tópico
+ 0
Responder
Posts
13/10/2006
Ricardo_ascii
No evento on create do form coloque:
var
ScreenWidth : LongInt=640;
ScreenHeight : LongInt=480;
begin
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;
end;
var
ScreenWidth : LongInt=640;
ScreenHeight : LongInt=480;
begin
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;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)