[TColorDialog] en plus simple

Version imprimable

25/11/2007, 16h26
Droïde Système7

[TColorDialog] en plus simple

Bonjour :D

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... :aie:

Merci de vos idées.

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:

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

1 pièce(s) jointe(s)

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

[Edit]
Bon...
Code:

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]

25/11/2007, 19h20
Droïde Système7

:coucou: MagicQwaz,

Je regarde avec attention ce que tu viens de me pondre :mouarf:

je regarde...

Merci !
25/11/2007, 19h26
Qwazerty

J'ai remis des pieces jointes propre juste au dessus ^^
25/11/2007, 19h36
neilbgr

Déjà en mettant tonColorDialog.Options = [cdPreventFullOpen] ça approche de ton souhait. Maintenant il reste les couleur perso...
25/11/2007, 19h40
Droïde Système7
Code:

1 2 3 4 5 ... private { Déclarations privées } Var Precedent : TObject; ...
ça foire un peu sur "Precedent" :oops:

Edit : j'ai mis la variable en Public et ça fonctionne, je regarde et admire le reste...

Edit 2 : nul besoin du truc XP, je skinne directo en VCLSkin :D

# neilbgr, déjà fait depuis longtemps et pas zoli ;)
25/11/2007, 19h56
Qwazerty

re 8-)

Citation:

Envoyé par Droïde Système7

Edit : j'ai mis la variable en Public et ça fonctionne, je regarde et admire le reste...

Ha ben chez moi ca passe comprend pô :s

Citation:

Envoyé par Droïde Système7

Edit 2 : nul besoin du truc XP, je skinne directo en VCLSkin :D

Ben tant mieux ... par ce que j'ai regardé avec le truc sur phidel ... ben j'ai pas reussi TPanlel doit pas faire parti des composant de base

A++
Qwaz
25/11/2007, 19h57
droggo

Mio,

Citation:

Envoyé par Droïde Système7

Bonjour :D

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. :)
25/11/2007, 20h01
Droïde Système7

Hello MagicQwaz,

Un truc que je ne saisissait pas, je viens de trouver :
Bein :oops: 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... :P

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

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

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 :king:
25/11/2007, 20h20
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 :)
25/11/2007, 20h25
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 :mouarf:

@ + 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 :roll: je regarderais aussi si un Shape (autre compo) existe avec ces événements, ou si la nuit porte conseil ;)

Re
Un seul mot a dire TScrollBox

Code:

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

25/11/2007, 20h45
ero-sennin

Bonsoir,

Pourquoi ne pas utiliser un TImage ?
25/11/2007, 20h53
Droïde Système7
Re ,

Citation:

Un seul mot a dire TScrollBox

Idem :oops: les couleurs ne passent pas dessus :roll:

# ero-sennin : voui bonne idée, mais not propriété "Color" :oops:

@+ et n'oublions pas : la nuit porte conseil 8-)

Edit :
Code:

1 2 3 4 5 procedure TForm2.Shape1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin beep; end;
Peut-être qu'avec seulement l'événement MouseUp du Shape, ça puisse "passer"...
Hé oui, ça "beep" au clic de mulot, et les couleurs restent !

@ demain 8-)

Re,

Si, mais on passe plutôt par là :

Code:

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clRed;
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Image1.Canvas.Brush.Color));
end;

C'est une idée ...

Re
Alors fort de ce que viens de nous signaler ero-sennin voila ce que je te propose pour garder un aspet 3D

Dans chaque Panel tu place un Timage avec Client comme Alignement
Ensuite tu leur attribu ces evenement la
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm2.Image1Click(Sender: TObject); begin TPanel(TImage(Sender).parent).BorderStyle := bsSingle; If assigned(Precedent) And (Precedent <> TImage(Sender).parent) Then TPanel(Precedent).BorderStyle := BsNone; Precedent := TImage(Sender).parent; end; procedure TForm2.Image1DblClick(Sender: TObject); begin Form2.ModalResult := TImage(Sender).Tag; end;
Tu dois par contre definir la couleur de chacun de tes Image a la creation de la Form
Comme suit (a faire pour chacune des Image... oui je sais c long :mouarf: )
Code:

1 2 3 4 5 6 procedure TForm2.FormCreate(Sender: TObject); begin Image1.Canvas.Brush.Color:=clRed; Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height)); // Image1.Tag := [....] end;
Bonne nuit
A++

26/11/2007, 14h55
Droïde Système7

Bonjour :D

Grâce au TImage, oui en effet, le skinage n'intervient pas et laisse les couleurs tranquilles.

Finalement, j'ai enlevé tous les panels des cases color , idem enlevé du code tout ce qui faisait référence à ces panels.

Question look, je vais voir comment faire, afin que cela donne un peu de 3D, mais aucune importance ici ; le principal était le principe d'algo.

Affaire résolue donc avec brio grâce à MagicQwaz, notre Harry Coder du forum et à l'idée toute simple, mais non moins efficace d'ero-sennin du TImage.

Merci les copains :king:

@+ ;)
26/11/2007, 15h39
Droïde Système7

Bonus

:coucou:

En marge en en prime de ce thread, je vous donne le fichier zippé du TColorPickerButton.Pas, également trois miniatures vous détaillant son superbe aspect.

J'ajoute que bien des sites US le proposent, mais les URL pointent vers des sites commerciaux sans rapport avec la programmation...

J'ajoute aussi que ce compo sur mon Delphi 7 (Win98se) est hyper instable, à tel titre que juste à l'instant j'ai eu un mal de cleps à killer les messages d'erreurs, sans parler en même temps d'une super fuite de mémoire !

Mais pourtant, bon sang ; qu'il est beau ce compo sous ses multiples facettes !

Ci-dessous, vous pouvez vous ces déclinaisons ; celle simple et les autres avec au dessous une palette superbe supplémentaire.

Vous pouvez également constater qu'il ne prend pas le skinage :roll:

C'est la raison du TButton ajouté en haut de chaque capture afin de distinguer ce refus de skinage.

Mais qu'il est beau ce TColorPickerButton !!! 8-)

Edit : il semble que ce compo freeware soit remplacé par un nouveau portant un autre nom, mais n'étant plus du tout freeware : le TColorBox2000. J'ai ajouté une miniature.