Richieste varie

[Lux]

Ciao, ho un nuovo problemino (come al solito).
Diciamo che ho un tabstrip, al quale tramite codice ho modificato il colore.
Ora vorrei, mediante il click su di un pulsante apposito, ripristinare il colore di sistema, ma non ho capito come fare.

Problema N° due: partendo dallo steso tabstrip, vorrei poter cambiare il font, utilizzando un fontchooser, sempre con un click su di un pulsante. Il meccanismo dovrebbe essere questo: tramite il fontchooser setto il carattere e le dimensioni del font, e poi col click applico le modifiche....
ciao e grazie mille.

[leo72]

1)
Un esempio potrebbe essere questo:
crei un form in cui metti dentro un Colorchooser. Cliccando su un pulsante apposito, apri il form e fai scegliere il colore all'utente tramite un ColorButton che poi tu imposti sul tabstrip.
A questo punto il codice potrebbe essere (quello che segue è una specie di pseudo-codice, l'ho scritto "a braccio", senza controllare la sintassi):
Poi imposti TabStrip.ForeColor = ColorButton.Color nell'evento ColorButton_Change().

2)
In teoria dovresti legare il font selezionato, che è in FontChooser.SelectedFont, al font del tuo controllo, ma credo che tu debba utilizzare un passaggio intermedio ed un oggetto di tipo Font per fare il trasbordo dei dati perché mi pare che tu non possa utilizzare un assegnamento diretto del tipo Controllo.Font = FontChooser.SelectedFont.

[Lux]

Grazie mille leo!
1) Per l'esempio del colore, sono riuscito a fare come dici ma se dopo avr cambiato colore vorrei tornare ad utilizzare il colore di sistema Default(quando scelgo nelle proprietà in background mi da la possibilità di scegliere quale tipo di colore, libero o di sistema) come dovrei impostare?

2) Per il font io ho scritto così:TabsTrip1.font = Fontchhoser1.SelectedFont
ma mi restituisce un errore:

[fsurfing]

prova con

Codice: [Seleziona]

TabsTrip1.font = Fontchoser1.font 

[Lux]

fatto, non mi da nessun errore ma non mi cambia il font....

[md9327]

Prova con un Refresh della tabstrip

[Lux]

niente....

[fsurfing]

anche se spesso incompleta a volte la guida di gambas è molto utile

la procedura è questa:

Codice: [Seleziona]

DIM sfont AS Font
 sfont = Font[FontChooser1.Value]
  TabStrip1.Font = sfont 

[Lux]

Ho copiato pari pari ma non mi cambia il font....ovviamente non mi restituisce nessun errore.
Ecco come ho scritto, nel caso avessi copiato male:

Codice: [Seleziona]

PUBLIC SUB ToolButton9_Click()  
      DIM sfont AS Font  
      sfont = Font[FontChooser1.Value]  
      TabStrip1.Font = sfont 
END

[fsurfing]

strano verifica che scegliendo il font questo cambi nella casella sotto a fontchoser....a me funge benissimo

[Lux]

si, il font cambia nel fontchooser....ma nel tab no....

[Lux]

raga,niente non mi riesce.... :cry:

[md9327]

Quale libreria stai usando? gb.gtk o gb.kde ?

[Lux]

Gtk, sto usando le gtk....

[md9327]

Forse è proprio quello il problema, ma devo verificare...