Public Sub Ejemplo2()
  Dim cl As Class
  Dim s As String
  cl = Class.Load("Color")
  For Each s In cl.Symbols
    If cl[s].Kind = Class.Method Then Continue
    Print Hex(Object.GetProperty(cl, s), 8), s
    Wait 0.3
  Next
  Me.Close
End(05-05-2023, 14:12)vuott escribió: Que es esta Class "Color"
Cita:Esta es una clase estática que define las constantes de los colores predefinidos, propiedades que devuelven los colores del sistema y métodos de utilidad.

Cita:
En Gambas el componente de color alfa esta invertido en comparación con la codificación de color estándar.
Para ser mas claros, un componente alfa de cero es totalmente opaco, mientras que un componente alfa de 255 es totalmente transparente.
(05-05-2023, 14:22)vuott escribió: Sin embargo, todos los colores del sistema están contenidos en el siguiente archivo:

