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
|
//Initialisation de Haut de page
sInfo est une chaîne
sInfo = InfoBitmap(_sImgLogo)
//Récupération de la taille en px
iImgLargeurPx est un entier = ExtraitChaîne(sInfo,2,TAB)
iImgHauteurPx est un entier = ExtraitChaîne(sInfo,3,TAB)
//Largeur du champ image en mm
iLargeurMm est un réel = IMG_Logo..Largeur
//Hauteur du champ image en mm
iHauteurMm est un réel = IMG_Logo..Hauteur
//Largeur du champ image en px
iLargeurPx est un entier = IMG_Logo..LargeurPixel
//Hauteur du champ image en px
iHauteurPx est un entier = IMG_Logo..HauteurPixel
iCoefLargeur est un réel = iLargeurPx/iLargeurMm
iCoefHauteur est un réel = iHauteurPx/iHauteurMm
//Récupération de la taille de l'image en mm
iImgLargeurMm est un réel = iImgLargeurPx/iCoefLargeur
iImgHauteurMm est un réel = iImgHauteurPx/iCoefHauteur
//Modification de la taille du champ image en mm
IMG_Logo..Image = _sImgLogo
IMG_Logo..Largeur = iImgLargeurMm
IMG_Logo..Hauteur = iImgHauteurMm |
Partager