Discussion :

[cincap]

Bonjour à toutes et à tous,

Dans mon fichier .ini lors de la sauvegarde de la couleur d'un TDialogColor, j'obtiens un nombre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Color21=8388736

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  I: Integer;
Fichierini : Tinifile;
begin
 
  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI')) do
 
  try
    for I := Low(GlobalShapes) to High(GlobalShapes) do
 
     FichierIni.WriteInteger('COULEUR','CouleurDefaut',ColorToString(ChoixDesCouleurs.Color));
 finally
   FichierIni.Free;
 end;
end;

Ce nombre correspond à la couleur Clpurple.

Serait t'il possible d'obtenir une conversion directe décimal/texte lors de la sauvegarde ?

Merci d'avance,

@+,

cincap

[SergioMaster]

Bonjour,

je ne comprends pas la question car la fonction ColorToString fait bien ce qui est demandé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(ColorToString(8388736));

clPurple

[Edit] il a fallu que j'aille sur la discussion pour comprendre !
Il faut remplacer ChoixDesCouleurs.Color par la couleur de l'objet TShape(GlobalShapes[I]).brush.Coloret bien sûr il faudra utiliser la fonction StringToColor dans la procedure Create

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI')) do
  try
    for I := Low(GlobalShapes) to High(GlobalShapes) do
      GlobalShapes[I].Brush.Color :=StringToColor(ReadString('Shapes', Format('Color%d', [i]), 'clnone')); 
  finally
    Free();
  end;
end;

[cincap]

Bonjour à toutes et à tous,

@ SergioMaster, désolé pour le retard, merci pour ta suggestion si j'ai bien compris, j'ai testé mais sans résultat donc je n'ai pas insisté car c'est un demi mal, l'application fonctionne déjà très bien.

"ChoixDesCouleurs.Color" est le nom du TColorDialog.

Dans les prochains jours, je m'y intéresserai plus amplement.

@+,

cincap

[cincap]

@ SergioMaster, ok tout est en ordre grâce à ta suggestion j'ai deux façons pour la sauvegarde des couleurs.

Mon erreur était dans le Onclose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  I: Integer;
begin
  //with TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI')) do
   FichierIni:= TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI'));
  try
    for I := Low(GlobalShapes) to High(GlobalShapes) do
      FichierIni.Writestring('Shapes', format('Color%d', [i]), ColorToString(TShape(GlobalShapes[I]).brush.Color));
   finally
   FichierIni.Free;
 end;
 
end;

Encore merci.

@+,

cincap