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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| PROCEDURE ColleTampon(FichierIn,FichierOut,sTexteTampon,CouleurTampon est une WL.Couleur,PosXGauche,PosYbas,posXDroit,PosYHaut)
//sTexte est une chaîne
nPositionX est un entier
nPositionY est un entier
nCoulB est un entier = CouleurTampon..Bleu
nCoulR est un entier = CouleurTampon..Rouge
nCoulV est un entier = CouleurTampon..Vert
MonFichierPDF est un PdfReader(FichierIn)
fluxSortie est un FileStream(FichierOut, FileMode.OpenOrCreate)
pdfStamper est un PdfStamper(MonFichierPDF,fluxSortie)
pclPageRectangle est un "itextsharp.text.rectangle" dynamique = MonFichierPDF.GetPageSizeWithRotation(1)
pdfData est un PdfContentByte dynamique = pdfStamper.GetOverContent(1)
//create fontsize for watermark
pdfData.SetFontAndSize(BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED), 10);
//create new graphics state and assign opacity
graphicsState est un PdfGState()
graphicsState.FillOpacity = 1
//set graphics state to pdfcontentbyte
pdfData.SetGState(graphicsState);
//définit une couleur
pclCoul est un "itextsharp.text.Color" dynamique
pclCoul = allouer un "itextsharp.text.Color" (nCoulR,nCoulV,nCoulB)
//définit un rectangle
pclRectangle est un "itextsharp.text.rectangle" dynamique
pclRectangle = allouer un "itextsharp.text.rectangle" (PosXGauche,posXDroit,PosYbas,PosYHaut)
pclRectangle.BackgroundColor = pclCoul
pdfData.Rectangle(pclRectangle)
nPositionX = PosXGauche + 30
nPositionY = PosYHaut - 45
//ecrit une ligne pour chaque ligne de mon texte
POUR TOUTE CHAÎNE sLigneTampon DE sTexteTampon SEPAREE PAR RC
pdfData.BeginText();
pdfData.ShowTextAligned(Element.ALIGN_LEFT,sLigneTampon,nPositionX,nPositionY,0)
nPositionY -= 12
pdfData.EndText()
FIN
//close stamper and output filestream
pdfStamper.Close()
fluxSortie.Close() |
Partager