Vars:IndicNom( "Cours%DateRef_Multi01By"); // 140330 V01 // 1502180159 some comments // Yves BENOIT y.benoit@yahoo.fr inputs: DateRef( 100101) ; // DEFINITION DES VARIABLES & TABLEAUX Vars: Init(0),Coef1(0),Date0(0),mm(0),M(4); Arrays: TxStr[4](""),Coef[4](0),Couleur[4](Black);; // INITIALISATIONS DES VALEURS if Init=0 Then Begin Date0=1000000+DateRef; Couleur[1]=Black; // Couleur[2]=Red; // Couleur[3]=Blue; // Couleur[4]=DarkGreen; // Init=1; End; // Fin // Fin if Init=0 // COMMENCER A PARTIR DE DATEREF if Date>=Date0 Then Begin // INITIALISATION AU MOMENT DE DATEREF ET TRACE FLECHE If Date[1]=Date0 // ECRITURE FINALE DES NOMS DES INSTRUMENTS vars: Final(0); If Date=LastCalcDate and Time=LastCalcTime and Final=0 Then Begin for mm=1 to M Begin // EcritGraphLgnText_DT01fBy is a function using all Text Manipulation functions // please do it yourself ! EcritGraphLgnText_DT01fBy(DateTime,High of Data(mm)*Coef[mm],TxStr[mm],Couleur[mm],1,0,1,True,10,"Courrier New",White,True ); // 0=droite 1=gauche 2=centre, 0= Haut 1= Bas 2=centre, 0=border 1=bold 2=Italic 3=strikeout 4=underline, True=with border, FontSize Print(IndicNom+"> Final>"+NumtoStr(Date,0)+": "+TxStr[mm]); end; // Fin for mm=1 to M Final=1; End; // Fin If LastBarOnChart // FIN Vars:IndicNom( "Cours%DateRef_Multi01By");