Discussion :

[aimer_Delphi]

Bonjour a tous,
dans la propriété Color dans n'importe quel composant (bien-sûr qui possède cette ),
les couleurs sélectionnées dans la palettes ne s'affiche plus (toujours noir) .

image ci-joint :


avez vous une idée , svp?

[XeGregory]

Bonjour a tous,
dans la propriété Color dans n'importe quel composant (bien-sûr qui possède cette ),
les couleurs sélectionnées dans la palettes ne s'affiche plus (toujours noir) .

En bas, ce sont les couleurs personnalisées et non la couleur sélectionnée.

[aimer_Delphi]

Merci ,
mais le problème n'est pas résolu .

[Volid]

dans la propriété Color dans n'importe quel composant (bien-sûr qui possède cette ),

Cette propriété n'est pas commune si le dialogue est créé dynamiquement il aura donc sa propre liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 StoredCustumColors: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TColorDialog.Create(nil) do
  try
     CustomColors.Text := StoredCustumColors;
     if Execute() then
     begin
        //
     end;
  finally
    StoredCustumColors := CustomColors.Text;
    Free;
  end;
end;

[XeGregory]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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;

[Jipété]

--snip--

Joli exemple où, sans rien changer, ni un accent ni une virgule, ça fonctionne aussi sous Lazarus/Linux, avec 4 couleurs en plus sorties je ne sais d'où (EDIT : les 4 en bas à droite au-dessus des boutons /EDIT) :

Code :

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

1
2
3
4
presque noir  26  26  26
gris foncé    77  77  77
gris clair   191 191 191
à peine gris 229 229 229