una - Delphi corte de vidrio

como cortar vidrio templado

Question

Estoy usando Delphi XE2, y me gustan los efectos de vidrio, y quiero "cortar" el vidrio como en las herramientas de tableta de Windows 7. Si también sabes cómo cortar un botón, seré feliz si me dices cómo.

Gracias

Answer 1

¿Querías decir que quieres formas en forma? Si es así

Formas irregulares

podría ayudar. Me imagino que esto funcionará en Windows 7 (note el comentario de Remy en la respuesta).

hth

Answer 2

Dibujar en el área superior es simplemente una cuestión de usar un marco de vidrio y pintar en el área de no clientes, o alternativamente, usar la API DwmExtendFrameIntoClientArea.

El mejor ejemplo de código que he visto para esto es el control "Ribbon" de VCL, que proporciona un área "QAT" (barra de herramientas de acceso rápido), pintada en el área "no cliente".

Tenga en cuenta que el autor debe pensar no solo en cómo representar cuando los sistemas Vista / Win7 que tienen Glass ON, sino que también debe decidir cómo representar en WinXp, Win7 y Vista cuando el motor Themes está apagado. Hay un poco de lógica en la Vcl.Ribbon.pas (o solo Ribbon.pas si estás en XE o una versión anterior) dedicada a eso.

Mire el procedure TCustomRibbonQuickAccessPopupToolbar.NCPaint(DC: HDC); En las fuentes de la cinta VCL.

Dibujar un "área extendida" no rectangular que sobresale de la parte inferior es probablemente una cuestión de aplicar una región de recorte de ventana personalizada.