Executavel para alterar resolução do video

Delphi

18/03/2005

Olá pessoal
alguem tem um executavel ou função/rotina para alterar a resolução do monitor?

abraço
Diogo


Diogoalles

Diogoalles

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

18/03/2005

procedure escala(Sender: TObject);
const 
  SW:LongInt=640;
  SH:LongInt=480;
begin
  (sender as tform).scaled:=true;
  If (screen.width<<>SW) then  
    begin 
      (sender as tform).height:=LongInt((sender as tform).height)*LongInt(screen.height)DIV SH;
      (sender as tform).width:=LongInt((sender as tform).width)*LongInt(screen.width)DIV SW;
      (sender as tform).scaleBy(screen.width, SW);
    end;
end;


_____________________________________________
[b:e7116a818f][color=blue:e7116a818f]Utilize a Ferramenta de Pesquisa do Fórum[/color:e7116a818f][/b:e7116a818f]

Pesquisar pelos termos
_____________________________________________
[b:e7116a818f]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:e7116a818f]
[b:e7116a818f]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:e7116a818f]
[b:e7116a818f]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:e7116a818f]


GOSTEI 0
Rômulo Barros

Rômulo Barros

18/03/2005

[color=darkblue:b819ba6c2a][u:b819ba6c2a][b:b819ba6c2a]Qualquer dúvida, veja [url=http://forum.clubedelphi.net/viewtopic.php?t=44962&highlight=screen+width]ESTE LINK[/url][/b:b819ba6c2a][/u:b819ba6c2a][/color:b819ba6c2a]

_____________________________________________
[b:b819ba6c2a][color=blue:b819ba6c2a]Utilize a Ferramenta de Pesquisa do Fórum[/color:b819ba6c2a][/b:b819ba6c2a]

Pesquisar pelos termos
_____________________________________________
[b:b819ba6c2a]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:b819ba6c2a]
[b:b819ba6c2a]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:b819ba6c2a]
[b:b819ba6c2a]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:b819ba6c2a]


GOSTEI 0
POSTAR