Resolução de Monitor e Centralização do Form.
Olá, Pessoal.
Preciso saber como faço para acertar o tamanho das telas conforme a resolução do monitor no cliente. Pois o meu cliente tem um monitor de 9´´ e também como centralizar o form na tela do monitor.
Se alguém puder me ajudar, ficarei muito grato.
Sem mais, agradeço desde já.
Que Deus os ilumine e que Jesus guie os vossos passos sempre por onde andares.
Ovidio Jr.
Preciso saber como faço para acertar o tamanho das telas conforme a resolução do monitor no cliente. Pois o meu cliente tem um monitor de 9´´ e também como centralizar o form na tela do monitor.
Se alguém puder me ajudar, ficarei muito grato.
Sem mais, agradeço desde já.
Que Deus os ilumine e que Jesus guie os vossos passos sempre por onde andares.
Ovidio Jr.
Ovidio
Curtidas 0
Respostas
Mmtoor
08/09/2003
Prezado:
Para manter uma certa configuração de seus forms mesmo que a resolução de vídeo seja diferente, utilize:
Implementation
Const
ScreenWidth: LongInt = 800;
ScreenHeight: LongInt = 600;
Obs: Caso existam variáveis ou constantes declaradas 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;
No evento onshow do form coloque:
Top := 0;
Left := 0;
Width := Screen.Width;
Height := Screen.Height;
Espero ter ajudado:
MMTOOR2003
Para manter uma certa configuração de seus forms mesmo que a resolução de vídeo seja diferente, utilize:
Implementation
Const
ScreenWidth: LongInt = 800;
ScreenHeight: LongInt = 600;
Obs: Caso existam variáveis ou constantes declaradas 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;
No evento onshow do form coloque:
Top := 0;
Left := 0;
Width := Screen.Width;
Height := Screen.Height;
Espero ter ajudado:
MMTOOR2003
GOSTEI 0