Comunidad Gambas-es

EditList, un editor de listas de diferentes tipos

Shordi 06-05-2023, 18:53

Acabo de subir un vídeo de presentación del control EditList, su manejo y sus características a mi canal de Youtube.
Destacar que la versión que se muestra en el video tiene mejoras y características nuevas respecto a la que en su día se presentó en este foro.

Lo tenéis aquí

Por algún motivo ignoto el sonido me ha quedado un poco bajito, pero subís el volumen y ya está.

Espero que os sea útil

Saludos

Videotutoriales Respuestas 5

Obteniendo los colores del sistema + Los de gambas.

tincho 05-05-2023, 15:12

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

      Next

Nuevamente 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)

 Next

Aplicaciones/Fragmentos de Código Respuestas 2

Obtener los colores del sistema, constantes

Shell 05-05-2023, 14:04

Buenas!.

Creo que Tincho está preguntando esto en la lista internacional.
Con este código se obtiene los valores en hexa y la constante del color. ( Las constantes resultan curiosas, obtenerlas ).

Código:
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