tincho 04-05-2022, 23:57
Hola amigos.
![[Imagen: OxSSRYn.png]](https://i.imgur.com/OxSSRYn.png)
![[Imagen: rWhXdug.png]](https://i.imgur.com/rWhXdug.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.
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
Archivos adjuntos
Repology - un sitio donde verificar el estado de un paquete en diferentes ditros
tincho 03-05-2022, 11:09
Hola amigos.
Seguramente han tenido la necesidad de saber que versión de gambas existe en el repositorio de una determinada distribución.
Hoy he dado con el sitio adecuado para ello debido a la curiosidad que me dio al ver que en el wiki de gambas ahora existe, en el lateral izquierdo, una lista de gambas en las distros
https://repology.org/project/gambas/badges
![[Imagen: QBIg8iP.png]](https://i.imgur.com/QBIg8iP.png)
Seguramente han tenido la necesidad de saber que versión de gambas existe en el repositorio de una determinada distribución.
Hoy he dado con el sitio adecuado para ello debido a la curiosidad que me dio al ver que en el wiki de gambas ahora existe, en el lateral izquierdo, una lista de gambas en las distros
https://repology.org/project/gambas/badges
guizans 02-05-2022, 15:33
Hola
Estoy trasteando con Python y una base de datos en SQLite3. Tengo una función que recibe un parámetro de tipo String, hace la búsqueda en la base de datos y devuelve el resultado.
Esto funciona perfectamente siempre y cuando el valor pasado exista en la base de datos, si no existe el programa se cae y me da un error en la línea execute. Pero si pongo esto:
funciona perfectamente, es decir, si no existe en la base de datos devuelve una lista vacia. No logro encontrar información de por que este comportamiento. ¿Alguien sabe el por qué?
Un saludo.
Estoy trasteando con Python y una base de datos en SQLite3. Tengo una función que recibe un parámetro de tipo String, hace la búsqueda en la base de datos y devuelve el resultado.
Código:
def devolver(a):
sentencia = "SELECT * FROM articulos WHERE ID=?"
cursor.execute(setencia,a)
return cursor.fetchall()Esto funciona perfectamente siempre y cuando el valor pasado exista en la base de datos, si no existe el programa se cae y me da un error en la línea execute. Pero si pongo esto:
Código:
def devolver(a):
sentencia = "SELECT * FROM articulos WHERE ID=?"
cursor.execute(setencia,[a])
return cursor.fetchall()funciona perfectamente, es decir, si no existe en la base de datos devuelve una lista vacia. No logro encontrar información de por que este comportamiento. ¿Alguien sabe el por qué?
Un saludo.
Bienvenido, Invitado
Últimos temas
Problema con creación de ...
Foro: Bases de DatosÚltimo mensaje por: guizans, Ayer, 22:43
Respuestas: 2 - Vistas: 71
Un interprete de basic en...
Foro: HTML, CSS, JavascriptÚltimo mensaje por: guizans, 03-02-2026, 23:34
Respuestas: 5 - Vistas: 354
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 263
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 491
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 352