tincho 27-06-2023, 22:46
Hola crustáceos.
A raíz de un hilo de Alberto sobre los SVG me puse a programar un ejemplo que al final terminó llevándome mas días de lo previsto.
El caso es que, aprovechando que Linux ya tiene una forma de ordenar los iconos, los listé y me puse a contrastarlos con los que usa gambas (Stock)
No me gusta Stock es complicar la cosa, así que hice otro sistema pero respetando el estándar de Linux, luego, ya que estaba, hice un método que pone Dark o Light el formulario sin tener en cuenta el tema de escritorio.
Aquí le muestro el resultado:
![[Imagen: 6LHBtMw.gif]](https://i.imgur.com/6LHBtMw.gif)
Dejé de lado los PNG ya que Shordi hizo un programa para eso, yo me dediqué a los SVG.
A raíz de un hilo de Alberto sobre los SVG me puse a programar un ejemplo que al final terminó llevándome mas días de lo previsto.
El caso es que, aprovechando que Linux ya tiene una forma de ordenar los iconos, los listé y me puse a contrastarlos con los que usa gambas (Stock)
No me gusta Stock es complicar la cosa, así que hice otro sistema pero respetando el estándar de Linux, luego, ya que estaba, hice un método que pone Dark o Light el formulario sin tener en cuenta el tema de escritorio.
Aquí le muestro el resultado:
Dejé de lado los PNG ya que Shordi hizo un programa para eso, yo me dediqué a los SVG.
Archivos adjuntos
Shell 27-06-2023, 20:14
Buenas!
¿ Saben que una misma propiedad puede tener hasta tres nombres sinónimos ?. (identificadores)
Clase
Main:
Salida:
Saludos
¿ Saben que una misma propiedad puede tener hasta tres nombres sinónimos ?. (identificadores)
Clase
Código:
Property text, document, paper As String
Private htext As String
Private Function text_Read() As String
Return htext
End
Private Sub text_Write(Value As String)
htext = Value
EndMain:
Código:
Public Sub Main()
Dim testThing As New Thing
testThing.text = "Hello World!"
Print testThing.text
Print testThing.document
Print testThing.paper
EndSalida:
Cita:
Hello World!
Hello World!
Hello World!
Cita:Property Synonymous
PROPERTY [ READ | WRITE ] Identifier [ , Synonymous1 [ , Synonymous2 ... ] ] AS Datatype
SINCE 3.1
It is possible to declare up to three synonymous to the declared properties by using the second syntax.
Saludos
Shell 27-06-2023, 15:05
Buenas!.
Se que se ha hablado alguna vez. Pero ahora no lo encuentro.
En su día hice una clase que extendía la clase collection , el problema fue que dio error, método de clase mal sobre escrita o algo parecido.
Lo que no puedo asegurar es si el método no existía y luego fue añadido en el editor de Gambas.
Esta es la nueva clase collection. Un trozo de la misma. Donde veis el método Keys2, se llamaba antes Keys.
Y por eso daba error.
Para hacerlo funcionar tuve que renombrarlo.
Ahora os propongo este problema.
Imaginar que heredáis de una clase nativa y añadís un método que "no existe", pero con el tiempo el editor de Gambas crea otro que se llama igual.
¿ Saben lo que significa eso ?.
¿ Es posible averiguar si el método ya existe antes en el editor y en caso contrario usar el personalizado ?.
Creo que sí. Pero significa que antes de usar "cada" método personalizado, debe consultarse si existe uno similar. ( No veas que rollo ).
Saludos
Se que se ha hablado alguna vez. Pero ahora no lo encuentro.
En su día hice una clase que extendía la clase collection , el problema fue que dio error, método de clase mal sobre escrita o algo parecido.
Lo que no puedo asegurar es si el método no existía y luego fue añadido en el editor de Gambas.
Esta es la nueva clase collection. Un trozo de la misma. Donde veis el método Keys2, se llamaba antes Keys.
Y por eso daba error.
Código:
Inherits Collection
Private clavevalor As New Collection
Private valorclave As New Collection
Public Sub _new(diccionario As Collection)
clavevalor = diccionario
End
Public Function Keys2() As String[] ''Devuelve todas las llaves de la colección en un array
Dim claves As New String[]
Dim v As String
For Each v In clavevalor
claves.Add(clavevalor.Key)
Next
Return claves
EndPara hacerlo funcionar tuve que renombrarlo.
Ahora os propongo este problema.
Imaginar que heredáis de una clase nativa y añadís un método que "no existe", pero con el tiempo el editor de Gambas crea otro que se llama igual.
¿ Saben lo que significa eso ?.
¿ Es posible averiguar si el método ya existe antes en el editor y en caso contrario usar el personalizado ?.
Creo que sí. Pero significa que antes de usar "cada" método personalizado, debe consultarse si existe uno similar. ( No veas que rollo ).
Saludos
Bienvenido, Invitado
Últimos temas
Presentación de gbpublish...
Foro: GeneralÚltimo mensaje por: guizans, 02-06-2026, 21:34
Respuestas: 5 - Vistas: 522
Gambas 3.21.1
Foro: Mundo LinuxÚltimo mensaje por: jguardon, 20-05-2026, 22:29
Respuestas: 1 - Vistas: 322
Problema con instalación ...
Foro: WebApp/WebFormsÚltimo mensaje por: guizans, 19-05-2026, 18:54
Respuestas: 1 - Vistas: 360
Problema con el repósito ...
Foro: InstalaciónÚltimo mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 649
UEFI y BIOS
Foro: Hardware & IoTÚltimo mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,805