; ID: 1679
; Author: AntMan - Banned in the line of duty.
; Date: 2006-04-18 08:36:08
; Title: EasyHtml
; Description: Helper funcs to easily generate html pages with images/headers etc
Type THml
Global as:TStream
Function SetActiveStream( in:TStream )
as = in
End Function
Function Header(title:String)
WriteLine as,""
WriteLine as,""
WriteLine as,""+title+""
WriteLine as,""
End Function
Function BodyHead()
WriteLine as,""
End Function
Function HeadHead(size:Int,align:String="")
If align = ""
WriteLine as,""
Else
WriteLine as,""
EndIf
End Function
Function Break()
WriteLine as,"
"
End Function
Function StrongHead()
WriteLine as,""
End Function
Function StrongFoot()
WriteLine as,""
End Function
Function BigHead()
WriteLine as,""
End Function
Function BigFoot()
WriteLine as,""
End Function
Function EmpHead()
WriteLine as,""
End Function
Function EmpFoot()
WriteLine as,""
End Function
Function ItalicHead()
WriteLine as,""
End Function
Function ItalicFoot()
WriteLine as,""
End Function
Function SmallHead()
WriteLine as,""
End Function
Function SmallFoot()
WriteLine as,""
End Function
Function SubHead()
WriteLine as,""
End Function
Function SubFoot()
WriteLine as,""
End Function
Function SupHead()
WriteLine as,""
End Function
Function SupFoot()
WriteLine as,""
End Function
Function PreHead()
WriteLine as,""
End Function
Function PreFoot()
WriteLine as,"
"
End Function
Function varHead()
WriteLine as,""
End Function
Function VarFoot()
WriteLine as,""
End Function
Function acronHead(ac:String)
WriteLine as,""
End Function
Function AcronFoot()
WriteLine as,""
End Function
Function QuoteHead()
WriteLine as,""
End Function
Function QuoteFoot()
WriteLine as,"
"
End Function
Function LinkHeadTar(html:String,tar:String)
WriteLine as,""
End Function
Function LinkHead(html:String)
WriteLine as,""
End Function
Function SectionHead(name:String)
WriteLine as,""
End Function
Function FrameSetRow( size:Int[],src:String[],nam:String[])
Local cols = size.length
Local cs:String
For Local j=0 Until cols
If j>0 cs:+","
cs:+String( size[j] )+"%"
Next
WriteLine as,""
End Function
Function ListHead()
WriteLine as,""
End Function
Function ListFoot()
WriteLine as,"
"
End Function
Function ItemHead()
WriteLine as,""
End Function
Function ItemFoot()
WriteLine as,""
End Function
Function FrameSetCol( size:Int[],src:String[],nam:String[])
Local cols = size.length
Local cs:String
For Local j=0 Until cols
If j>0 cs:+","
cs:+String( size[j] )+"%"
Next
WriteLine as,""
End Function
Function LinkFoot()
WriteLine as,""
End Function
Function Image(border=0,src:String,width,height,align="")
If align = ""
WriteLine as,"img border='"+String(border)+"' src='"+src+"' width='"+String(width)+"' height='"+String(height)+"'>"
Else
WriteLine as,"img border='"+String(border)+"' src='"+src+"' align='"+align+"' width='"+String(width)+"' height='"+String(height)+"'>"
EndIf
End Function
Function HRule()
WriteLine as,"
"
End Function
Function HeadFoot(size:Int)
WriteLine as,""
End Function
Function ParaHead()
WriteLine as,""
End Function
Function ParaFoot()
WriteLine as,"
"
End Function
Function Text( txt:String )
WriteLine as,txt
End Function
Function BoldText(txt:String)
WriteLine as,""+txt+""
End Function
Function BodyFoot()
WriteLine as,""
End Function
Function Footer()
WriteLine as,""
End Function
End Type