begin process at 2008 08 29 21:38:17
1 233 910 membres
431 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Changer de couleur une Tshape [ Archives / Graphique ] (norton)

Changer de couleur une Tshape le 19/04/2005 16:17:34

norton
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

Re : Changer de couleur une Tshape le 19/04/2005 18:31:10

Kenavo
Réponse acceptée !
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 !


Re : Changer de couleur une Tshape le 19/04/2005 19:27:11

norton
Super merci
bon dev

Re : Changer de couleur une Tshape le 21/04/2005 07:57:35

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



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




DrJerome

Re : Changer de couleur une Tshape le 21/04/2005 09:55:44

Kenavo
... 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 !




Re : Changer de couleur une Tshape le 21/04/2005 10:00:08

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

DrJerome


Classé sous : changer, couleur, tshape

Participer à cet échange

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS