TImage com Bordas arredondadas

Question

Bem eu sou novo aqui e gostaria de saber se tem alguma forma de deixar um Timage com as bordas arredondadas no delphi 7;...

Joel Rodrigues · Answer

Bem vindo ao f�rum.Bem, eu particularmente nunca vi nada do tipo, mas caso seja uma situa��o espec�fica, voc� pode fazer a imagem .PNG TRANSPARENTE e j� com as bordas arredondadas.Boa sorte....

Arthur Scarpelli · Answer

Bem isso n�o posso usar pelo fato de que o usu�rio possa carregar essa imagem no sistema,essa imagem teria que ser exibida com as bordas arredondadas;...

Joel Rodrigues · Answer

Ok, vamos tentar.Ponha o TImage com Align=alClient dentro de um TPanel (com as dimens�es desejadas).No evento onShow do form (ou outro de sua prefer�ncia, mas que seja executado logo que a tela abrir) ponha o seguinte c�digo:varrgn: HRGN;dc : HDC;beginrgn := CreateRoundRectRgn(0, 0, Image1.Width, Image1.Height, 20, 20);dc := GetDC(Pnel1.Handle);SetWindowRgn(Panel1.Handle, rgn, true);ReleaseDC(Panel1.Handle, dc);DeleteObject(rgn);end;Chamei a imagem de Image1 e o painel de Panel1.Para aumentar o diminuir o arco das bordas, altere os dois �ltimos par�metros do m�todo CreateRoundRectRgn.Teste e boa sorte....

Arthur Scarpelli · Answer

Muito obrigado exatamente o que eu queria;Valeu pela ajuda mesmo,muito bom esse f�rum;...

Arthur Scarpelli · Answer

Funciona ate com imagem de fundo...

Joel Rodrigues · Answer

Que bom que serviu.Boa sorte....

F�rum TImage com Bordas arredondadas #413337