Fórum Urgente - Redimencionar tela #191381

29/10/2003

0

Pessoal, temos um programa q foi compilado com resolução de vóde em 1024....

e o form ta setado p/ rodar maximizado

qdo o cliente abre, usando 800x600, fica uma bosta.

como resolver isto?

tem alguma propriedade q to comento barriga?

abraços


Rfpsatin

Rfpsatin

Responder

Posts

29/10/2003

Carlosk

usa a função scaleby ( x, y )
se vc utilizar scaleby (3 , 4), seu form vai ficar com 3/4 do tamanho original. funciona razoavelmente bem, pelos meus testes soh nao redimensiona as imagens de botoes...

falows


Responder

Gostei + 0

30/10/2003

Rfpsatin

Achei uma forma + fácil, talvez por ser tão simples tava tão dífícil de encontrar

form1.width:=screen.width;
form1.heigth:=screen.heigth;


Responder

Gostei + 0

30/10/2003

Carlosk

o problema dessa forma eh q tu soh vai redimensionar o form... com o scaleby(), tu redimensiona o form e todos os componentes visuais do mesmo.


Responder

Gostei + 0

30/10/2003

Helbert

Como eu posso usar este scaledby?


Responder

Gostei + 0

30/10/2003

Rômulo Barros

Eu tambem estou com o mesmo problema. Em relação ao scaled(), encontrei um pequeno artigo aqui mesmo no site do clubedelphi.... MAS CONTINUO COM OS MESMOS PROBLEMAS :twisted: que chato... Estou com uma idéia. No evento OnActivate do formulário, farei algo do tipo:

if (width=800 and height = 600) then
begin
width := 1024;
height := 768
End;

Será que se eu fizer algo do tipo acima poderá dar ´pau´ na maquina do cliente, caso a maquina dele não suporte esta resolucao (Sem nenhuma driver de video instalado) ??????[color=red:d178c22a39][/color:d178c22a39][size=18:d178c22a39][/size:d178c22a39][color=red:d178c22a39][/color:d178c22a39]


Responder

Gostei + 0

03/11/2003

Rfpsatin

Resolvemos o problema de redimencionar por completo aqui desta forma:

self.Width:=screen.Width-10;
self.Height:=screen.Height-10;
self.WindowState := wsMaximized;

no create do form.

obs. O Form em designer deve ser deixado como wsNormal.

abraços


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar