Comunidad Gambas-es

El software privativo es a menudo malware

Shell 23-01-2023, 23:52

Buenas!.

Buscando un lenguaje fui a dar con la web de gnu.org donde explicaba que era y de paso vi este enlace.

El software privativo a menudo es malware

No tiene desperdicio. ¿ No querías caldo ?. Pues toma dos tazas.

Este vídeo de su web es bastante explicativo. Podéis cambiar el lenguaje de los subtítulos.

Evasión hacia la libertad

Es curioso que no lo enlacen en YouTube. Por algo será.

Saludos

General Sin respuestas

Label en Gambas

Shell 23-01-2023, 00:51

Buenas!.

Como estoy aprendiendo un poco de la librería Tkinter en Python para crear Interfaces, observé que las cajas de entradas son distintas a las de Gamba.
Resulta que las etiquetas de Gambas tienen propiedades similares a las cajas de texto de la librería Tkinter. Os lo muestro.
Estas son las etiquetas en Gambas. A algunos les va a sorprender.

Etiquetas con bordes, ancho de estos y radio de la misma, coloreadas.
Comencemos con bordes cuadrados.

[Imagen: VPLRezQ.png]

Ahora usemos bordes redondeados.

[Imagen: oNpNSi8.png]

Eso lo hace Gambas.

Os muestro un código que hace ese efecto. Debéis usar el borde plano, ojo!.

Código:
Public Sub Form_Open()

  Dim temptiqueta As Label

  Dim j As Integer

  Me.Title = "Etiquetas en Gambas"

  With Me

    .Width = 400

    .H = 400

    .Arrangement = Arrange.Vertical

  End With

  For j = 0 To 3

    temptiqueta = New Label(Me)

    With temptiqueta

      .Font = Font["Arial, 18, bold"]

      .Expand = True

      'Ancho del borde de la etiqueta

      .BorderWidth = 12

      'Color del borde de la etiqueta

      .BorderColor = Color.RGB(Rand(0, 255), Rand(0, 255), Rand(0, 255))

      'Curvatura del borde, si lo quereís cuadrado, ponerlo a cero

      .BorderRadius = 64

      .Border = Border.Plain

      .Alignment = Align.Center

      .Text = "GAMBAS IS A GOOD OPTION!"

    End With

  Next

End