Tente isso ae... não sei se funciona 100% em todas as
situações, mas acho q dá prá vc começar.
[]´s
Luis Alberto.
// Redimensiona a tela conforme a resolução definida
no windows.
// ScreenWidth é uma constante com a resolução (width)
em que foi
// desenhada a tela.
procedure FormResize(Sender: TObject);
var
Contador, OldFormWidth, NewFormWidth: Integer;
begin
with TForm(Sender) do
begin
OldFormWidth := Width;
Scaled := True;
if (Screen.Width <> ScreenWidth) then
begin
if TForm(Owner).Name <> '' then
begin
if TForm(Owner).Top <= 0 then
Top := TForm(Owner).Height -
TForm(Owner).ClientHeight
else
Top := TForm(Owner).Top;
Left := TForm(Owner).Width -
TForm(Owner).ClientWidth;
end;
ScaleBy(Screen.Width, ScreenWidth);
end;
NewFormWidth := Screen.Width;
for Contador := 0 to ComponentCount -1 do
begin
with Components[Contador] do
if GetPropInfo(ClassInfo, 'font') <> nil then
if OldFormWidth <> 0 then
Font.Size := (NewFormWidth DIV
OldFormWidth) * Font.Size;
end;
end;
end;
--- Listas Minerva <[EMAIL PROTECTED]>
escreveu:
> A aí Ricardo, blz?
>
> Já tentou usar a propriedade 'Anchors' dos
> componentes? Dê uma pesquisada
> ela é bem interessante nestes casos.
>
> Fernando Nappe
> Analista de Sistemas
> Frigorífico Minerva
> Email: [EMAIL PROTECTED]
>
> ----- Original Message -----
> From: "Ricardo MDE" <[EMAIL PROTECTED]>
> To: "Delphi BR" <delphi-br@yahoogrupos.com.br>
> Sent: Friday, January 20, 2006 6:54 PM
> Subject: [delphi-br] problema com resolução de tela
>
>
> Boa tarde caros amigos da lista,
>
> Alguém já deve de ter tido esse tipo de problema,
> tenho um sistema que fiz
> com resolução de 800 x 600 mas quando o usuário
> final altera para 1024 x 768
> ou superior as telas do programa fica tudo como se
> tivesse ainda em 800 x
> 600 e no canto direito um espaço em branco por que
> algumas coisas como
> panel, grid eu configuro para ajustar a tela, no
> topo, do lado direito, e o
> ultimo coloco para o resto.
>
> Então se alguém souber como redimensionar os edit´s
> e outras coisas para se
> ajustar a tela. eu agradeço muito.
>
> Obs: qualquer ajuda será muito bem vinda.
>
> Ricardo Lino Gonzalez
> [EMAIL PROTECTED]
>
> [As partes desta mensagem que não continham texto
> foram removidas]
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
> http://br.yahoo.com/info/utos.html
>
>
>
>
>
>
Luis Alberto
Belo Horizonte - MG
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
