|
| Iniciado por 43, 22,nov. 2004 17:10 - No hay respuesta |
| |
| | | |
|
| |
| Publicado el 22,noviembre 2004 - 17:10 |
Je reprends une ammplciation où je peux créer un dessin...
Mon problème apparaît lors de l'impression dans un état de ce dessin.
Pour des problèmes de WINDEV, je suis obliger de créer le dessin dans une fenêtre X, de l'enregistrer en temporaire au format JPEG ou autre, d'associer ce fichier à mon champ image.
Mon problème est que quelque fois mon image n'est pas enregistrée à 100%, en hauteur ou en largeur, elle est coupée, j'ai tout essayer, variation d'échelle et tout et tout mais rien y fait.
Si quelqu'un peut m'aider...
Voici mon code sur mon champ Image de mon état avant impression
***************************************************************
Res est une chaîne
ResSauvegarde est un booléen
CheminImage est une chaîne
//*** On regarde si un dessin est associé ***
SI WDJOB_LIGNE.jl_co_dessin_autre = "" _OU_ WDJOB_LIGNE.jl_co_dessin_autre = 0 _OU_ WDJOB_LIGNE.jl_co_dessin_autre = Null ALORS
SI WDJOB_LIGNE.fichier_dessin = "" _OU_ WDJOB_LIGNE.fichier_dessin = 0 _OU_ WDJOB_LIGNE.fichier_dessin = Null ALORS
Image1..Visible = Faux
RETOUR
SINON
Image1..Valeur = WDJOB_LIGNE.fichier_dessin
RETOUR
FIN
SINON
Image1..Visible = Vrai
FIN
//*** Recherche du code source du dessin ***
HLitRecherchePremier(WDBiblioDessin,BIBCODE,WDJOB_LIGNE.jl_co_dessin_autre,hIdentique)
//*** Compilation du dessin ***
Ex_Echelle = 10
Ex_Largeur = TxtLargeurMODELESD
Ex_Hauteur = TxtHauteurMODELESD
Trace("Hauteur: " + Ex_Hauteur + TAB + "Largeur: " + Ex_Largeur)
Res = Compile("MaProcedure",RTFVersTexte(WDBiblioDessin.BIBSOURCE))
SI Res = "" ALORS
ExécuteTraitement("MaProcedure", trtProcédure,"Windevis2.IMAGE","Windevis2.IMAGE")
SINON
Erreur(Res)
RETOUR
FIN
//*** On actualise les données du numéro de dessin ***
INIEcrit("DESSIN","Date",DateVersChaine(DateSys(),"JJ-MM-AA"),fRepExe() + "\Windevis.ini")
INIEcrit("DESSIN","Num",NumériqueVersChaine(Val(Droite(NumeroDessinGenere,3)) + 1,"03d"),fRepExe() + "\Windevis.ini")
NumeroDessinGenere = INILit("DESSIN","Num","001",fRepExe() + "\Windevis.ini")
CheminImage = CheminDessinTmpUser + "\Dessin " + NumeroDessinGenere + ".jpeg"
//**** Création du fichier image ***
Windevis2.Image..Hauteur = Ex_Hauteur / 8.9
Windevis2.Image..Largeur = Ex_Largeur / 9
Windevis2.Image..Visible = Vrai
ResSauvegarde = dSauveImageJPEG(Windevis2.Image,CheminImage,80)
//*** On regarde si aucunes erreurs ***
SI ResSauvegarde = Faux ALORS
Erreur(ErreurInfo(errComplet))
FIN
//***Attribution de l'image au champ ***
Image1..Valeur = CheminImage |
| |
| |
| | | |
|
| | | | |
| | |
|