[Gambas-user] System colors

[Martín]

ok, the final code is.

   Dim myClass As Class = Classes["Color"]
   Dim sSymbol As String

   For Each sSymbol In myClass.Symbols
     If myClass[sSymbol].Kind = Class.Constant Then
       $Colors[sSymbol] = myClass[sSymbol].Value
     Else If myClass[sSymbol].Kind = Class.Property
       $Colors[sSymbol] = Object.GetProperty(Color, sSymbol)
     Endif
   Next

Thanks Bruce.

Best regards.

Martin.