Colorare la barra dei Menu

Il colore della barra dei Menu di un'applicazione è determinato dal Tema/Desktop impostato, ma con uno stratagemma è possibile impostare un colore a nostro piacimento per tale barra.

Va precisato che la soluzione, che descriveremo, funziona regolarmente se si usano i Componenti delle risorse di GTK; mentre, si usa la risorsa QT, alcuni stili delle impostazioni grafiche delle finestre impediscono il risultato desiderato.

Descrivendo la soluzione proposta ^{[nota 1]}, va detto che la barra dei Menu assume il colore dello sfondo del Form. Pertanto, per mantenere il colore predefinito della restante parte della finestra, si porrà sul Form un Panel, in modo che compra l'intero Form e al quale sarà assegnato il valore Costante del colore ".Background". In tal modo il colore di fondo del Form, da noi scelto, sarà coperto dal colore predefinito ".Background" delPanel, restando invece colorata la barra dei Menu, dato che resta impossibile per il Panel coprire anche la barra dei Menu.

Mostriamo di seguito un esempio essenziale, al quale si dovrà aggiungere l'opportuno codice per creare i sotto-menu del Menu principale.

Private pn As Panel
Private MenuPrinc As Menu


Public Sub Form_Open()

 Dim bt As Button

 With MenuPrinc = New Menu(Me)
   .Text = "Menu 1"
 End With

' Determina l'espansione del "Panel" sull'intera superficie del "Form":
 Me.Arrangement = Arrange.Fill

' Imposta il colore che determinerà la colorazione anche della Barra dei Menu:
 Me.Background = Color.Yellow

 With pn = New Panel(Me)
   .Background = Color.Background
 End With

' Il "Button" - come ogni altro eventuale Controllo grafico da far apparire sul "Form" - va assegnato al "Panel", quale proprio Contenitore "Padre", e NON al "Form" principale, poiché in tal caso esso subirebbe l'effetto dell'espansione della sua dimensione per l'intera superficie del "Form" (come avviene per il "Panel"):
 With bt = New Button(pn) As "Button1"
   .X = 100
   .Y = 100
   .W = 50
   .H = 30
   .Text = "Tasto"
 End With
 
End

Note

[1] Questa soluzione è stata proposta dal membro del forum di gambas-it.org: Gianluigi.