J'utilise cette fonction qui permet de récuperer le nom d'une couleur à partir de sa valeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
function ColorToString(Color: TColor): string;
begin
 for I := Low(Colors) to High(Colors) do
   With Colors[i] do
   if Value = Color then
   Begin
     Result := Name;
     Exit;
   End;
 //Pas dans la liste, retourne valeur hexa :
 Result := '$'+IntToHex(Color, 8);
end;
mais j'ai maintenant besoin de la routine inverse pour récupérer la valeur à partir du nom de la couleur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
function StringToColor(const S: string): TColor;
begin
...
end;
Merci beaucoup.