Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Panel transparente o bevel con esquinas redondeadas (https://www.clubdelphi.com/foros/showthread.php?t=39792)

edelphi 30-01-2007 05:39:43

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


La franja horaria es GMT +2. Ahora son las 10:07:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi