[GB.REPORT]
* BUG: The ReportBrush.Color function really return a ReportBrush class. git-svn-id: svn://localhost/gambas/trunk@6099 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
1736610529
commit
8bfa98f865
6 changed files with 7 additions and 3 deletions
|
@ -1,7 +1,7 @@
|
||||||
# Gambas Project File 3.0
|
# Gambas Project File 3.0
|
||||||
# Compiled with Gambas 3.5.90
|
# Compiled with Gambas 3.5.90
|
||||||
Title=Report designer
|
Title=Report designer
|
||||||
Startup=Report9
|
Startup=Report12
|
||||||
Icon=printer1.png
|
Icon=printer1.png
|
||||||
Version=3.5.90
|
Version=3.5.90
|
||||||
VersionFile=1
|
VersionFile=1
|
||||||
|
|
|
@ -181,6 +181,7 @@ Static Public Function Color(iColor As Integer) As ReportBrush
|
||||||
|
|
||||||
hBrush._Color[0] = iColor
|
hBrush._Color[0] = iColor
|
||||||
hBrush._Type = 0
|
hBrush._Type = 0
|
||||||
|
Return hBrush
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
|
|
@ -3,6 +3,9 @@
|
||||||
Public Sub _New()
|
Public Sub _New()
|
||||||
|
|
||||||
ReportHBox1.DataCount = 100
|
ReportHBox1.DataCount = 100
|
||||||
|
ReportLabel1.BackGround = ReportBrush.Color(Color.Red)
|
||||||
|
ReportLabel1.Brush = ReportBrush.Color(Color.Yellow)
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -2,6 +2,7 @@
|
||||||
|
|
||||||
{ Report Report
|
{ Report Report
|
||||||
#MoveScaled(0,0,64,64)
|
#MoveScaled(0,0,64,64)
|
||||||
|
Spacing = "1mm"
|
||||||
Index = 0
|
Index = 0
|
||||||
Text = ("")
|
Text = ("")
|
||||||
{ ReportHBox1 ReportHBox
|
{ ReportHBox1 ReportHBox
|
||||||
|
|
|
@ -26,7 +26,7 @@ Public Sub _new()
|
||||||
|
|
||||||
'set the number of anchor rods to display in print out tables
|
'set the number of anchor rods to display in print out tables
|
||||||
'nanchorrows = Module1.RoundUpInt(FMain.cAnchorRods.Count / 2)
|
'nanchorrows = Module1.RoundUpInt(FMain.cAnchorRods.Count / 2)
|
||||||
ReportHBox7.DataCount = 6 'nanchorrows
|
ReportHBox7.DataCount = 13 'nanchorrows
|
||||||
|
|
||||||
'set the number of report panels - one for each load combination result
|
'set the number of report panels - one for each load combination result
|
||||||
ReportPanel1.DataCount = 6 'FMain.AnalysisResults.Count
|
ReportPanel1.DataCount = 6 'FMain.AnalysisResults.Count
|
||||||
|
|
|
@ -6,7 +6,6 @@
|
||||||
Padding = ReportPadding["Top:20mm;Bottom:10mm;Left:20mm;Right:20mm"]
|
Padding = ReportPadding["Top:20mm;Bottom:10mm;Left:20mm;Right:20mm"]
|
||||||
Ignore = True
|
Ignore = True
|
||||||
AutoResize = True
|
AutoResize = True
|
||||||
Orientation = Printer.Landscape
|
|
||||||
Index = 0
|
Index = 0
|
||||||
Text = ("")
|
Text = ("")
|
||||||
{ ReportHBox1 ReportHBox
|
{ ReportHBox1 ReportHBox
|
||||||
|
|
Loading…
Reference in a new issue