Personnaliser les couleurs d’un TColorDialog
Ajouter une liste de couleurs personnalisées dans un TColorDialog.
L’idée est simple : préparer une liste de couleurs au format hexadécimal, les injecter dans la propriété CustomColors, puis afficher la boîte de dialogue.
procedure TForm1.Button1Click(Sender: TObject);
var
ColorDialog: TColorDialog;
ListCustomColor: TStringList;
begin
ColorDialog := TColorDialog.Create(nil);
ListCustomColor := TStringList.Create;
with ListCustomColor do
begin
Add('ColorA=5BE144');
Add('ColorB=E22823');
Add('ColorC=AE13AA');
Add('ColorD=B61B12');
Add('ColorE=0C35FA');
Add('ColorF=7364C8');
Add('ColorG=9F3157');
Add('ColorH=9199A2');
Add('ColorI=D34752');
Add('ColorJ=51B565');
Add('ColorK=21A74D');
Add('ColorL=C9DD3C');
Add('ColorM=30D64D');
Add('ColorN=DE8029');
Add('ColorO=94D23E');
Add('ColorP=34F3DC');
end;
ColorDialog.CustomColors := ListCustomColor;
ListCustomColor.Free;
ColorDialog.Execute();
ColorDialog.Free;
end;Un petit clic (J'aime) qui fait plaisir !
