Même attribut à tous les Formulaires : − Le Wiki Gambas

La même police de caractère partout :

1 2 3 4	`SUB form_open() form.font =module.fonctionnom form.fontsize =module.fonctiontaille END`

1 2 3 4 5 6 7 8 9 10	`PUBLIC SUB Form_Open() DIM ob AS OBJECT FOR EACH ob IN ME.Controls ob.Font = Font["symbol,20"] ob.Text = "Abcde" NEXT END`

Dans une class nommée Form :

1 2 3 4 5 6 7 8	`CREATE STATIC EXPORT PUBLIC SUB _new() ME.Font = Font["Purisa,11"] END`

Imposer à tous les formulaires de mon application, à la volée, le résultat d'un fontchooser :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28	`' Gambas class file CREATE STATIC EXPORT PUBLIC SUB _new() DIM obs AS Observer obs = NEW Observer(ME) AS "Fto" ME.Font = Font["Purisa,11"] END PUBLIC SUB fto_Font() DIM win AS Window DIM obj AS OBJECT FOR EACH win IN Windows Object.Lock(win) win.font = Font["Serif"] FOR EACH obj IN win.Children TRY obj.font = Font["Serif"] NEXT Object.Unlock(win) NEXT END`

Il suffira de changer Font["Serif"] par une variable publique puis dans la class qui change la Font :

1 2	`manouvellefont = fontchooser.value ME.Font = Font[manouvellefont]`