<%
'Aspjpeg Kelas Operasi Komprehensif
Classaspjpeg
DIMASPJPEG_OBJ, OBJ
Privateimg_mathpath_from, img_mathpath_to, img_reduce_size, covertif
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
'-------------------------------------------------------------------------------------------------------------------------
Publicpropertyleteducesize (lngsize)
Ifisnumerik (lngsize) lalu
Img_reduce_size = lngsize
Endif
Endproperty
'-------------------------------------------------------------------------------------------------------------------------
'Ketebalan perbatasan
PublicPropertyletFramesize (lngsize)
Ifisnumerik (lngsize) lalu
Img_frame_size = clng (lngsize)
Endif
Endproperty
'Lebar perbatasan
PublicPropertyletFramewidth (lngsize)
Ifisnumerik (lngsize) lalu
Img_frame_width = clng (lngsize)
Endif
Endproperty
'Tinggi perbatasan
PublicPropertyletFrameHeight (lngsize)
Ifisnumerik (lngsize) lalu
Img_frame_height = clng (lngsize)
Endif
Endproperty
'Warna perbatasan
PublicPropertyletFrameColor (Strtype)
Ifstrtype <> "" lalu
Img_frame_color = strtype
Endif
Endproperty
'Apakah perbatasannya lebih tebal?
PublicPropertyletFramesolid (lngsize)
Iflngsize = 1orlngsize = 0orlngsize = trueorlngsize = falsethen
Img_frame_solid = lngsize
Endif
Endproperty
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Teks yang dimasukkan
PublicPropertyletContent (Strtype)
Ifstrtype <> "" lalu
Img_font_content = strtype
Endif
Endproperty
'Font teks
PublicPropertyletFontFamily (Strtype)
Ifstrtype <> "" lalu