luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[EXAMPLES]

Browse source 
* NEW: New report Example


git-svn-id: svn://localhost/gambas/trunk@4374 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2011-12-30 21:49:29 +00:00
parent 470807e659
commit 9a7b02bb84
2 changed files with 37 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
examples/examples/Printing/ReportExample/.src/FMain.class
View file

@ -1,6 +1,6 @@
' Gambas class file
Private $hReport As Report1
Private $hReport As Report
Public Sub _new()
@ -9,7 +9,9 @@ Public Sub _new()
End
Public Sub Form_Open()
Me.Center
End
Public Sub btnReport_Click()
@ -30,3 +32,10 @@ Public Sub btnClose_Click()
Me.Close
End
Public Sub btnReport2_Click()
$hReport = New Report3(LCase(cmbServer.Text))
$hReport.Preview()
End

36
examples/examples/Printing/ReportExample/.src/FMain.form
View file

@ -1,7 +1,7 @@
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,65,16)
MoveScaled(0,0,65,31)
Text = ("Report example")
Resizable = False
Arrangement = Arrange.Vertical
@ -26,23 +26,41 @@
MoveScaled(15,6,7,1)
}
{ HBox2 HBox
MoveScaled(1,8,63,7)
MoveScaled(1,8,63,15)
Spacing = True
{ btnReport Button
MoveScaled(0,0,31,7)
Expand = True
{ VBox1 VBox
MoveScaled(1,1,29,14)
AutoResize = True
Text = ("See Report Example 1...")
Picture = Picture["icon:/32/print"]
{ btnReport Button
MoveScaled(0,0,31,7)
Expand = True
AutoResize = True
Text = ("See Report Example 1...")
Picture = Picture["icon:/32/print"]
}
{ btnReport2 Button
MoveScaled(0,6,31,7)
Expand = True
AutoResize = True
Text = ("See Report Example 2...")
Picture = Picture["icon:/32/print"]
}
}
}
{ HBox3 HBox
MoveScaled(1,25,64,5)
{ Panel1 Panel
MoveScaled(4,1,27,4)
Expand = True
}
{ btnAbout Button
MoveScaled(32,0,15,7)
MoveScaled(31,-1,15,7)
AutoResize = True
Text = ("About...")
Picture = Picture["icon:/32/info"]
}
{ btnClose Button
MoveScaled(48,0,15,7)
MoveScaled(47,-1,15,7)
AutoResize = True
Text = ("Close")
Picture = Picture["icon:/32/close"]