Urgente - Redimencionar tela
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
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
Curtidas 0
Respostas
Carlosk
29/10/2003
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
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
GOSTEI 0
Rfpsatin
29/10/2003
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;
form1.width:=screen.width;
form1.heigth:=screen.heigth;
GOSTEI 0
Carlosk
29/10/2003
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.
GOSTEI 0
Helbert
29/10/2003
Como eu posso usar este scaledby?
GOSTEI 0
Rômulo Barros
29/10/2003
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]
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]
GOSTEI 0
Rfpsatin
29/10/2003
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
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
GOSTEI 0