Attivazione stili XP

[Piscicelli Zingoni]

Salve,
piu' di qualche cliente mi dice ' ma il tuo software ha una vecchia interfaccia Win95'.....

Vi chiedo: e' possibile attivare gli stili XP per i Button,Menu,Window ecc... senza grossisime modifiche ?

Grazie

[Enrico Maria Giordano]

Il modo più semplice è quello di prendere il manifest file, rinominarlo come il tuo EXE + .manifest e copiarlo nella stessa cartella del tuo EXE.

EMG

[Piscicelli Zingoni]

Grande!!

Ma quale file prendere estattamente, poiche' nel mio pc ce ne sono tantissimi (.manifest) io ho preso un 'XPTheme.manifest' andra' bene questo o c'e' ne e' uno in particolare ?

Piscicelli/Zingoni

[Enrico Maria Giordano]

Che io sappia uno vale l'altro.

EMG

[Enrico Maria Giordano]

Tieni presente che se il tuo EXE si chiama PIPPO.EXE allora il manifest file si deve chiamare

PIPPO.EXE.manifest

EMG

[Piscicelli Zingoni]

Ok !
Sai dove posso trovare maggiori informazioni su tale argomento?
Grazie

[Enrico Maria Giordano]

Sicuramente sulla MSDN ma non ti so dire esattamente dove.

EMG

[Piscicelli Zingoni]

Grazie Mille

[Piscicelli Zingoni]

Ho notato che su un pc del cliente tane .manifest non funziona!
Sara' mica perche ' ha XP Sp1 invece che Sp2 ?
Sapete niente se per funzionare ha bisogno del sp2?
Grazie

[Enrico Maria Giordano]

No, funziona su tutti gli XP. Però è possibile disabilitare gli stili. Controlla che siano abilitati. Prova ad aprire, ad esempio, le proprietà del desktop e guarda se lì gli stili si vedono.

EMG

[Piscicelli Zingoni]

HO CAPITO ORA!
GRAZIE

[Silvio]

una domandina semplice semplice :
ho visto in un programma creato con c3 che con un bottone poteva settare lo stile di XP oppure no.

E' possibile farlo anche con xharbour ?

questo è il codice del metodo button in c3

Code: Select all  Expand view

METHOD Button1OnClick( oSender ) CLASS TForm1

   static bThemed := .T.

   bThemed := !bThemed
   ::Caption := If( bThemed, "Con", "Sin" ) + " temas"
   ::Themed := bThemed
   AEval( ::Controls, { | oControl | oControl:Themed := bThemed, ;
          AEval( oControl:Controls, { | oControl | oControl:Themed := bThemed } )                 } )

return

come possiamo farlo anche con xharbour ?

[Silvio]

niente mi ha risposto linares e mi ha detto che ancora in (x) harbour non l'hanno implementato
peccato però perchè mi era di molo utile