<%
'ASPJPEG Classe de operação abrangente
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_quality, 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
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletMathPathto (STRTYPE)
Img_mathpath_to = strtype
EndProperty
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyLetCovePro (LNGSIZE)
IflngSize = 0orlngSize = 1orlngSize = trueorlngSize = falsethen
Coverif = lngSize
Endif
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------------
PublicPropertyLetRedUcesize (LngSize)
Ifisnumeric (lngSize) então
Img_reduce_size = lngsize
Endif
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------------
Espessura da borda
PublicPropertyLetFramesize (LNGSIZE)
Ifisnumeric (lngSize) então
Img_frame_size = clng (lngsize)
Endif
EndProperty
'Largura da fronteira
PublicPropertyLetFrameWidth (LNGSIZE)
Ifisnumeric (lngSize) então
Img_frame_width = clng (lngsize)
Endif
EndProperty
Altura da borda
PublicPropertyLetFrameHeight (LNGSIZE)
Ifisnumeric (lngSize) então
Img_frame_height = clng (lngsize)
Endif
EndProperty
Cor da borda
PublicPropertyLetFrameColor (STRYPE)
Ifsttype <> "" então
Img_frame_color = strtype
Endif
EndProperty
'A borda é mais espessa?
PublicPropertyLetFamesolid (LNGSIZE)
IflngSize = 1orlngSize = 0orlngSize = trueorlngSize = falsethen
Img_frame_solid = lngsize
Endif
EndProperty
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Texto inserido
PublicPropertyLetContent (strtype)
Ifsttype <> "" então
Img_font_content = strtype
Endif
EndProperty
'Fonte de texto
PublicPropertyLetFontFamily (STRYPE)
Ifsttype <> "" então