Discussion :

[Droïde Système7]

Bonjour

Je recherche en vain un compo tout simple comme le ColorDialog, mais en bien plus simple, voir l'image jointe ci-dessous d'une idée de ce que je souhaite.

Car je n'ai surtout pas besoin des couleurs personnalisées !

Simplement de quelques couleurs HTML, au moins les 16 de base.

J'ai regardé un peu partout, j'ai trouvé des tas de compos très chouettes, mais rien de basique comme je souhaiterais.

Si seulement le bas de ce ColorDialog pouvait être enlevé, mais rien vu du côté des Options de ce compo...

Si faut le dériver...

Merci de vos idées.

[Qwazerty]

SAlut
Vu la simplicité de la fenetre dont tu as besoin n'as tu pas autant de quite a carrement faire une form avec des Timage avec la couleur de fond que tu souhaite et la valeur html de cette couleur dans le tag du timage,
Tu cliques ca te passe la valeur du tag dans une variable et tu ferme la fenetre en renvoyant la bonne couleur a la fenetre appelante .

[Edit]
Tiens voila un petit truc fait vite fait
ci joint

Pour pauffiner tu peux rajouter a la class TFormColor une Fonction ShowColor(): Integer; qui renvoie ta couleur html ou 0 (si fermé avec la croix)
Baa je suis bete ou tout simplement avec ShowModal .... qui retourne deja un integer...
[/Edit]

[Edit2]
Sans utiliser TFormColor...
Juste ce bout de code a modifier

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
procedure TForm2.Panel1Click(Sender: TObject);
begin
     If assigned(Precedent) Then Precedent.BorderStyle := BsNone;
     TPanel(Sender).BorderStyle := bsSingle;
     //Form2.ColorHtml := TPanel(Sender).Tag;
     //Form2.ModalResult := TPanel(Sender).Tag;
     Precedent := TPanel(Sender);
end;
 
procedure TForm2.Panel3DblClick(Sender: TObject);
begin
     Panel1Click(Sender);
     Form2.ModalResult := TPanel(Sender).Tag;
     //Form2.Close;
end;

Tu appeles la form2 en ShowModal

avec un double clique sur la bonne couleur ca ferme la fenetre et transmet ta couleur
[/Edit2]
A++
Qwaz

[Qwazerty]

Oupss je viens de voir qu'a force de faire des modif ... le doubleClique est pas pris en compte.. comprend pas...

[Edit]
Bon...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.Panel1Click(Sender: TObject);
begin
     TPanel(Sender).BorderStyle := bsSingle;
     If assigned(Precedent) And (Precedent <> Sender) Then TPanel(Precedent).BorderStyle := BsNone;
     Precedent := Sender;
end;
 
procedure TForm2.Panel1DblClick(Sender: TObject);
begin
     Form2.ModalResult := TPanel(Sender).Tag;
 
end;

comme ca, ca fonctionne
Il faut aussi changer la declaraction de Precedent en TObject.

Par contre il semble que ca pose probleme pour le style XP, les TPanel ne le supporte pas tres bien ...
Voir ici je pense pour resoudre le probleme
[/Edit]

[Droïde Système7]

MagicQwaz,

Je regarde avec attention ce que tu viens de me pondre

je regarde...

Merci !

[Qwazerty]

J'ai remis des pieces jointes propre juste au dessus ^^

[neilbgr]

Déjà en mettant tonColorDialog.Options = [cdPreventFullOpen] ça approche de ton souhait. Maintenant il reste les couleur perso...

[droggo]

Mio,

Bonjour

Je recherche en vain un compo tout simple comme le ColorDialog, mais en bien plus simple, voir l'image jointe ci-dessous d'une idée de ce que je souhaite.

Car je n'ai surtout pas besoin des couleurs personnalisées !

Simplement de quelques couleurs HTML, au moins les 16 de base.

Pour un truc si simple, tu aurais plus vite fait de développer un composant que de passer ton temps à chercher ce qui te convient exactement.

Avec un plus : tu prends l'habitude de faire tes propres composants.

[Droïde Système7]

Hello MagicQwaz,

Un truc que je ne saisissait pas, je viens de trouver :
Bein justement en skinant, les couleurs ne passent pas, regarde la pièce-jointe.

# droggo, bin oui mais pas encore bidouillé du côté des compos alors...

Edit : Cuieux, à partir de la 4ème case deuxème rangée, le double clic n'agit plus. je viens de me rendre compte que tu avais arrêté de taguer à cet endroit

Pour ce qui est des couleurs et leurs gestions, ça c'est dans mes cordes

Reste l'astuce à trouver pour contrer que le skin ne prenne pas la main sur les couleurs. Je regarde...

Merci MagicQwaz !

Je clique pas encore sur Résolu mais cela n'en est pas loin

[Qwazerty]

Oui c'est ce que je te disais un peu plus haut je comprend pas le TPanel ne supporte pas le style XP, il faudrait peut etre tout simplment utiliser un autre compo mais je c pas lequel

[Droïde Système7]

Et oui curieux, tiens j'avais trouvé un hyper super compo (TColorPickerButton), manque de bol, idem le skinage ne prenait pas dessus, pourtant il est dérivé du TButton. Mais aux essais... fiuite de mémoire et plantages cata....

Je cherche pour cette question de color, ce ne doit pas être difficile à touver non d'un cleps

@ + merci encore (mais pas résolu à 100% )

Edit : Le Shape est ok pour la couleur, mais manque de bol question "événements" = no clic's je regarderais aussi si un Shape (autre compo) existe avec ces événements, ou si la nuit porte conseil

[Qwazerty]

Re
Un seul mot a dire TScrollBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.Panel1Click(Sender: TObject);
begin
     TScrollBox(Sender).BorderStyle := bsSingle;
     If assigned(Precedent) And (Precedent <> Sender) Then TScrollBox(Precedent).BorderStyle := BsNone;
     Precedent := Sender;
end;
 
procedure TForm2.Panel1DblClick(Sender: TObject);
begin
     Form2.ModalResult := TScrollBox(Sender).Tag;
 
end;

Avec lui pas de soucis
++
Qwaz