+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Obteniendo los colores del sistema + Los de gambas. (/thread-1348.html)
Obteniendo los colores del sistema + Los de gambas. - tincho - 05-05-2023
Hola amigos.
Les comparto una manera de obtener los colores del sistema y los de gambas como por ejemplo, SoftOrange.
El compañero Bruce Steers de la lista de correo internacional ha dado con la solución para obtener las propiedades, ya que las constantes si se pueden obtener desde la clase directamente, pero las propiedades provienen del Objeto.
A raíz del post de Shordi donde buscaba una forma de simplificar el código, finalmente planteo esta manera:
Nota: Por cierto pueden ver el selector de colores de Shordi, que le quedo estupendo y yo subí una versión modificada para trabajar con una colección en vez de con un Variant[].
Código:
Dim myClass As Class = Classes["Color"]
Dim sSymbol As String
For Each sSymbol In myClass.Symbols
If myClass[sSymbol].Kind = Class.Constant Then
$aColors.Add([myClass[sSymbol].Value, sSymbol])
Else If myClass[sSymbol].Kind = Class.Property
$aColors.Add([Object.GetProperty(Color, sSymbol), sSymbol])
Endif
NextNuevamente el amigo Bruce se supera a si mismo y nos propone esta otra manera:
Código:
For Each sSymbol As String In Classes["Color"].Symbols
If Classes["Color"][sSymbol].Kind = Class.Constant Or If Classes["Color"][sSymbol].Kind = Class.Property Then $Colors[sSymbol] = Object.GetProperty(Color, sSymbol)
NextRE: Obteniendo los colores del sistema + Los de gambas. - Grandamakulo - 05-05-2023
Hace algún tiempo pregunté por aquí sobre el tema. Me viene que ni «pintao», oiga.
Muchas gracias.
RE: Obteniendo los colores del sistema + Los de gambas. - tincho - 05-05-2023
(05-05-2023, 17:19)Grandamakulo escribió: Muchas gracias.
De nada. Hace un tiempo también intente averiguar los colores del sistema pero sin éxito.
El pensamiento lateral ha generado buen código.