Comunidad Gambas-es
Temas para Gambas II...¡Con Careto! - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Otros (https://gambas-es.org/forum-18.html)
+--- Foro: Videotutoriales (https://gambas-es.org/forum-20.html)
+--- Tema: Temas para Gambas II...¡Con Careto! (/thread-1446.html)



Temas para Gambas II...¡Con Careto! - Shordi - 14-07-2023

Acabo de subir el tutorial número 2 sobre el manejo de los controles del componente gbThemes. Explorando por ahí y por allá he encontrado en los repositorios el programa OBS Studio, que hace fácil y divertido eso de grabarte el careto por encima de la pantalla con el proyecto de gambas. Me he divertido mucho.

En esta entrega nos centramos en el uso del control WindowFrame, que provee de barras de cabeceras y pie a los formularios.



En vídeos sucesivos hablaremos de la creación de Temas, de cómo funcionan en detalle los "Controles Temáticos" y más cosas... disfrutando de mi careto, además. Prometo buscar un sombrero o gorro para la ocasión.

Añadir que he añadido, valga la rebuznancia, el componente al gitlab, con lo que podéis explorarlo y criticarlo a gusto.

Espero que os guste


RE: Temas para Gambas II...¡Con Careto! - tincho - 14-07-2023

Algo de feedback
[Imagen: Rd5f1hZ.png]
Este cartel aparece al ejecutar, supongo que hay que crear el paquete e instalarlo en el PC verdad?
Ademas se queda en bucle mostrando ese cartel por mas que le de al botón OK varias veces.

Estoy haciendo un método para solucionarlo, te lo paso en 10 min.

Ya esta, esto lo resuelve
Código:
Public Sub Form_Open()

  Dim n As Integer

  CheckRun()

  With GridView1
    .Rows.Count = ListBox1.List.Max
    .columns.Count = 1
    For n = 0 To .Rows.Max
      GridView1[n, 0].Text = ListBox1[n].Text
    Next
  End With

End

Private Sub CheckRun()

  If Settings["RunNumber", 0] < 1 Then
    Shell "mkdir -p '" & Desktop.ConfigDir & "/gbThemes/Theme'" Wait
    If Exist("/tmp/gbThemes-0.0.5.tar.gz") Then
      Shell "rm " & "/tmp/gbThemes-0.0.5.tar.gz" Wait
    Endif
    Copy "./gbThemes-0.0.5.tar.gz" To "/tmp/gbThemes-0.0.5.tar.gz"
    Shell "tar –xvzf /tmp/gbThemes-0.0.5.tar.gz –C " & Desktop.ConfigDir & "/gbThemes/Theme" Wait
    Shell "rm " & "/tmp/gbThemes-0.0.5.tar.gz" Wait
    Settings["RunNumber"] = 1
  Else
    Settings["RunNumber"] = Settings["RunNumber"] + 1
  Endif

End

El botón "salir" no funciona.
El formulario no redondea las esquinas.
El tema "Light" tiene el mismo aspecto que el tema "Dark"
[Imagen: b0SVUOA.png]

con gb.gui el titulo de la ventana se trunca.
[Imagen: mEAZaYP.png]

Me olvidaba, felicitaciones por poner el careto en el video. Big Grin


RE: Temas para Gambas II...¡Con Careto! - Shordi - 14-07-2023

Muchas gracias por tu interés y tu feed-back... pero se adelanta usted, señor. En el tercer vídeo, que a ver si lo puedo subir entre esta noche y el lunes, fiestas familiares mediantes, todo el misterio quedará claro.

Saludos