Tenta assim.
[]'s.
[-----x-----]
conexaoi escreveu:
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
[-----x-----]
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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!.