Discussion :

[ddubois]

J'utilise un combo "OwnerDraw" qui affiche les couleurs dans un rectangle dans chaque item et le nom de la couleur en face.
Mais le nom des couleurs s'affiche en anglais ! est-il possible de les afficher en francais ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const Colors: array[0..17] of TColor =
 (clAqua, clBlack, clBlue, clDkGray, clFuchsia, clGray, clGreen, clLime, clLtGray, clMaroon, clNavy, clOlive, clPurple, clRed, clSilver, clTeal, clWhite,	clYellow) ;
 
procedure TForm6.ColorComboDrawItem();
var
  cName: string;
begin
 
 cName:=ColorToString(Colors[Index]);
 Delete(cName,1,2); //supprime les 'cl' (ex : clBlue, clBlack, etc.)
 
 TextOut(Rect.Left + 24,Rect.Top, cname);
end;

Merci,

Denis

[ShaiLeTroll]

ColorToString est prévu pour l'IDE pour que la propriété Color dans les controls s'affiche clairement, tu dois refaire de la fonction

Code :

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

1
2
3
4
5
function ColorToFrenchString(Color: TColor): string;
begin
  if not IntToIdent(Color, Result, FrenchColors) then
    FmtStr(Result, '%s%.8x', [HexDisplayPrefix, Color]);
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
const
  Colors: array[0..51] of TIdentMapEntry = (
    (Value: clBlack; Name: 'Noir'),
    (Value: clMaroon; Name: 'Marron'),
    (Value: clGreen; Name: 'Vert'),
    (Value: clOlive; Name: 'Vert Olive'),
    (Value: clNavy; Name: 'Bleu Marine'),
    (Value: clPurple; Name: 'Poupre'),
    (Value: clTeal; Name: 'Euh ?'),
    (Value: clGray; Name: 'Gris'),
...

[Aka Guymelef]

PS : j'ai fait une petite recherche car ça m'intrigue depuis longtemps et il semblerait que la fameuse couleur "teal" se traduise par Sarcelle en français.

[ddubois]

genial merci.

Denis