Presentando PicPanel y PicToolButton

Harpo 07-03-2023, 13:20

#11

(06-03-2023, 21:08)Shordi escribió: Hecho. Ahora se comporta como un panel normal pero respetando el Radius de las esquinas y demás.
Me gustaría que lo probaseis porque el cálculo de la ubicación de los contenidos al Radius de las esquinas y demás lo he hecho bastante a ojímetro... por lo que no sé qué puede ocurrir en otras máquinas que no sean la mía.

Saludos

A mi no me ajusta bien y no tiene en cuenta el tamaño del borde. Pruebe esto en RoundPanel_Draw():

Código:
Dim fMargin as Float

   'Content Adjust

   'iMargin = Int($iRadius / 3)

   fMargin = Hyp($iRadius, $iRadius) / 4

   iMargin = Round(fMargin, 0) + Me.Padding + IIf($bBorder, $hBorder.Width, 0)

Una idea interesante incluir un panel interno para gestionar los controles.
Saludos, Harpo.

(06-03-2023, 22:23)tincho escribió: Felicitaciones, un gran trabajo.
No se si se podra hacer pero ¿Seria posible decirle al panel que esquinas se redondearan?
En el ejemplo de mas abajo agregue un panel a modo de barra de botones, mas oscura, y redondeo ambos panels pero quedaria mas parecido a gtk3 si la "botonera" redondea solo las esquinas superiores y por el contrario el panel de abajo solo las inferiores.

Se puede. Jugando con Border se pueden definir Radius distintos.

[Imagen: 2eKgjZE.png]

Si el maestro Shordi se anima lo incluimos en RounPanel Big Grin

Última modificación: 07-03-2023, 13:33 por Harpo.