Assignations multiples de façon plus simple

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:

---

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

Citation:

---

Envoyé par 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:

---

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:

---

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 :)

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

Code:

---

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;

---

Citation:

---

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

---

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

@+,

Cincap

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

Code:

---

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 :)

@ Aka Guymelef, excellent cette procedure !

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

Code:

---

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

Pareil :

Code:

---

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 ;)

Salut,

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

@Aka

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

Petit exemple:

Code:

---

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, 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

Citation:

---

Envoyé par Andnotor

@Aka

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

---

Merci pour la rectification Andnotor ;)

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