Discussion :

[JeanMarc_T2k]

Bonjour,

Pour mon application, je souhaite définir des couleurs appliquées à certains éléments de mes fenêtres : titre, sous-titre, couleurs de grille, etc...

j'ai donc défini les éléments suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TypeCouleurs =(Titre, SousTitre, Grille1, Grille2, FondFen, FondBarre, Labels);
TabCouleurs = Array[TypeCouleurs] of Tcolor;

Je pensais ensuite déclarer un tableau contenant les couleurs par défaut, et l'initialiser en écrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   CouleursDef : TabCouleurs = [TColor($00A1500A),  {bleu PI}
                                TColor($00007FFF),  {orange PI}
                                TColor($009CD6FF),  {orange pale}
                                TColor($00FFDCB4),  {vert}
                                TColor($00FFDCB4),  {bleu pale}
                                TColor($00007FFF),  {orange PI}
                                TColor($00FFDCB4)];

Mais le compilateur me donne le message suivant :

[Erreur] TypesEtConst.pas(35): L'expression constante dépasse les limites de sous-étendue

Qui peut m'aider à résoudre ce problème ?

D'avance merci

[aityahia]

vous pouvez le déclarer comme constante initialiser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Const TabCouleur:Array[0..2] of TColor =($00A1500A,$00007FFF,$009CD6FF);

[ShaiLeTroll]

Déjà CouleursDef ne peut pas être une variable locale, ensuite, je pense que c'est juste une question de Syntaxe, ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
type
  TypeCouleurs =(Titre, SousTitre, Grille1, Grille2, FondFen, FondBarre, Labels);
  TabCouleurs = Array[TypeCouleurs] of Tcolor;
 
var
  CouleursDef : TabCouleurs = ($00A1500A,  {bleu PI}
                                $00007FFF,  {orange PI}
                                $009CD6FF,  {orange pale}
                                $00FFDCB4,  {vert}
                                $00FFDCB4,  {bleu pale}
                                $00007FFF,  {orange PI}
                                $00FFDCB4);

si c'est à l'intérieur d'une fonction, tu seras obligé de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CouleursDef[Titre] := $00A1500A;
...

[JeanMarc_T2k]

Merci à tous les deux, mon erreur était de mettre des crochets [] au lieu de parenthèses dans l'initialisation du tableau.