github/rsfpdf
2
0
Fork 0
mirror of https://github.com/donl/rsfpdf.git synced 2026-05-26 14:22:12 -06:00
Code Issues Projects Packages Wiki Activity Actions
rsfpdf/Window1.rbfrm
Robert Lawrence 415bd85574 Changed all EOLs to LF for git/diff
2011-08-29 14:10:35 -05:00

573 lines
15 KiB
Text
Raw Permalink Blame History

#tag Window
Begin Window Window1
BackColor = 16777215
Backdrop = ""
CloseButton = True
Composite = False
Frame = 0
FullScreen = False
HasBackColor = False
Height = 2.38e+2
ImplicitInstance= True
LiveResize = False
MacProcID = 0
MaxHeight = 32000
MaximizeButton = False
MaxWidth = 32000
MenuBar = 2044205055
MenuBarVisible = True
MinHeight = 238
MinimizeButton = False
MinWidth = 420
Placement = 0
Resizeable = False
Title = "rsFPDF Examples"
Visible = True
Width = 4.53e+2
Begin TextField EditField1
AcceptTabs = ""
Alignment = 0
AutoDeactivate = True
AutomaticallyCheckSpelling= False
BackColor = 16777215
Bold = ""
Border = True
CueText = ""
DataField = ""
DataSource = ""
Enabled = True
Format = ""
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LimitText = 0
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = True
LockTop = ""
Mask = ""
Password = ""
ReadOnly = ""
Scope = 0
TabIndex = 0
TabPanelIndex = 0
TabStop = True
Text = "Hello Word!"
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 26
Underline = ""
UseFocusRing = True
Visible = True
Width = 413
End
Begin PushButton Example3
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "DEMO3"
Default = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Scope = 0
TabIndex = 1
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 128
Underline = ""
Visible = True
Width = 80
End
Begin PushButton Example2
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "DEMO2"
Default = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Scope = 0
TabIndex = 2
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 94
Underline = ""
Visible = True
Width = 80
End
Begin PushButton Example1
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "DEMO1"
Default = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Scope = 0
TabIndex = 3
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 60
Underline = ""
Visible = True
Width = 80
End
Begin Label StaticText1
AutoDeactivate = True
Bold = ""
DataField = ""
DataSource = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 112
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Multiline = False
Scope = 0
Selectable = False
TabIndex = 4
TabPanelIndex = 0
Text = "Generate Letter Page and insert EditField text in it."
TextAlign = 0
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 60
Transparent = False
Underline = ""
Visible = True
Width = 328
End
Begin Label StaticText2
AutoDeactivate = True
Bold = ""
DataField = ""
DataSource = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 112
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Multiline = False
Scope = 0
Selectable = False
TabIndex = 5
TabPanelIndex = 0
Text = "Insert a Header and Footer with a page count."
TextAlign = 0
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 94
Transparent = False
Underline = ""
Visible = True
Width = 309
End
Begin Label StaticText3
AutoDeactivate = True
Bold = ""
DataField = ""
DataSource = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 112
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Multiline = False
Scope = 0
Selectable = False
TabIndex = 6
TabPanelIndex = 0
Text = "Simple Table"
TextAlign = 0
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 128
Transparent = False
Underline = ""
Visible = True
Width = 309
End
Begin PushButton Example4
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "DEMO4"
Default = False
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Scope = 0
TabIndex = 7
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 162
Underline = ""
Visible = True
Width = 80
End
Begin Label StaticText4
AutoDeactivate = True
Bold = ""
DataField = ""
DataSource = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 112
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Multiline = False
Scope = 0
Selectable = False
TabIndex = 8
TabPanelIndex = 0
Text = "Multiple Columns"
TextAlign = 0
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 162
Transparent = False
Underline = ""
Visible = True
Width = 309
End
Begin GroupBox GroupBox1
AutoDeactivate = True
Bold = ""
Caption = "Untitled"
Enabled = True
Height = 100
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = -315
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Scope = 0
TabIndex = 9
TabPanelIndex = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 255
Underline = ""
Visible = True
Width = 100
End
Begin PushButton Example5
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "DEMO5"
Default = False
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = False
LockTop = True
Scope = 0
TabIndex = 11
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 196
Underline = ""
Visible = True
Width = 80
End
Begin Label StaticText5
AutoDeactivate = True
Bold = False
DataField = ""
DataSource = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 112
LockBottom = ""
LockedInPosition= False
LockLeft = ""
LockRight = ""
LockTop = ""
Multiline = False
Scope = 0
Selectable = False
TabIndex = 12
TabPanelIndex = 0
Text = "JPG Inclusion and Hyperlink"
TextAlign = 0
TextColor = 0
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 196
Transparent = False
Underline = ""
Visible = True
Width = 267
End
End
#tag EndWindow
#tag WindowCode
#tag EndWindowCode
#tag Events Example3
#tag Event
Sub Action()
dim pdf as fpdf
dim j,i as integer
me.Enabled = False
pdf = new FPDF("P")
pdf.AddPage()
pdf.SetFont("Courier","",8)
//Cabecera
for i = 1 to 4
pdf.Cell(40,7,"Cabecera " + str(i),1)
next i
pdf.Ln()
//Datos
for j = 1 to 10
for i = 1 to 4
pdf.cell(40,6,"Item " + str(i),1)
next i
pdf.ln()
next j
pdf.Output(me.Name + ".pdf")
me.Enabled = true
End Sub
#tag EndEvent
#tag EndEvents
#tag Events Example2
#tag Event
Sub Action()
dim pdf as Example2
dim j,i as integer
me.Enabled = False
pdf = new Example2("P" )
pdf.AliasNbPages()
pdf.AddPage()
pdf.SetFont("Times","",12)
for i = 1 to 40
pdf.cell(0,10,"Imprimiendo linea numero " + str(i),0,1)
next i
pdf.Output(me.Name + ".pdf")
me.Enabled = true
End Sub
#tag EndEvent
#tag EndEvents
#tag Events Example1
#tag Event
Sub Action()
dim pdf as fpdf
dim j,i as integer
me.Enabled = False
if EditField1.Text = "" then
MsgBox "You must write some text"
EditField1.SetFocus
return
end if
pdf = new FPDF("P","mm","letter")
pdf.AddPage()
pdf.SetFont("Arial","B",16)
pdf.Cell(40,10,EditField1.Text)
pdf.Output(me.Name + ".pdf")
me.Enabled = true
End Sub
#tag EndEvent
#tag EndEvents
#tag Events Example4
#tag Event
Sub Action()
dim pdf as Example4
me.Enabled = False
pdf = new Example4("P")
pdf.SetTitle("20,000 Leagues Under The Sea")
pdf.SetAuthor("Jules Verne")
pdf.PrintChapter(1,"A Shifting Reef","20k_c1.txt")
pdf.PrintChapter(2,"Pro and Con","20k_c2.txt")
pdf.Output(me.Name + ".pdf")
me.Enabled = true
End Sub
#tag EndEvent
#tag EndEvents
#tag Events Example5
#tag Event
Sub Action()
dim pdf as fpdf
dim link as string
me.Enabled = False
pdf = new fpdf("P")
pdf.SetEnconding(Encodings.WindowsLatin1)
//Primera página
pdf.AddPage()
pdf.SetFont("Arial","",20)
pdf.Write(5,"Para saber qué hay de nuevo en este tutorial, pulse ")
pdf.SetFont("","U")
link = pdf.AddLink()
pdf.Write(5,"aqui",link)
pdf.SetFont("")
//Segunda página
pdf.AddPage()
pdf.SetLink(link)
// pass the absolute shell path as a string to image method
Dim chartpath As String
chartpath = GetFolderItem("").Child("demoinfo").Child("pie_chart.jpg").ShellPath
pdf.Image(chartpath,10,10,150,0,"","https://github.com/roblthegreat/rsfpdf")
pdf.Output(me.Name + ".pdf")
me.Enabled = true
End Sub
#tag EndEvent
#tag EndEvents
Reference in a new issue View git blame Copy permalink