<٪
'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_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
'-------------------------------------------------------------------------------------------------------------------------------
PublicPropertyletreducsize (LNGSize)
ifisnumeric (lngsize) ثم
img_reduce_size = lngsize
Endif
endproperty
'-------------------------------------------------------------------------------------------------------------------------------
سمك الحدود
PublicPropertyletframesize (LNGSize)
ifisnumeric (lngsize) ثم
img_frame_size = clng (lngsize)
Endif
endproperty
عرض الحدود
publicpropertyletframewidth (lngsize)
ifisnumeric (lngsize) ثم
img_frame_width = clng (lngsize)
Endif
endproperty
ارتفاع الحدود
PublicPropertyletframeHeight (Lngsize)
ifisnumeric (lngsize) ثم
img_frame_height = clng (lngsize)
Endif
endproperty
لون الحدود
PublicPropertyletframeColor (Strtype)
ifstrttype <> "" ثم
img_frame_color = strtype
Endif
endproperty
هل الحدود أكثر سمكا؟
publicpropertyletframesolid (lngsize)
iflngsize = 1orlngsize = 0orlngsize = trueorlngsize = falsethen
img_frame_solid = lngsize
Endif
endproperty
'-------------------------------------------------------------------------------------------------------------------------------
نص إدراج
PublicPropertyletContent (Strtype)
ifstrttype <> "" ثم
img_font_content = strtype
Endif
endproperty
'خط النص
PublicPropertyletfontfamily (Strtype)
ifstrttype <> "" ثم