1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| i,j sont des entier
T est un entier = Taille(SAI_Client)
nNb_lig_ZR est un entier = ZoneRépétéeOccurrence(ZR_Suunto)
// désactive l'affichage sinon la nouvelle mise en forme ne s'affiche pas
ZR_Suunto..AffichageActif = Faux
// boucle de parcour de toutes les lignes de la zone répétée
POUR i = 1 A nNb_lig_ZR
// SAI_RTF_Temp est un champ de saisi de type RTF à placer en dehors de l'écran il sert à effectuer la nouvelle mise en forme
// par ce que la fonction RTFSélection ne fonctionne pas directement sur les champ RTF dans une zone répétée
SAI_RTF_Temp = ZR_Suunto[i].SAI_TonChampRTF_dans_la_zoneRepetee
// j = position du 1er SAI_Client contenu dans SAI_RTF_Temp
j = RTFRecherche(SAI_RTF_Temp,SAI_Client)
TANTQUE j > 0
// Passage fond jaune
RTFSélection(SAI_RTF_Temp, rtfCouleurFond, JauneClair, j, T)
// Recherche du SAI_Client suivant
j = RTFRecherche(SAI_RTF_Temp, SAI_Client, rtfSensibleCasse, j+1)
FIN
// une fois la mise en forme terminée du champ SAI_RTF_Temp on l'affecte au champ RTF de la ligne en cours de la zone répétée
ZR_Suunto[i].SAI_TonChampRTF_dans_la_zoneRepetee = SAI_RTF_Temp
FIN
// active l'affichage pour que la nouvelle mise en forme s'affiche
ZR_Suunto..AffichageActif = Vrai |
Partager