Problema com opção do windows com fontes grandes

Delphi

26/08/2003

Oi.

Estou com o seguinte problema. Desenvolvi um aplicativo em um sistema windows com opção de vídeo com fontes pequenas. Quando vou executá-la em um sistema com opção de vídeo com fontes grandes, o formulário fica todo desproporcional. Existe alguma maneira de resolver este problema ?

Desde já eu agradeço.


Abreu

Abreu

Curtidas 0

Respostas

Mmtoor

Mmtoor

26/08/2003

Caro amigo. Eu uso assim:

Logo depois de implementation:
Const
ScreenWidth: LongInt = 800;
ScreenHeight: LongInt = 600;

E no evento on create:
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;

Espero ter ajudado.
MMTOOR2003
mmtoor2003@yahoo.com.br


GOSTEI 0
Abreu

Abreu

26/08/2003

Oi amigo.

Infelizmente o problema que eu registrei não está relacionado a definição da tela e sim ao tamanho dos fontes no windows. Esta dica que você me passou não funciona caso a resolução no windows que está executando a aplicação seja a mesma mas os fontes ao invés de 96 Dpi sejam, por exemplo, de 120 Dpi.

De qualquer forma, eu agradeço sua atenção e aguardo novas dicas.

Abraços


GOSTEI 0
POSTAR