Probleme de Conversion RGB en Color

Question

Lorsque je selection une couleur de mon TColorDialog, peu importe la couleur choisi y me retournera toujours les valeurs suivante :
R = 212
G = 208
B = 200

Voici ma procedure :

procedure TForm1.PIClick(Sender: TObject);
var
   RGBColor : LongInt;
begin
   if Couleur.Execute then
   begin
      RGBColor := ColorToRgb(Color);
      IR.Text := IntToStr(GetRValue(RGBColor));
      TIR.Position := GetRValue(RGBColor);
      IG.Text := IntToStr(GetGValue(RGBColor));
      TIG.Position := GetGValue(RGBColor);
      IB.Text := IntToStr(GetBValue(RGBColor));
      TIB.Position := GetBValue(RGBColor);
      PI.Color := Color;
   end;
end;

Et le Panel(PI) n'affiche aucune couleur

yoghisan · Answer

Si ton panel affiche une couleur, apparamment c'est celle de ta form... et comme un panel a generalement la meme couleur de la form, donc pour toi, il se passe rien...

Il y a un truc qui me gene rien qu'a la lecture
RGBColor := ColorToRgb(Color);

la "color" c'est la color de ta form et non de TColorDialog, c'est normal que tu trouves toujours la meme couleur...

ecris plutot :
RGBColor := ColorToRgb(Couleur.Color);

Lennemi · Answer

Oui j'avais trouvé la solution et c'étais effectivement :
RGBColor := ColorToRgb(Couleur.Color);

Merci :)

PyRuSs · Answer

bonjour,



moi j'ai un probleme similaire mais je trouve tjs pas d'ou ca vient

j'utilise TColorDialog, appelle d'Execute et dans l'evenement
OnClose(...) je recupere la valeur du champ color de la boite de
dialog... et la le trou NOIR total... en effet , je recupere du noir,
du noir et encore et toujours du noir.

ma seul piste etait que je convertissai la couleur (type TColor) en
entier (Integer) et je penssai que ca vennai de la... mais non... en
fait a priori c'est ailleurs... et la je suis paum&#233; :(



si kkun a une piste

merci




-_- VS ^_^

yoghisan · Answer

Il ne faut passer par l'&#233;v&#233;nement en close de ton composant TColorDialg ! Il y a beaucoup plus simple ! 


  Couleur := ClWhite // Couleur par d&#233;faut au cas o&#249; tu appuies sur annuler de ton composant TColorDialog
  if ColorDialog1.Execute
    then Couleur  := ColorDialog1.Color;

PyRuSs · Answer

RESPECT!

merci beaucoup
personnellement je penssais que l'evenement onClose renvoyai la valeur choisi et en fait non. autant pour moi

merci encore

-_- VS ^_^

Probleme de Conversion RGB en Color

5 réponses

Votre réponse

Discussions similaires