Shordi 18-02-2023, 12:26
A raíz de otro hilo hice ayer un ejemplo de lo que podría ser una miniaplicación de escritorio o widget.
Es muy simple y se limita a mostrar un reloj en la pantalla. Con pinchar y arrastrar lo cambias de sitio y con botón derecho lo puedes cerrar.
El aspecto es éste:
![[Imagen: KoUGfgc.png]](https://i.imgur.com/KoUGfgc.png)
Como el reloj es un Casio, no he podido resistirme a llamarlo Piqué...
Saludos
Es muy simple y se limita a mostrar un reloj en la pantalla. Con pinchar y arrastrar lo cambias de sitio y con botón derecho lo puedes cerrar.
El aspecto es éste:
Como el reloj es un Casio, no he podido resistirme a llamarlo Piqué...
Saludos
Archivos adjuntos
Shell 18-02-2023, 01:26
Buenas!.
Me resulta extraño, pero esto no funciona:
Debería tener un botón rojo, ¿ no ?.
No puedo hacerlo con gb.gui.qt y en cambio si puedo con gb.gui.
Con ToolButton es el mismo problema.
Linux Mint Mate 20.3
Gambas 3.18
Saludos
Me resulta extraño, pero esto no funciona:
Código:
Public Sub Form_Open()
Button1.Background = Color.Red
EndDebería tener un botón rojo, ¿ no ?.
No puedo hacerlo con gb.gui.qt y en cambio si puedo con gb.gui.
Con ToolButton es el mismo problema.
Linux Mint Mate 20.3
Gambas 3.18
Saludos
Cambiar los iconos del formulario recursivamente
tincho 17-02-2023, 22:55
Hola amigos.
Si tienen un formulario y desean cambiarles las imagenes a todos a la vez porque, por ejemplo cambia el tema. Supongo que existen varios métodos para hacerlo pero yo expondre el que uso habitualmente por si les resulta util.
Este metodo trabaja con los MenuButton pero valdia para otros controles, la unica condicion es que la propiedad Tag sea tipo String y su valor sea el del nombre base del archivo, por ejemplo "add" si el archivo se llama "add.svg"
Si tienen un formulario y desean cambiarles las imagenes a todos a la vez porque, por ejemplo cambia el tema. Supongo que existen varios métodos para hacerlo pero yo expondre el que uso habitualmente por si les resulta util.
Este metodo trabaja con los MenuButton pero valdia para otros controles, la unica condicion es que la propiedad Tag sea tipo String y su valor sea el del nombre base del archivo, por ejemplo "add" si el archivo se llama "add.svg"
Código:
'' This method scans all the buttons on the form and assigns them (if any) an SVG icon in the ./var/svg directory.
'' For example, if the tag of a button is "refresh" then an icon named ./var/svg/refresh.svg must exist.
Static Public Sub Update(obj As Object)
Dim ch As Object
Dim myclass As Class
myclass = Object.Class(obj)
If myclass.Symbols.Exist("Arrangement") Then
For Each ch In obj.Children
If Object.Type(ch) = "ToolButton" Then
ch.Picture = TagPic(ch.Tag, ch.W - 7)
Else
Update(ch)
Endif
Next
Endif
End
Static Function TagPic(sTag As String, iSize As Integer, Optional iFill As Integer) As Picture
Dim sVector As String
Dim pic As Picture
Dim sPic As String
sPic = "./var/svg/" & sTag & ".svg"
If Exist(sPic) Then
sVector = Contrary(sPic, "#0066b3", -1)
If iFill > -1 Then
Endif
pic = Image.FromString(sVector).Stretch(iSize, iSize).Picture
Else
Select iSize
Case 16, 22, 32, 48, 96, 128, 256
pic = Stock[CStr(iSize) & "/error"]
Case Else
pic = Stock["16/error"]
End Select
Endif
Return pic
End
Bienvenido, Invitado
Últimos temas
Archivos .ods
Foro: GeneralÚltimo mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 176
Publicidad
Foro: Sobre gambas-es.orgÚltimo mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 313
Web con gambas, a ver si ...
Foro: WebApp/WebFormsÚltimo mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,431
Un sistema de ayudas cont...
Foro: VideotutorialesÚltimo mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 283
Crear una aplicación para...
Foro: Bases de DatosÚltimo mensaje por: Shell, 29-05-2025, 20:11
Respuestas: 11 - Vistas: 1,425