<%
'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
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------
PublicPropertyLetMathPathTo(strType)
Img_MathPath_To=strType
EndProperty
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyLetCovePro(LngSize)
IfLngSize=0orLngSize=1orLngSize=trueorLngSize=falsethen
CoverIf=LngSize
EndIf
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------
PublicPropertyLetReduceSize(LngSize)
IfisNumeric(LngSize)then
Img_Reduce_Size=LngSize
EndIf
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------
'Border thickness
PublicPropertyLetFrameSize(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Size=Clng(LngSize)
EndIf
EndProperty
'Border Width
PublicPropertyLetFrameWidth(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Width=Clng(LngSize)
EndIf
EndProperty
'Border height
PublicPropertyLetFrameHeight(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Height=Clng(LngSize)
EndIf
EndProperty
'Border color
PublicPropertyLetFrameColor(strType)
IfstrType<>""then
Img_Frame_Color=strType
EndIf
EndProperty
'Is the border thicker?
PublicPropertyLetFrameSolid(LngSize)
IfLngSize=1orLngSize=0orLngSize=trueorLngSize=falsethen
Img_Frame_Solid=LngSize
EndIf
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------
'Inserted text
PublicPropertyLetContent(strType)
IfstrType<>""then
Img_Font_Content=strType
EndIf
EndProperty
'Text font
PublicPropertyLetFontFamily(strType)
IfstrType<>""then