[GB.REPORT]

* BUG: Preview is visible with gb.qt4 now.

git-svn-id: svn://localhost/gambas/trunk@3475 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.report/.info

@@ -173,10 +173,6 @@ Paint
 m
 
 (Page)i
-Color
-m
-ReportBrush
-(iColor)i
 Clear
 m
 
@@ -193,6 +189,10 @@ RadialGradient
 m
 ReportBrush
 (Colors)Integer[];(Positions)Float[];
+Color
+m
+ReportBrush
+(iColor)i
 Refresh
 m
 

comp/src/gb.report/.src/Preview/FPreview.class

@@ -32,7 +32,7 @@ Public Sub DrawingArea1_Draw()
   $hreport.Scale = $fScale
   $hreport.Layout
   $hreport.Paint($iPage)
-  SpinBox1.MaxValue = $hreport.Count
+  SpinBox1.MaxValue = Max(1, $hreport.Count)
 End
 
 Public Sub Form_Open()

comp/src/gb.report/.src/Report.class

@@ -128,13 +128,9 @@ Public Sub Paint(Page As Integer)
   Paint.Reset
   Paint.Scale($fScale, $fScale)
 
-  Paint.Brush = Paint.Color(Color.RGB(255, 0, 0, 192))
-  Paint.Rectangle(0, 0, 100, 100)
-  Paint.Fill
-
-  With Paint.ClipExtents
-    Debug "ClipExtents: "; .X;; .Y;; .Width;; .Height
-  End With
+  ' With Paint.ClipExtents
+  '   Debug "ClipExtents: "; .X;; .Y;; .Width;; .Height
+  ' End With
   Dec page
   'Me._ClipChildren(Page, 0, 0, $hReportTControl, -1, $fSCale)
   Me._PaintBefore(Page, 0, 0, $hReportTControl, -1)