Changer couleur du TEdit à partir de valeurs d'un INI (fichier)Résolu

Question

Bonjour &#224; toutes et tous.

A partir de 2 petites sources, j'ai fait ce petit truc.

Le principe :

-On clique sur un TButton "Couleur", cela ouvre le TColorDialog, on choisit sa couleur et la couleur de fond du TEdit prend cette couleur.
La couleur choisit s'affiche dans le TLabel au format Couleur HTML (#FFFF00)

-On a un bouton "Enregistrer", et lorsque l'on clique dessus, cela met la valeur du TLabel (donc #FFFF00) dans un fichier INI.

-Maintenant, j'aimerais qu'&#224; l'ouverture du programme (FormCreate), la couleur de fond du TEdit, soit celle qui a &#233;t&#233; enregistr&#233;e dans le fichier INI (A savoir #FFFF00), donc jaune.
Ca fait 2 jours que je gal&#232;re et que j'ai essay&#233; de multiples bidouilles mais sans r&#233;sultats.

J'esp&#232;re qu'une &#226;me charitable passera dans le coin.

Voici le programme ci-dessous et j'esp&#232;re qu'il y a suffisement d'explications.
C'est &#224; la fin dans FormCreate que se situe le probl&#232;me ;)

{------------------------------------------------}
{transformation d'un TColor en Couleur type HTML }
{------------------------------------------------}
function ColorToHtml(Color:TColor):String;
Var R,G,B : LongInt;
begin
   B:=GetBValue(ColorToRGB(Color));
   G:=GetGValue(ColorToRGB(Color));
   R:=GetRValue(ColorToRGB(Color));
   Result:='#'+IntToHex(R,2)+IntToHex(G,2)+IntToHex(B,2);
   end;


// ----- Clic sur le 1er bouton pour choisir sa couleur &#224; partir d un TColorDialog
procedure TForm1.Button_Var_01Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
// Ici on met la couleur de fond du TEdit par celle choisi dans le TColorDialog
    Edit_Var_01.Color:=ColorDialog1.Color;


// Ici on met la valeur ex #FFFF00 dans un TLabel
    LabelCouleurHtml_01.Caption:= ColorToHtml(Edit_Var_01.Color);


  end;
end;


// ----- Enregistrement de la valeur du TLabel dans une fichier INI
procedure TForm1.EnregistrerClick(Sender: TObject);
Var FichierIni : TIniFile;
begin
FichierIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Monfichier.ini'); //Cr&#233;&#233;e le fichier INI si il n'existe pas
FichierIni.WriteString('Test','Texte1',LabelCouleurHtml_01.Caption); //Ecrit dans le fichier INI, la valeur du TLabel ex: #FFFF00
FichierIni.Free; //Lib&#232;re le fichier
end;


// ----- A l'ouverture du programme La couleur de fond du TEdit doit correspondre &#224; la valeur se trouvant dans mon fichier INI
procedure TForm1.FormCreate(Sender: TObject);
Var FichierIni : TIniFile;


    begin
FichierIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Monfichier.ini');


// Ci-dessous j'ai mis LabelCouleurHtml_01.Caption,parce que c'est la seule chose qui fonctionnait, mais apr&#232;s cela ne me sert pas &#224; grand chose :(
LabelCouleurHtml_01.Caption:=FichierIni.ReadString('Test','Texte1','DELPHI'); //Lit dans le fichier INI la valeur ex: #FFFF00


Edit_Var_01.Color := ?????; // Je ne sais pas quoi mettre ICI pour qu'a l'ouverture la couleur de fond soit celle de mon fichier INI &#224; savoir #FFFF00


// En mettant &#231;a ci-dessous cela fonctionne mais cela ne m'int&#233;resse pas ;)
Edit_Var_01.Color := $00FFFF00;


FichierIni.Free;
end;


end.

cs_neko · Accepted Answer

Enregistre la couleur plutot que le texte

// ----- Enregistrement de la valeur du TColor dans une fichier INI

procedure TForm1.EnregistrerClick(Sender: TObject);
Var FichierIni : TIniFile;
begin
FichierIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Monfichier.ini'); //Cr&#233;&#233;e le fichier INI si il n'existe pas
FichierIni. WriteInteger ('Test','Texte1',Edit_Var_01.Color); //Ecrit dans le fichier INI, la valeur de la couleur ( Le type TColor est en fait simplement un entier
FichierIni.Free; //Lib&#232;re le fichier
end;


// ----- A l'ouverture du programme La couleur de fond du TEdit doit correspondre &#224; la valeur se trouvant dans mon fichier INI
procedure TForm1.FormCreate(Sender: TObject);
Var FichierIni : TIniFile;


    begin
FichierIni: =TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Monfichier.ini');


// Ci-dessous j'ai mis LabelCouleurHtml_01.Caption,parce que c'est la seule chose qui fonctionnait, mais apr&#232;s cela ne me sert pas &#224; grand chose :(
Edit_Var_01.Color:= FichierIni. ReadInteger ('Test','Texte1',clWhite); //Lit dans le fichier INI la valeur ex: #FFFF00


LabelCouleurHtml_01.Caption: ='#'+
                                   IntToHex(GetBValue(ColorToRGB(Edit_Var_01.Color)))+
                                   IntToHex(GetGValue(ColorToRGB(Edit_Var_01.Color)))+;
                                   IntToHex(GetRValue(ColorToRGB(Edit_Var_01.Color)));

FichierIni.Free;
end;

bouh

exyacc · Answer

essayes avec les fonctions colortostring et stringtocolor....

exyacc

cs_SSB · Answer

Salut Neko et Exyacc.



Merci tout d'abord de m'avoir r&#233;pondu.



Etant d&#233;butant Exyacc, vous pensez
bien que je me suis de suite orient&#233; vers la r&#233;ponse de Neko, &#233;tant
donn&#233; qu'il m'avait d&#233;j&#224; mach&#233; le boulot, je n'ai plus eu qu'&#224; prendre
la paille pour tout aspirer ;).



