<%
'Classe d'opération complète Aspjpeg
Classaspjpeg
Dimaspjpeg_obj, obj
PrivateIMg_mathpath_from, img_mathpath_to, img_reduce_size, couverture
PrivateMg_frame_size, img_frame_color, img_frame_solid, img_frame_width, img_frame_height
PrivateMg_font_content, img_font_family, img_font_color, img_font_quality, img_font_size, img_font_bold, img_font_x, img_font_y
PrivateMg_picin_path, IMG_PICIN_X, IMG_PICIN_Y
'-----------------------------------------------------------------------------------------------------------------------------
PublicProperTyletMathpathfrom (Strype)
Img_mathpath_from = strype
Endproperty
'-----------------------------------------------------------------------------------------------------------------------------
PublicPropertyletMathpathto (strype)
Img_mathpath_to = strype
Endproperty
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletCovePro (LNGSize)
IflngSize = 0orlngsize = 1orlngsize = trueOrlngsize = falsethhen
Couverf = lngSize
Endire
Endproperty
'-----------------------------------------------------------------------------------------------------------------------------
PublicProperTyleteReduceSize (LNGSize)
Ifisnumeric (lngSize) puis
Img_reduce_size = lngSize
Endire
Endproperty
'-----------------------------------------------------------------------------------------------------------------------------
'Épaisseur de bordure
PublicProperTyletFrameSize (LNGSize)
Ifisnumeric (lngSize) puis
Img_frame_size = clng (lngSize)
Endire
Endproperty
'Largeur des frontières
PublicProperTyletFramewidth (LNGSize)
Ifisnumeric (lngSize) puis
Img_frame_width = clng (lngSize)
Endire
Endproperty
'Hauteur de la bordure
PublicProperTyletFrameHeight (LNGSize)
Ifisnumeric (lngSize) puis
Img_frame_height = clng (lngSize)
Endire
Endproperty
'Couleur de bordure
PublicPropertyletFrameColor (Strype)
IfstrType <> "" alors
Img_frame_color = strype
Endire
Endproperty
«La bordure est-elle plus épaisse?
PublicProperTyletFramesolid (LNGSize)
IflngSize = 1orlngSize = 0orlngSize = trueOrlngSize = falsEthhen
Img_frame_solid = lngSize
Endire
Endproperty
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Texte inséré
PublicProperTyletContent (Strype)
IfstrType <> "" alors
Img_font_content = strype
Endire
Endproperty
'Text Font
PublicPropertyletFontfamily (Strype)
IfstrType <> "" alors