Ver Mensaje Individual
  #1  
Antiguo 30-01-2007
Avatar de edelphi
edelphi edelphi is offline
Miembro
 
Registrado: jun 2006
Posts: 55
Reputación: 18
edelphi Va por buen camino
Exclamation Panel transparente o bevel con esquinas redondeadas

holas a todos los foristas bueno mi pregunta es la siguiente:

Me gusataria hacer que un objeto Tpanel lo pueda hacer transparente hay alguna manera de hacer eso
o sino mejor aun encontre este codigo para redondear las esquinas de un control pero lo malo es que no funciona con el objeto TBevel que es transsparente como yo quiero.

Código Delphi [-]
procedure DrawRounded(Control: TWinControl) ;
var
R: TRect;
Rgn: HRGN;
begin
with Control do
begin
R := ClientRect;
rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
Perform(EM_GETRECT, 0, lParam(@r)) ;
InflateRect(r, - 4, - 4) ;
Perform(EM_SETRECTNP, 0, lParam(@r)) ;
SetWindowRgn(Handle, rgn, True) ;
Invalidate;
end;
end;





en Conclusion lo que deseo es hacer un objeto bevel con las esquinas redondeadas. espero que me puedan ayudar
Responder Con Cita