Visualizza wikitesto di 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.

Va precisato che la soluzione, che descriveremo, funziona regolarmente <SPAN Style="text-decoration:underline">se si usano i Componenti delle risorse di '''GTK'''</span>; mentre, si usa la risorsa QT, alcuni stili delle impostazioni grafiche delle finestre impediscono il risultato desiderato.

Descrivendo la soluzione proposta <SUP>&#091;[[#Note|nota 1]]&#093;</sup>, 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" del ''Panel'', 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
 
 <FONT Color=gray>' ''Determina l'espansione del "Panel" sull'intera superficie del "Form":''</font>
  Me.Arrangement = Arrange.Fill
 
 <FONT Color=gray>' ''Imposta il colore che determinerà la colorazione anche della Barra dei Menu:''</font>
  Me.Background = Color.Yellow
 
  With pn = New Panel(Me)
    .Background = Color.Background
  End With
 
 <FONT Color=gray>' ''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"):''</font>
  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: [https://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi].