mirror of
https://github.com/donl/rsfpdf.git
synced 2026-05-26 14:22:12 -06:00
77 lines
1.5 KiB
Text
77 lines
1.5 KiB
Text
#tag Class
|
|
Protected Class Example2
|
|
Inherits fpdf
|
|
#tag Method, Flags = &h1
|
|
Protected Sub Footer()
|
|
//Posición: a 1,5 cm del final
|
|
self.SetY(-15)
|
|
|
|
//Arial italic 8
|
|
self.SetFont("Arial","I",8)
|
|
|
|
//Número de página
|
|
self.Cell(0,10,"Page " + str(self.PageNo()) + "/{nb}",0,0,"C")
|
|
|
|
End Sub
|
|
#tag EndMethod
|
|
|
|
#tag Method, Flags = &h1
|
|
Protected Sub Header()
|
|
|
|
//Logo - must be the full absolute path to the image file.
|
|
Dim logopath As String
|
|
logopath = GetFolderItem("").Child("demoinfo").Child("logo_rpdf.png").ShellPath
|
|
self.Image(logopath,10,8)
|
|
|
|
//Arial bold 15
|
|
self.SetFont("Arial","B",15)
|
|
|
|
//Movernos a la derecha
|
|
self.Cell(80)
|
|
|
|
//Título
|
|
self.Cell(30,10,"Title",1,0,"C")
|
|
|
|
//Salto de línea
|
|
self.Ln(20)
|
|
End Sub
|
|
#tag EndMethod
|
|
|
|
|
|
#tag ViewBehavior
|
|
#tag ViewProperty
|
|
Name="Index"
|
|
Visible=true
|
|
Group="ID"
|
|
InitialValue="-2147483648"
|
|
InheritedFrom="Object"
|
|
#tag EndViewProperty
|
|
#tag ViewProperty
|
|
Name="Left"
|
|
Visible=true
|
|
Group="Position"
|
|
InitialValue="0"
|
|
InheritedFrom="Object"
|
|
#tag EndViewProperty
|
|
#tag ViewProperty
|
|
Name="Name"
|
|
Visible=true
|
|
Group="ID"
|
|
InheritedFrom="Object"
|
|
#tag EndViewProperty
|
|
#tag ViewProperty
|
|
Name="Super"
|
|
Visible=true
|
|
Group="ID"
|
|
InheritedFrom="Object"
|
|
#tag EndViewProperty
|
|
#tag ViewProperty
|
|
Name="Top"
|
|
Visible=true
|
|
Group="Position"
|
|
InitialValue="0"
|
|
InheritedFrom="Object"
|
|
#tag EndViewProperty
|
|
#tag EndViewBehavior
|
|
End Class
|
|
#tag EndClass
|