Icona e colore testo nel TabPanel

[kicco]

 
Come si fa a inserire un'icona e colorare il testo del titolo di ogni pannello nel TabPanel?
vedi allegato!

grazie!

[kicco]

L'icona con la proprietà picture 

[vuott]

Poniamo il caso di voler impostare un TabPanel con tre tabelle. Per ogni tabella imposteremo un'immagine di tipo Picture ed un testo colorato del titolo:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  TabPanel1.Count = 3
  
  With TabPanel1[0]
    .RichText = "<FONT color=yellow>1</font>"
    .Picture = Picture.Load("/percorso/immagine")
  End With
  
  With TabPanel1[1]
    .RichText = "<FONT color=green>2</font>"
    .Picture = Picture.Load("/percorso/immagine")
  End With
  
  With TabPanel1[2]
    .RichText = "<FONT color=blue>3</font>"
    .Picture = Picture.Load("/percorso/immagine")
  End With

End

[kicco]

Grazie
 

[kicco]

  Vuott,

ho provato ma mi dice che RichText non è una proprietà di TabPanel!

[vuott]

...mi dice che RichText non è una proprietà di TabPanel!

...a che versione è aggiornato il tuo Gambas ?

[kicco]

...alla 3.5.1!

[vuott]

...non saprei.
A me funziona perfettamente !

Posso anche aggiungere che se vuoi inserire il grassetto del testo puoi fare così:

Codice: gambas [Seleziona]

With TabPanel1[2]
.RichText = "<FONT color=green><B>2</b></font>"  

[vuott]

....prova anche questo:  

Codice: gambas [Seleziona]

With TabPanel1[1]
.RichText = "<Table border=1><TR><TD>1</td><TD>2</td></tr><TR><TD>3</td><TD>4</td></tr></table>"

[kicco]

Grazie Vuott,
ma credo che non capisca la proprietà RichText.
Hai per caso attivato qualche componente particolare?
 

[vuott]

Hai per caso attivato qualche componente particolare?

No.  ...uso le qt4, ma niente di speciale. 

Il codice va scritto così come lo vedi là.

[Top Fuel]

Anche a me non riconosce .RichText.
Però io ho la 3.1.1

[vuott]

Io ho Gambas 3.5.1, vers. #6010.
Ho effettuato una schermata (vedi allegato) dove è possibile vedere che .RichText fa parte delle proprietà di TabPanel[index].

Molto probabilmente è stato inserito da poco con gli aggiornamenti effettuati via SVN. 

[kicco]

E' molto probabile
Grazie!
 

[vuott]

Aggiungo che la proprietà .RichText consente di impostare anche immagini:

Codice: gambas [Seleziona]

With TabPanel1[0]
  .RichText = "<img src=/percorso/dell'immagine></img>"
  ......

...ma anche contemporaneamente immagine e testo:

Codice: gambas [Seleziona]

With TabPanel1[0]
  .RichText = "<img src=/percorso/dell'immagine></img> kicco"
  ......