spheris | #1 Posté le 13/2/2017 à 10:26:27 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Bonjour, Je voudrais que toutes les form (10 forms) de mon projet soit en 1024x768 avec fond gris foncé, et centré sur l'écran. Auriez-vous l'astuce pour faire ça rapidos?
Aujourd'hui dans chaque form je mets :
1
2
3
4
5
6
| PUBLIC SUB Form_open() ME.Width = 1024 ME.Height = 768 ME.Center() ME.background = Color.DarkGrey END
|
|
didier18 | #2 Posté le 13/2/2017 à 18:44:05 |
---|
![]() | Bonjour spheris
Tu peux peut être partir sur un truc comme ça (comme base de départ)...
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
29
30
31
32
33
34
35
36
37
38
39
| ' Gambas class file
PUBLIC frm AS NEW Form[] 'on créé un tableau de formulaires
PUBLIC SUB Form_Open() DIM i AS INTEGER FOR i = 0 TO 2 'on va créer 3 formulaires frm.Add(NULL, frm.Count) 'on ajoute un formulaire et on le compte frm[i] = NEW Form 'on créé un nouveau formulaire frm[i].Tag = i 'on met le numéro du formulaire dans son tag, ce sera plus facile pour y faire référence WITH frm[i] 'ici on défini les dimensions de tous les formulaires .Width = 300 .Height = 250 END WITH SELECT i CASE 0 WITH frm[i] 'ici on défini l'emplacement du formulaire etc... .x = 10 .y = 10 .Background = Color.Blue .Show END WITH CASE 1 WITH frm[i] .x = 50 .y = 50 .Background = Color.red .Show END WITH CASE 2 WITH frm[i] .x = 100 .y = 100 .Background = Color.Yellow .Show END WITH END SELECT NEXT END
|
Il y a certainement plus ergonomique, mais si ça peut aider...
Bonne journée. |
spheris | #3 Posté le 13/2/2017 à 19:37:18 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | merci didier18, une bonne piste certainement. Mais mes form existent déjà et sont déjà bien remplis.
peut être un truc comme ça :
1
2
3
4
5
6
7
8
| DIM mesform AS form[] = ["nomduform1", "nomduform2", "nomduform3", "nomduform4", "nomduform5", "nomduform6"] DIM a AS INTEGER
FOR a = 0 TO 5 mesform[a].width = 1024 mesform[a].height = 768 mesform[a].Background = Color.DarkGrey NEXT
|
sauf que cela ne fonctionne pas
|
didier18 | #4 Posté le 13/2/2017 à 20:36:19 |
---|
![]() | Le problème doit être ailleurs car ici en ajoutant ce code cela fonctionne...
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| ' Gambas class file
PUBLIC frm AS NEW Form[] 'on créé un tableau de formulaires
PUBLIC SUB Form_Open() DIM i AS INTEGER FOR i = 0 TO 2 'on va créer 3 formulaires frm.Add(NULL, frm.Count) 'on ajoute un formulaire et on le compte frm[i] = NEW Form 'on créé un nouveau formulaire frm[i].Tag = i 'on met le numéro du formulaire dans son tag, ce sera plus facile pour y faire référence WITH frm[i] 'ici on défini les dimensions de tous les formulaires .Width = 300 .Height = 250 END WITH SELECT i CASE 0 WITH frm[i] 'ici on défini l'emplacement du formulaire etc... .x = 10 .y = 10 .Background = Color.Blue .Show END WITH CASE 1 WITH frm[i] .x = 50 .y = 50 .Background = Color.red .Show END WITH CASE 2 WITH frm[i] .x = 100 .y = 100 .Background = Color.Yellow .Show END WITH END SELECT NEXT WAIT 2 FOR i = 0 TO 2 frm[i].width = 1024 frm[i].height = 768 frm[i].Background = Color.DarkGray NEXT END
|
Après la temporisation de 2 secondes les formulaires (qui sont déjà créés) sont bien redimensionnés et changés de couleur... N'aurais-tu pas "vérrouillé" (peut être involontairement) tes formulaires ? (du genre Enabled = False ou Resizable = False)
|
Jack | #5 Posté le 14/2/2017 à 08:26:38 |
---|
![]() | Perso, puisque tes forms sont créés avec des valeurs différentes, je passerai par le .settings A moins que tu les mettent en public ce qui ne serait pas forcément une bonne chose. Ca dépend de ce que tu as dedans.Pour un code démocratique nationalisons Gambas. |
gambix | #6 Posté le 14/2/2017 à 15:48:51 |
---|
Faire simple !![](images/avatars/avatar-1.jpeg) | Bon allez la solution par surcharge de la classe Form :
Créez une classe Form.class :
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
29
30
| EXPORT PUBLIC CONST _Properties AS STRING = "*,Standart"
PROPERTY Standart AS BOOLEAN PRIVATE $bStandart AS BOOLEAN
PRIVATE FUNCTION Standart_Read() AS BOOLEAN
RETURN $bStandart
END
PRIVATE SUB Standart_Write(Value AS BOOLEAN) $bStandart = Value IF $bStandart THEN ME.Background = Color.DarkGray ME.Resize(1024, 768) ME.Center ELSE ME.Background = Color.Background ENDIF
END
|
Puis dans chaque formulaire :
1
2
3
| PUBLIC SUB _New() ME.Standart = TRUE END
|
Il y a aussi l'encapsulage sinon :
Dans un module:
1
2
3
4
5
6
7
8
9
10
11
| PUBLIC SUB STandarize(hForm AS form)
WITH hForm .Background = Color.DarkGray .Resize(1024, 768) .Center
END WITH END
|
Puis dans le formulaire :
1
2
3
4
5
| PUBLIC SUB _New()
MModule.Standarize(ME)
END
|
Moins de texte dans une signature c'est agrandir son espace. |
spheris | #7 Posté le 15/2/2017 à 19:35:23 |
---|
![](http://gambaslinux.fr/file/forum/crevette2.png) | Merci, la deuxième soluce ne m'est pas inconnue et je vais plutôt utiliser celle là. Par contre intéressante solution que la première. Cela veut simplement dire que nous pouvons créer des propriétés de chaque widget à foisons et leur donner le nom que nous voulons? Super pratique.
|