Comunidad Gambas-es

guizans 07-05-2022, 20:50

Hoy me ha dado por instalar Ubuntu 22.04 y al abrir Gambas veo que se me cierra de golpe. Abro un terminal y me encuentro esto.
[Imagen: hA9HjH5.png]

Veo que es la versión 3.16.3. Debería de ser una versión estable, pero supongo que debería tener algún fallo. Así que instalo la última versión a través del PPA, actualizo, abro Gambas y de repente se vuelve a cerrar.
[Imagen: bjqjvzU.png]

No se que puede estar pasando. Es una cosa rara. Lo que si he notado es que se cierra inesperadamente cuando usas la notación punto de alguna clase y en ese momento sale el asistente, cuando pulsas una tecla, en ese momento se cierra. ¿Soy el único o le pasa a mas gente?

Un abrazo.

General Respuestas 21

Libros de linux en español

alessandri 07-05-2022, 18:56

Hola a todos y todas

Hoy quiero compartir algunos libros de Linux en español.
Aunque ya están un poco obsoletos, pero los fundamentos
generales no pasan de moda.

Libros Antonio Perpinan

Espero le sean de ayuda.

General Respuestas 1

Usando iconos SVG en los formularios en modo claro y oscuro

tincho 04-05-2022, 23:57

Hola amigos.
[Imagen: OxSSRYn.png]

Aquí les comparto una manera (no se si es la mejor) de usar iconos SVG en los formularios claros y oscuros.
Por supuesto no hay que hacer dos iconos distintos para modo claro y oscuro sino alterar el color intrínseco del SVG y luego cargarlo al control.
En este caso le voy a reemplazar el color "#0066b3" por uno antagónico al tema de escritorio.

Código:
' Gambas class file

Private aIcons As String[]

Public Sub Form_Open()

  Dim sFile As String

  Dim tob As ToolButton

  Dim z As Integer = 40

  aIcons = RDir("./var/svg", "*.svg")

  pIcons.Children.Clear

  For Each sFile In aIcons

    tob = New ToolButton(pIcons) As "Tincho"

    tob.Tag = File.BaseName(sFile)

    tob.h = z

    tob.w = z

    tob.Picture = Image.FromString(Contrary("./var/svg" &/ sFile, "#0066b3", -1)).Stretch(z, z).Picture

  Next

End

'' Replace a color in an svg file with one that contrasts with the background of the desktop theme

Public Function Contrary(sFile As String, sColor As String, iBackground As Integer) As String

  Dim sVector As String

  Dim iContrast As Integer

  Dim sReplace As String

  If iBackground = -1 Then

    If Application.DarkTheme Then

      sVector = Replace(File.Load(sFile), sColor, "#eeeeee")

    Else

      sVector = Replace(File.Load(sFile), sColor, "#000000")

    Endif

  Else

    iContrast = Color.Invert(iBackground)

    sReplace = "#" & CStr(Hex(iContrast, 6))

    sVector = Replace(File.Load(sFile), sColor, sReplace)

  Endif

  Return sVector

End