Discussion :

[lejert]

Voila, j'ai fait un ComboBox qui permet de choisir une couleur :

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
procedure TfrmAddItem.cbbAddCategoryColorDrawItem(Control: TWinControl;
                    Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
    if Index <= Length(Colors) - 1 then
        Begin
            cbbAddCategoryColor.Canvas.Pen.Color := clBlack;
            cbbAddCategoryColor.Canvas.FillRect(Rect);
            cbbAddCategoryColor.Canvas.TextOut(30, Rect.Top,VAR_COLOR_TABLE[Index]);
            cbbAddCategoryColor.Canvas.Brush.Color := Colors[Index];
            cbbAddCategoryColor.Canvas.Rectangle(Rect.Left + 2, Rect.Top + 2, 24,Rect.Top + 15);
        End
    else
        Begin // 'Other...' color case
            cbbAddCategoryColor.Canvas.Pen.Color := clBlack;
            cbbAddCategoryColor.Canvas.FillRect(Rect);
            cbbAddCategoryColor.Canvas.TextOut(30, Rect.Top,'Autres...');
        End;
end;

... Ok pas de prob...

Maintenant dans le OnChange, si on selectionne 'Autres...' il ouvre un TColorDialog et tout se passe bien , il me renvoie la couleur.

Mais je ne sais pas dessiner cette couleur dans le comboxBox, je veut dire : dans l'Item qui apparait maintenant et est sélectionné.

Voici ma methode onChange :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfrmAddItem.cbbAddCategoryColorChange(Sender: TObject);
var
    cdgResult : TColor;
begin
    if cbbAddCategoryColor.ItemIndex = Length(Colors) then
        Begin
            cdgAddCategoryColor.Execute;
            cdgResult := cdgAddCategoryColor.Color;
            cbbAddCategoryColor.Canvas.Brush.Color := cdgResult;
            cbbAddCategoryColor.Canvas.Rectangle(Left + 2, Top + 2, 24, Top + 15);
            cbbAddCategoryColor.Canvas.Font.Color := clHighlightText;
            cbbAddCategoryColor.Canvas.TextOut(30, Top,'xxx');
        End;
end;

Celle-ci ne fonctionne pas.... :S


Merci d'avance

[Whiler]

Voila, j'ai fait un ComboBox qui permet de choisir une couleur

Pourquoi n'utilises-tu pas le composant TColorBox (Dans supplément) ? (peut-être parce qu'il n'est pas dispo dans ta version ? parce que tu as un besoin spécifique ?)

[lejert]

C'est une tres bonne question .... lol

En fait je dois pourvoir choisir dans une liste de couleurs specifiques et si elle n'apparait pas, j'ouvre un colorDialog qui me permet de choisir n'importe quelle couleur...

[Whiler]

je ne vois pas de limitation de ce côté là...

as-tu regardé toutes les propriétés du composant :
Si par exemple, tu mets le style suivant : [cbCustomColor,cbPrettyNames,cbCustomColors]

[lejert]

Ok ... je viens de tester, ca a l'air de fonctionner... cepandant, je suis en train de chercher comment allouer uniquement certaines couleurs dans ce 'combobox' et aussi comment recuperer les nom de ces couleurs ...

[Whiler]

Selected pour la couleur choisie....

pour l'ajout, je ne sais pas.. faudrait que je fouille je regarde dès que j'ai 5mn si personne n'apporte la réponse entre temps

[lejert]

Ok merci je regarde de mon cote aussi, bien evidement !

[lejert]

sinon pour le reste :

voici les proprités qu'il faut appliquer au ColorBox

Code :

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

[cbIncludeDefault,cbCustomColor,cbPrettyNames,cbCustomColors]

Le prob est qu'il n'y a pas d'evenement 'OnDrawItem' pour un ColorBox... donc pour dessiner dedans je ne sais pas si c'est possible... car il faut utliser canvas et rectangle -> comment trouver la propriete 'rect' qui premet de choper la zone de dessin??? ...

[Whiler]

donc pour dessiner dedans je ne sais pas si c'est possible...

pq tu veux dessiner ? (j'pensais que c'était seulement pour le choix de la couleur perso ? et comme c'est géré en auto par le composant...)

[lejert]

Oui, oui je veux ajouter seulement une 10zaine de couleurs telles :
clWhile, clAqua...

Pour un composant TCOMBOBox classique, il faut le faire comme ca.

Comme je ne trouve pas de moyens pour inclure seuelent les couleurs que je voudrais, je cherche une autre piste !!! ...

[Whiler]

Je suis en : [cbCustomColor,cbPrettyNames,cbCustomColors]
.. j'mets pas les defaults, puisque tu n'en veux qu'une dizaine...

et voila mon test qui marche parfaitement :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  oneColor : TColor;
begin
  oneColor := clRed;
  ColorBox1.AddItem('Ben rouge !', TObject(oneColor));
end;

et plus besoin d'autre piste sinon, pour info, le OnDrawItem est protected... dans TCustomColorListBox

Code :

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

1
2
  protected
    procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;

[lejert]

Arf ... c'était donc si simple !!!! ... evidement, moi je cherchais plus compliqué ...

Merci bcp pour ton aide !!!

[Whiler]