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