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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
|
float fTailleTexte; //*** longueur du texte
float fXPos;
float fYPos;
float MilieuH;
//**fin initialisation des ariables
hDoc=HPDF_New(NULL,NULL);
if(!hDoc){
ShowMessage("Le nouveau document n'a pa pu etre cree");
}
else{
Hnom=NOM;
HPDF_SetCompressionMode(hDoc,HPDF_COMP_ALL);
hFont = HPDF_GetFont(hDoc, "Helvetica", NULL);
hPage = HPDF_AddPage(hDoc);
//*** Ajout d'un titre en haut de la page
//*** Parametre du texte
HPDF_Page_SetFontAndSize(hPage, hFont, 16);
fTailleTexte = HPDF_Page_TextWidth(hPage, Hnom.c_str());
//*** position centrale horizontale//*********************
fXPos = (HPDF_Page_GetWidth(hPage) - fTailleTexte) / 2;
//*** Position verticale//*********************************
fYPos = HPDF_Page_GetHeight (hPage) - 30;
//*** Ajout du texte en haut et au centre du document
HPDF_Page_BeginText (hPage);
HPDF_Page_TextOut (hPage, fXPos, fYPos, "LP Demtrans");
HPDF_Page_EndText (hPage);
//*******************************************************
MilieuH=(HPDF_Page_GetWidth(hPage)- fTailleTexte)/4;//milieu horizontal rectangle//
HPDF_Page_Rectangle(hPage, MilieuH,fYPos-5, fXPos+80, 25);
HPDF_Page_Stroke(hPage);
//********************************************************
HPDF_Image image=HPDF_LoadPngImageFromFile(hPage,"baniere.png");
// HPDF_Page_DrawImage(hPage,image,50,30,200,50);
}
//*** Sauvegarde du document
aFileName = Application->ExeName;
aFileName = ExtractFilePath(aFileName);
aFileName += "Sauvegarde\\Devis\\"+NUMDEVIS+"_"+Hnom+".pdf";
HPDF_SaveToFile(hDoc, aFileName.c_str());
//*** Libération du document
HPDF_Free(hDoc); |
Partager