Gente tô criando um programa, com a única finalidade de alterar a
resolução para 640x800.
Então pesquisando encontrei este código, mas tá dando pau.
// * * * Dica extraída do Deephi 2.0 * * * //
// * * * * [Evoluindo sem Limites] * * * * //
// * * * * Número: 0091 Testada: * * * * //
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;
Essa linha de comando tá dando erro.
If (screen.width<<>SW) then
Alguma ajuda por favor.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.