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