[Shordi]

¿Alguien sabe cómo obtener el color de la barra de títulos de las ventanas del sistema?
Ese color se establece eligiendo el tema de Escritorio, pero ¿hay alguna manera de conocerlo desde consola o desde alguna clase estática de gambas?

Saludos

[vuott]

Yo creo que en Gambas solo puedes saber "a posteriori " (como diría nuestro excellentismo Cónsul romano, Shell  ) el color de la barra simplemente conociendo uno de sus pixeles usando el Método "Desktop.Screenshot()" o el Método ".GetScreenshot()" de la Clase DesktopWindow , activando el Componente gb.desktop.x11.

[Shordi]

Lo investigaré, Oh Consul dilecto! gracias por la pista dada.

Saludos

[Shell]

Yo creo que en Gambas solo puedes saber "a posteriori " (como diría nuestro excellentismo Cónsul romano, Shell  ) el color de la barra simplemente conociendo uno de sus pixeles usando el Método "Desktop.Screenshot()" o el Método ".GetScreenshot()" de la Clase DesktopWindow , activando el Componente gb.desktop.x11.

"Olim, aut etiam. c'era una volta". Y para los modernos. Erase una vez.

Individual color values of a pixel?

Gianlugi dio la solución y el embajador Vuott cumplió su cometido.
Bajaros el ejemplo ya que es bastante curioso y muy sencillo. El código es a penas nada.

En el código se usa las coordenadas  del ratón para averiguar el valor RGB. Pero si le dices directamente el lugar
también se puede conseguir el mismo resultado.

"Vigilate et discite."

GAMBAS

Public Sub GetPixelColor(x As Integer, y As Integer)
 
  Dim iColor As Integer
 
  Print "Mouse.X = "; Mouse.X
  Print "Mouse.Y = "; Mouse.Y
  iColor = PictureBox1.Picture.Image[x, y]
  Print "Current pixel color = "; iColor
  Print "Red  = "; Color[iColor].Red
  Print "Green = "; Color[iColor].Green
  Print "Blue = "; Color[iColor].Blue
Catch
  Print "ERROR"
 
End
 
Public Sub PictureBox1_MouseUp()
 
  GetPixelColor(Mouse.X, Mouse.Y)
 
End

Recordar que hace falta un picturebox con una imagen.

Saludos

[tincho]

En el foro antiguo plantie el mismo tema pero no dimos con la solucion.
https://foro.gambas-es.org/viewtopic.php?f=5&t=5850

[vuott]

En el foro antiguo plantie el mismo tema pero no dimos con la solucion.

Yo veo que razaAztk dio una solución similar a una  que en el presente debate yo he propuesto:

https://foro.gambas-es.org/show_post.php?p=34977

---

Gianlugi dio la solución

Pero yo  creo que la solución no es la solicitada por Shordi.