From 9a7b02bb843290afcd15c93775742e4bbfb15786 Mon Sep 17 00:00:00 2001
From: Fabien Bodard <gambas.fr@gmail.com>
Date: Fri, 30 Dec 2011 21:49:29 +0000
Subject: [PATCH] [EXAMPLES] * NEW: New report Example

git-svn-id: svn://localhost/gambas/trunk@4374 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 .../Printing/ReportExample/.src/FMain.class   | 11 +++++-
 .../Printing/ReportExample/.src/FMain.form    | 36 ++++++++++++++-----
 2 files changed, 37 insertions(+), 10 deletions(-)

diff --git a/examples/examples/Printing/ReportExample/.src/FMain.class b/examples/examples/Printing/ReportExample/.src/FMain.class
index 5914f5aff..8e4671edd 100644
--- a/examples/examples/Printing/ReportExample/.src/FMain.class
+++ b/examples/examples/Printing/ReportExample/.src/FMain.class
@@ -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
diff --git a/examples/examples/Printing/ReportExample/.src/FMain.form b/examples/examples/Printing/ReportExample/.src/FMain.form
index 0b671c41b..84d10f26d 100644
--- a/examples/examples/Printing/ReportExample/.src/FMain.form
+++ b/examples/examples/Printing/ReportExample/.src/FMain.form
@@ -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"]