Pessoal,

Há um tempo atrás precisei de redimensionar meus forms, conforme a resolução do 
windows. Procurando na net encontrei uma rotina q faz isso, usando, inclusive, 
scaledby. 
Tive que fazer uma pequena adaptação nela, para atender ao meu caso, mas 
funcionou direitinho... infelizmente, não a encontrei nos meus arquivos para 
lha enviar, mas, acredito que procurando na net vcs vão encontrar.


[]'s
 

Luis Alberto P. Lopes
Desenvolvimento de Sistemas
Belo Horizonte - Minas Gerais




----- Mensagem original ----
De: Magnun Oliveira <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Janeiro de 2008 17:31:41
Assunto: Re: [delphi-br] Problemas com formulario MDIForm e MDIChild

Alexandre 
... 
vc 
manja 
a 
utilização 
do 
Scaled 
By?

pergunto 
isso 
pq 
eu 
tenho 
uma 
aplicação 
em 
q 
o 
usuario 
monta 
a 
tela 
com 
os 
componentes.
surgiu 
agora 
a 
necessidade 
de 
aplicar 
um 
zoom 
in 
e 
zoom 
out 
nesta 
tela.

porem 
eu 
percebi 
algumas 
zicas.

* 
as 
fontes 
nao 
são 
alteradas.
* 
se 
voce 
ultrapaça 
um 
tamanho 
minimo, 
o 
componente 
perde 
o 
seu 
tamanho 
e 
fica 
maluco.
* 
as 
referencias 
Left 
e 
Top 
tmb 
nao 
manteem 
a 
proporcao.
* 
alguns 
componentes 
nao 
mantem 
a 
proporcao 
de 
tamanho 
q 
estava 
antes 
ex: 

coloquei 
um 
panel, 
uma 
imagem 
da 
mesma 
largura 
do 
panel, 
e 
alguns 
botoes.

os 
botoes 
aparentemente 
ficaram 
ok, 
o 
painel 
mudou 
em 
uma 
proporcao, 
e 
a 
imagem 
em 
outra, 
fod*endo 
com 
toda 
a 
minha 
tela.


Saca 
alguma 
maneira 
melhor 
de 
fazer 
isso?

sempre 
estou 
diminuindo 
20% 
e 
aumentando 
25% 
pra 
manter 
o 
tamanho 
original.


Magnun 
Oliveira.



From: 
Alexandre 
Rodrigues 
Sent: 
Sunday, 
January 
13, 
2008 
7:39 
PM
To: 
delphi-br@yahoogrupos.com.br 
Subject: 
Re: 
[delphi-br] 
Problemas 
com 
formulario 
MDIForm 
e 
MDIChild


Cara 
de 
uma 
pesquisa 
sobre 
ScaleBy, 
vai 
resolver 
teus 
problemas.

ca_programador007 
escreveu:
> 
> 
> 
Caros 
amigos 
da 
lista,
> 
> 
Tenho 
um 
sistema 
com 
algumas 
telas 
(forms), 
que 
foram 
desenvolvidas 
em 
> 
resolução 
800 
x 
600, 
e 
eu 
estou 
com 
dificuldades 
em 
acertar 
o 
form 
> 
quando 
são 
abertos 
em 
resolucões 
maior 
que 
800 
x 
600. 
Ficando 
tudo 
> 
desalinhados.
> 
Tentei 
alterar 
várias 
propriedades 
como: 
align, 
anchors, 
autoscroll, 
> 
autosize, 
position, 
style, 
enfim.....
> 
> 
Para 
fazer 
funcionar 
legal, 
precisei 
fazer 
uma 
função 
na 
mão 
na 
maior 
> 
pura 
matemática 
(coisa 
de 
louco) 
acertando 
componente 
a 
componente 
para 
> 
ficar 
na 
direção, 
posição 
e 
tamanho 
que 
eu 
queria, 
isso 
para 
ficar 
bom 
> 
na 
resolução 
1024 
x 
768.... 
(isso 
é 
coisa 
de 
preso!!!! 
hahahahaa)
> 
Ficou 
imensa 
cada 
função, 
que 
foi 
diferente 
para 
cada 
formulário.....
> 
> 
begin
> 
label100.caption 
:= 
'' 
+inttostr(screen.width);
> 
if 
(label100.Caption='1024') 
then
> 
begin
> 
Form1.GroupBox1.Width:=990;
> 
Form1.Label1.Font.Size:=10;
> 
Form1.label1.Left:= 
690;
> 
Form1.edit_id.Left:= 
120;
> 
Form1.botao_novo.Left:=16;
> 
Form1.botao_novo.width:=65;
> 
Form1.botao_novo.Height:=57;
> 
Form1.botao_novo.font.size:=8;
> 
.............
> 
end;
> 
end;
> 
> 
Agora, 
acontece 
que 
eu 
preciso 
fazer 
a 
mesma 
coisa 
para 
resolucão 
maior 
> 
que 
1280 
x 
800.... 
ou 
maior 
que 
isso.. 
enfim.... 
não 
quero 
passar 
por 
> 
isso 
novamente, 
deve 
haver 
alguma 
coisa 
que 
facilite 
isso, 
que 
> 
independente 
da 
resolução 
que 
o 
usuário 
esteja 
utilizando, 
o 
form 
se 
> 
adequa 
aquela 
resolução, 
com 
todos 
os 
componentes 
alinhados 
e 
tal.
> 
> 
OBS: 
Meu 
form 
principal 
é 
formstyle 
= 
MDIForm 
e 
os 
restantes 
são 
> 
formstyle 
= 
MDIChild
> 
> 
Alguém 
tem 
uma 
sugestão 
para 
ajudar 
um 
pobre 
iniciante?
> 
> 
Valeu 
amigos, 
vou 
aguardar 
alguma 
resposta.
> 
> 
Carlos
> 
> 
---------------------------------
> 
Abra 
sua 
conta 
no 
Yahoo! 
Mail, 
o 
único 
sem 
limite 
de 
espaço 
para 
> 
armazenamento!
> 
> 
[As 
partes 
desta 
mensagem 
que 
não 
continham 
texto 
foram 
removidas]
> 
> 


_______________________________________________________ 
Yahoo! 
Mail 
- 
Sempre 
a 
melhor 
opção 
para 
você! 
Experimente 
já 
e 
veja 
as 
novidades. 
http://br.yahoo.com/mailbeta/tudonovo/ 


 

[As 
partes 
desta 
mensagem 
que 
não 
continham 
texto 
foram 
removidas]



-- 
<<<<< 
FAVOR 
REMOVER 
ESTA 
PARTE 
AO 
RESPONDER 
ESTA 
MENSAGEM 
>>>>>

as 
mensagens 
antigas, 
acesse:
  
  
http://br.groups.yahoo.com/group/delphi-br/messages

com 
o 
moderador, 
envie 
um 
e-mail 
para:
  
  
[EMAIL PROTECTED]
 
Links 
do 
Yahoo! 
Grupos

o 
site 
do 
seu 
grupo 
na 
web, 
acesse:
  
  
http://br.groups.yahoo.com/group/delphi-br/

deste 
grupo, 
envie 
um 
e-mail 
para:
  
  
[EMAIL PROTECTED]

uso 
que 
você 
faz 
do 
Yahoo! 
Grupos 
está 
sujeito 
aos:
  
  
http://br.yahoo.com/info/utos.html

 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Responder a