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: