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 17:29:58. |
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