Changer de couleur une Tshape [Résolu]

Signaler
Messages postés
215
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
21 août 2011
-
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Bonjour, j'aimerai pouvoir faire varier la couleur d'une Tshape avec des TrackBars (une pour le rouge, une pour le vert, une pour le bleu) mais mon problème c'est que je sais pas vraimment comment faire.

Quelqun peut m'aider ??
Merci et bonne journée
++ Norton

5 réponses

Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
3
Salut,



Règle les max de tes TrackBar à 255, et fait pointer l'évènement OnChange de chaque sur la procedure suivante :



procedure TForm1.TrackBarChange(Sender: TObject);

var

Bleu,Vert,Rouge : Integer;

begin

Bleu := TrackBar1.Position;

Vert := TrackBar2.Position;

Rouge := TrackBar3.Position;

Shape1.Brush.Color := $10000*bleu + $100*vert + rouge;

end;



Et voilà !...

... et si en plus tu mets la propriété de ta Form à vrai ...





Ken@vo



Code, Code, Codec !

Messages postés
215
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
21 août 2011

Super merci
bon dev
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

rajoute ceci à ton code, tu auras le scintillement en moins :


<HR>

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=true;
end;


<HR>

DrJerome
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
3
... et si en plus tu mets la propriété de ta Form à vrai ...

^

Ben oui c'est le mot BoubleBuffered que j'ai oublié d'écrire, merci DrJerome


Ken@vo



Code, Code, Codec !


Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Bââh...ça arriveà tout le monde de rater le formatage du texte...(j'ai du mal, moi aussi, à formater...)

DrJerome