Discussion :

[cincap]

Bonjour à toutes et à tous,

Voici ma question, est t'il possible de faire plus simple que ceci (en bleu),

J'ai essayé ce qui est en rouge mais forcément un bug :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if not cd2.Execute then exit else begin

{TextTrayIcon1.Color := cd2.Color;
TextTrayIcon2.Color := cd2.Color;
TextTrayIcon3.Color := cd2.Color;
TextTrayIcon4.Color := cd2.Color; }

 TextTrayIcon1.Color and TextTrayIcon2.Color and TextTrayIcon3.Color and
 TextTrayIcon4.Color := cd2.Color;
end;

Merci d'avance,

@+,

Cincap

[Paul TOTH]

Bonjour à toutes et à tous,

Voici ma question, est t'il possible de faire plus simple que ceci (en bleu),

J'ai essayé ce qui est en rouge mais forcément un bug :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if not cd2.Execute then exit else begin

{TextTrayIcon1.Color := cd2.Color;
TextTrayIcon2.Color := cd2.Color;
TextTrayIcon3.Color := cd2.Color;
TextTrayIcon4.Color := cd2.Color; }

 TextTrayIcon1.Color and TextTrayIcon2.Color and TextTrayIcon3.Color and
 TextTrayIcon4.Color := cd2.Color;
end;

Merci d'avance,

@+,

Cincap

Pour faire simple je dirais que non

ensuite si tu as un besoin récurant de modifier ces 4 variables tu peux dans le OnCreate de ta fiche alimenter un array ou une liste avec ces 4 objets que tu pourras alors parcourir dans une boucle

Code :

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

1
2
3
 
  for i := 0 to Length(TextTrayIcons) - 1 do
   TextTrayIcons[i].Color := cd2.Color;

PS: ta proposition en rouge est amusante mais n'a aucun sens en Pascal

[cincap]

@ Paul TOTH, merci de ta proposition, en fait "TextTrayIcon1" est un composant et j'avais fait ceci qui forcément fonctionne :

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
 
procedure TMainForm.Dufond1Click(Sender: TObject);
begin
 
cd2.Color := TextTrayIcon1.Color or TextTrayIcon2.Color or TextTrayIcon3.Color
or TextTrayIcon4.Color ;
 
if not cd2.Execute then exit else begin
 
TextTrayIcon1.Color := cd2.Color;
TextTrayIcon2.Color := cd2.Color;
TextTrayIcon3.Color := cd2.Color;
TextTrayIcon4.Color := cd2.Color;
 
end;
end;

PS: ta proposition en rouge est amusante mais n'a aucun sens en Pascal

C'est pourquoi je suis membre "débutant"

@+,

Cincap

[Aka Guymelef]

Une façon de faire mais qui nécessite de coder une procédure/fonction supplémentaire serait de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure PutColor( const couleur: TColor; TrayIcons: array of TTrayIcons );
var
 Cpt: Integer;
begin
  for Cpt := Low(TrayIcons) to High(TrayIcons) do
   TrayIcons[Cpt].Color:= couleur;
end;
 
procedure TMainForm.Dufond1Click(Sender: TObject);
begin
  PutColor( cd2.Color, [TextTrayIcon1, TextTrayIcon2, TextTrayIcon3, TextTrayIcon4] );
end;

Note qu'avec cette solution tu peux passer autant de TrayIcons que tu veux, il suffit de les ajouter dans le tableau ouvert

[cincap]

@ Aka Guymelef, excellent cette procedure !

N. B. pour créer mon fichier ini, j'étais obligé en gros de faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
Ini.WriteInteger('Paramètres','Couleur du fond 1',TextTrayIcon1.color);
Ini.WriteInteger('Paramètres','Couleur du texte 1',TextTrayIcon1.font.color);
Ini.WriteInteger('Paramètres','Couleur du fond 2',TextTrayIcon2.color);
Ini.WriteInteger('Paramètres','Couleur du texte 2',TextTrayIcon2.font.color);
Ini.WriteInteger('Paramètres','Couleur du fond 3',TextTrayIcon3.color);
Ini.WriteInteger('Paramètres','Couleur du texte 3',TextTrayIcon3.font.color);
Ini.WriteInteger('Paramètres','Couleur du fond 4',TextTrayIcon4.color);
Ini.WriteInteger('Paramètres','Couleur du texte 4',TextTrayIcon4.font.color);

Avec ta méthode, je pourrai peut être aussi simplifier ce code ?

@+,

Cincap

[Aka Guymelef]

Pareil :

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 WriteIniTrayIcons( TrayIcons: array of TTrayIcons );
var
 Cpt: Integer;
begin
  for Cpt := Low(TrayIcons) to High(TrayIcons) do
  begin
    Ini.WriteInteger('Paramètres','Couleur du fond ' + IntToStr(Cpt),TrayIcons[Cpt].color);
    Ini.WriteInteger('Paramètres','Couleur du texte ' + IntToStr(Cpt),TrayIcons[Cpt].font.color);
  end;
end;
 
[...]
begin
  WriteIniTrayIcons( [TextTrayIcon1, TextTrayIcon2, TextTrayIcon3, TextTrayIcon4] );
end;

Petit bémol ici, les font et couleur sont numérotés par rapport à leur instances respectives (1 pour TextTrayIcon1, etc...) or dans ma routine j'utilise le compteur ce qui signifie que les objets doivent être passés dans l'ordre croissant exclusivement pour ne pas avoir de problème de numérotation.

Je t'invites à aller te renseigner sur la notion de "tableau ouvert" pour mieux comprendre ce qu'il se passe ici et ainsi mieux appréhender tes futurs développements avec cette technique

[Kaféine]

Salut,

moi je me demande pourquoi il y a 4 trayicons dans l'appli...

[Andnotor]

@Aka

Je dirais qu'il te manque un IntToStr(Cpt+1). Un tableau ouvert commence toujours à l'indice 0 .

Petit exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure ShowLow(Arg :array of integer);
begin
  ShowMessage(IntToStr(Low(Arg)));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  x : array[100..110] of integer;
begin
  ShowLow(x);
end;

[Aka Guymelef]

@Aka

Je dirais qu'il te manque un IntToStr(Cpt+1). Un tableau ouvert commence toujours à l'indice 0 .

Merci pour la rectification Andnotor

[cincap]

Ohé, cela fonctionne sauf la sauvegarde du fichier *.ini.

De plus, je constate lors du choix de la couleur Clblack du Tcolordialog, le fond s'affiche clWhite, je pense que c'est propre à ce composant TColorDialog.

A mon avis pour le fichier *.ini, ma boucle n'est pas correcte.

@+,

Cincap

[cincap]

@ Aka Guymelef, grand merci pour ton aide, c'est comme cela que l'on progresse, en faisant partager les idées.

@ Kaféine, tout simplement parceque je fais afficher mon Ip dans 4 TrayIcon plutôt que dans 1.

Merci encore @ AndNotOr,

@+,

Cincap