Posi��o da imagem

Question

Sauda��es!!!Na tela principal da minha aplica��o, coloquei um panel no centro, e dentro deste o logotipo da empresa. Alterei o estilo da borda do panel para dar um efeito interessante ao logo. Quando ...

Marco Salles · Answer

programando o evento OnResize do Form n�o da n�o ?????...

Alexandrej · Answer

[quote:4700cb6dda=�roger1976�]Existe uma forma pr�tica de se fazer isso??[/quote:4700cb6dda]No evento onResize... Panel.Left := Round((Self.Width / 2) - (Panel.Width / 2))Panel.Top := Round((Self.Height....Mais ou menos assim, fiz de cabe�a, pode estar errado...Porque vc n�o coloca esse �efeito� salvo na imagem e usa um TImage com a propriedade Center = True e o alinhamento = alClient?...

Roger1976 · Answer

Amigos, muito obrigado pelas dicas. Na propriedade do panel que cont�m a imagem, eu alterei as op��es da propriedade anchors para false. Assim, quando redimensiono a tela, a imagem fica sempre no meio. Acho que ficaria melhor se o tamanho do panel com a imagem redimensionasse automaticamente ao alterar o tamanho da tela. Como sugerido por voc�s, deve-se programar no evento onresize do form principal, mas eu ainda n�o sei como faz�-lo. Fiz o teste sugerido pelo Alexandre, pensei at� que pelo c�digo pudesse redimensionar automaticamente, mas n�o deu certo.

Valeu galera!!!

Marco Salles · Answer

[quote:4afc0c8742]Acho que ficaria melhor se o tamanho do panel com a imagem redimensionasse automaticamente ao alterar o tamanho da tela. [/quote:4afc0c8742]bom ,[quote:4afc0c8742] private    { Private declarations }    procedure  wmuser(var msg:tmessage);message wm_user;[/quote:4afc0c8742]{[code:1:4afc0c8742]$R *.dfm}var kWP,KHP,KWI,KHI:real;procedure TForm1.FormCreate(Sender: TObject);beginKHP:=form1.Height/panel1.Height;KWP:=form1.Width/panel1.Width;KHI:=panel1.Width/image1.Width;KWI:=panel1.Width/image1.Width;end;[/code:1:4afc0c8742][code:1:4afc0c8742]procedure TForm1.FormResize(Sender: TObject);begin  postmessage(handle,wm_user,0,0);end;[/code:1:4afc0c8742][code:1:4afc0c8742]procedure TForm1.wmuser(var msg: tmessage);begin  panel1.Height:=trunc(form1.Height/KHP);  panel1.Width:=trunc(form1.Width/KHP);  image1.Height:=trunc(panel1.Height/KHI);  image1.Width:=trunc(panel1.Width/KWI);  panel1.Left:=(form1.Width - panel1.Width)div 2;  image1.Left:=(panel1.Width - image1.Width) div 2;end;[/code:1:4afc0c8742]...

F�rum Posi��o da imagem #347623