[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

comp/src/gb.report/.project

@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 # Compiled with Gambas 3.5.90
 Title=Report designer
-Startup=Report9
+Startup=Report12
 Icon=printer1.png
 Version=3.5.90
 VersionFile=1

comp/src/gb.report/.src/ReportBrush.class

@@ -181,6 +181,7 @@ Static Public Function Color(iColor As Integer) As ReportBrush
   
   hBrush._Color[0] = iColor
   hBrush._Type = 0
+  Return hBrush
   
 End
 

comp/src/gb.report/.src/Tests/Old/Report12.class

@@ -3,6 +3,9 @@
 Public Sub _New()
   
   ReportHBox1.DataCount = 100
+  ReportLabel1.BackGround = ReportBrush.Color(Color.Red)
+  ReportLabel1.Brush = ReportBrush.Color(Color.Yellow)
+  
 End
 
 

comp/src/gb.report/.src/Tests/Old/Report12.report

@@ -2,6 +2,7 @@
 
 { Report Report
   #MoveScaled(0,0,64,64)
+  Spacing = "1mm"
   Index = 0
   Text = ("")
   { ReportHBox1 ReportHBox

comp/src/gb.report/.src/Tests/OutputReport2.class

@@ -26,7 +26,7 @@ Public Sub _new()
 
   'set the number of anchor rods to display in print out tables
   '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
   ReportPanel1.DataCount = 6 'FMain.AnalysisResults.Count

comp/src/gb.report/.src/Tests/OutputReport2.report

@@ -6,7 +6,6 @@
   Padding = ReportPadding["Top:20mm;Bottom:10mm;Left:20mm;Right:20mm"]
   Ignore = True
   AutoResize = True
-  Orientation = Printer.Landscape
   Index = 0
   Text = ("")
   { ReportHBox1 ReportHBox