<%
'ASPJPEG Comprehensive Operation Class
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
Endproperschaft
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletMathPathto (STRTYPE)
Img_mathpath_to = strtype
Endproperschaft
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletCovepro (lngSize)
IflngSize = 0OrlngSize = 1OrlngSize = truorlngSize = falsethen
Coverif = lngSize
Endif
Endproperschaft
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletreducessize (lngSize)
Ifisnumeric (lngSize) dann
IMG_REDUCE_SIZE = LNGSIZE
Endif
Endproperschaft
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Randdicke
PublicPropertyletframesize (lngSize)
Ifisnumeric (lngSize) dann
Img_frame_size = clng (lngsize)
Endif
Endproperschaft
'Grenzbreite
PublicPropertyletframeWidth (lngsize)
Ifisnumeric (lngSize) dann
Img_frame_width = clng (lngsize)
Endif
Endproperschaft
'Randhöhe
PublicPropertyletFrameHeight (lngSize)
Ifisnumeric (lngSize) dann
Img_frame_height = clng (lngSize)
Endif
Endproperschaft
'Randfarbe
PublicPropertyletFrameColor (STRTYPE)
Ifstrype <> "" dann
Img_frame_color = strtype
Endif
Endproperschaft
'Ist der Rand dicker?
PublicPropertyletframesolid (lngSize)
IflngSize = 1OrlngSize = 0OrlngSize = truorlngSize = falsethen
Img_frame_solid = lngsize
Endif
Endproperschaft
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Eingefügter Text
PublicPropertyletContent (STRTYPE)
Ifstrype <> "" dann
IMG_FONT_CONTENT = STRTYPE
Endif
Endproperschaft
'Text Schrift
PublicPropertylletfontfamily (STRTYPE)
Ifstrype <> "" dann