Problema com Resolução...
Galerinha amiga,
Quando eu crio uma aplicação numa resolução (ex:800 x 600), e depois vou rodá-la em outra(ex.: 1024 x 768), dá diferença nos tamanhos do form.
Tem como eu controlar isso?
Fazer uma verificação da resolução do usuário e mandar o form se ajustar?
Agradeço a ajuda...
:shock:
Quando eu crio uma aplicação numa resolução (ex:800 x 600), e depois vou rodá-la em outra(ex.: 1024 x 768), dá diferença nos tamanhos do form.
Tem como eu controlar isso?
Fazer uma verificação da resolução do usuário e mandar o form se ajustar?
Agradeço a ajuda...
:shock:
Lfernando
Curtidas 0
Respostas
Mmtoor
03/09/2003
Prezado colega:
Eu uso assim:
Implementation
Const
ScreenWidth: LongInt = 1024;
ScreenHeight: LongInt = 768;
Obs: Caso existam variáveis em implementation, insira o código após elas.
No evento oncreate ou onactive do form inclua:
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;
Depois precisa apenas verificar as fontes.
Espero ter ajudado.
MMTOOR2003
Eu uso assim:
Implementation
Const
ScreenWidth: LongInt = 1024;
ScreenHeight: LongInt = 768;
Obs: Caso existam variáveis em implementation, insira o código após elas.
No evento oncreate ou onactive do form inclua:
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;
Depois precisa apenas verificar as fontes.
Espero ter ajudado.
MMTOOR2003
GOSTEI 0
Lfernando
03/09/2003
Já ajudou bastante cara, vaelu mesmo, precisando é só chamar...
um abraço,
:shock:
um abraço,
:shock:
GOSTEI 0
Mmtoor
03/09/2003
Prezado colega.
Estamos aqui para somar. Disponha.
MMTOOR2003
Estamos aqui para somar. Disponha.
MMTOOR2003
GOSTEI 0