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