<%
'Clase de operación integral de ASPJPEG
Classaspjpeg
Dimaspjpeg_obj, obj
Privateimg_mathpath_from, img_mathpath_to, img_reduce_size, coverif
Privateimg_frame_size, img_frame_color, img_frame_solid, img_frame_width, img_frame_height
PrivateImg_Font_Content, IMG_FONT_FAMILY, IMG_FONT_COLOR, IMG_FONT_QUALDY, IMG_FONT_SIZE, IMG_FONT_BOLD, IMG_FONT_X, IMG_FONT_Y
PrivateImg_Picin_Path, IMG_PICIN_X, IMG_PICIN_Y
'-------------------------------------------------------------------------------------------------------------------------
PublicPropertyletMathPathFrom (strtype)
Img_mathpath_from = strtype
Endpropertía
'-------------------------------------------------------------------------------------------------------------------------
PublicPropertyletMathPathto (strtype)
Img_mathpath_to = strtype
Endpropertía
'---------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletCovePro (LNGSIZE)
Iflngsize = 0orlngsize = 1orlngsize = trueRlngsize = falsethen
Coverif = lngsize
Endif
Endpropertía
'-------------------------------------------------------------------------------------------------------------------------
PublicPropertyletReducesize (LNGSIZE)
Ifisnumérico (lngsize) entonces
Img_reduce_size = lngsize
Endif
Endpropertía
'-------------------------------------------------------------------------------------------------------------------------
'Espesor del borde
PublicPropertyletframesize (LNGSIZE)
Ifisnumérico (lngsize) entonces
Img_frame_size = clng (lngsize)
Endif
Endpropertía
'Ancho fronterizo
PublicPropertyletFrameWidth (LNGSIZE)
Ifisnumérico (lngsize) entonces
Img_frame_width = clng (lngsize)
Endif
Endpropertía
'Altura del borde
PublicPropertyletFrameHeight (LNGSIZE)
Ifisnumérico (lngsize) entonces
Img_frame_height = clng (lngsize)
Endif
Endpropertía
'Color del borde
PublicPropertyletFrameColor (strtype)
Ifstrtype <> "" entonces
Img_frame_color = strtype
Endif
Endpropertía
'¿El borde es más grueso?
PublicPropertyletframesolid (LNGSIZE)
Iflngsize = 1orlngsize = 0orlngsize = trueRlngsize = falsethen
Img_frame_solid = lngsize
Endif
Endpropertía
'-------------------------------------------------------------------------------------------------------------------------
'Texto insertado
PublicPropertyletContent (strtype)
Ifstrtype <> "" entonces
Img_font_content = strtype
Endif
Endpropertía
'Fuente de texto
PublicPropertyletFontfamily (strtype)
Ifstrtype <> "" entonces