Neko suite &#224; votre r&#233;ponse, j'ai d'abord &#233;t&#233; content (en voyant votre
r&#233;ponse),  d&#233;&#231;u (en la mettant en pratique) et de nouveau content
(en bidouillant tout &#231;a au pifom&#232;tre ;) ).



Maintenant tout fonctionne comme je voulais :))))



Sauf qu'il y avait quelques petites erreurs dans la source que vous m'avez donn&#233;.



LabelCouleurHtml_01.Caption:= '#'+
IntToHex(GetBValue(ColorToRGB(Edit_Var_01.Color)))+
IntToHex(GetGValue(ColorToRGB(Edit_Var_01.Color)))+;
IntToHex(GetRValue(ColorToRGB(Edit_Var_01.Color)));



La 1&#232;re erreur est le point virgule sur la 3&#232;me ligne.



Ensuite j'ai eu des messages d'erreurs &#224; propos de IntToHex.

En regardant la doc de delphi pour IntToHex, j'ai vu &#231;a :

Label1.Caption :=Label1.Caption +IntToHex(Edit1.Text[i],2)+'';



Alors au pif j'ai remplac&#233; par (en ajoutant  ,2 ):

IntToHex(GetBValue(ColorToRGB(Edit_Var_01.Color)),2)+



Et l&#224; j'avais presque tout bon, mais un peu comme le loto dans le d&#233;sordre.

Et en zieutant un peu mieux, j'ai vu votre cha&#238;ne qui &#233;tait BGR au lieu
de RGB, donc apr&#232;s bidouillage pifom&#233;trique, au final cela donne :



LabelCouleurHtml_01.Caption: ='#'+
IntToHex(GetRValue(ColorToRGB(Edit_Var_01.Color)),2)+
IntToHex(GetGValue(ColorToRGB(Edit_Var_01.Color)),2)+
IntToHex(GetBValue(ColorToRGB(Edit_Var_01.Color)),2);



Et l&#224; apparement cela fonctionne bien (apr&#232;s quelques essais).



Donc si vous repassez par ici, vous me confirmez, que ce que j'ai modifi&#233; au petit bonheur la chance, est correct????



Autre petite question.

Dans mon code d'origine, il y avait ceci avec DELPHI, &#224; la fin

FichierIni.ReadString('Test','Texte1','DELPHI');



Et dans le votre il y a clWhite

FichierIni.ReadInteger('Test','Texte1',clWhite);



A quoi correspond cette derni&#232;re valeur?



En tout cas Merci Neko, d'avoir prit le temps de taper toutes ces
lignes de codes et de m'avoir donn&#233; la solution, sans vous je n'y
serait jamais arriv&#233; (et je d&#233;sesp&#233;rais)... I'm haaaappppppyyyy comme
dirait l'autre ;)



Re-merci aussi 
exyacc de m'avoir r&#233;pondu.



Salut.

cs_neko · Answer

Oula, pas de vouvoiement lol 

Bon, tes correction elle sont tout &#224; fait bonnes ( j'avou que j'avais
pas test&#233; le code d'o&#249; toutes les fautes d'inatention genre les point
virgules lol ) et donc je m'escuse de t'avoir donn&#233; un code qui
marchait a moit&#233; seulement, enfin tu a r&#233;ussi a corriger c'est
l'important.



Ensuite pour &#231;a:

FichierIni.ReadInteger('Test','Texte1',clWhite);

et bien c'est tr&#232;s simple puisque &#231;a veux simplement dire que si la
valeur de Texte1 n'est pas trouv&#233;e ( lors de la premi&#232;re utilisation du
programme par exemple ) la fonction te renvoie clWhite ( donc la
couleur blanche ) c'est une valeur par defaut quoi.






bouh

Changer couleur du TEdit à partir de valeurs d'un INI (fichier)

4 réponses

Votre réponse

Discussions similaires