[EXAMPLES]

* NEW: New text example


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

examples/examples/Drawing/Painting/.src/FMain.class

@@ -402,6 +402,29 @@ Public Sub Example16()
   
 End
 
+Public Sub Example17()
+  
+  Dim sText As String = "paint"
+  
+  Dim x, y As Float
+  
+  Paint.Font = Font["Sans,100"]
+  x = 25
+  y = 150
+  
+  Paint.MoveTo(x, y)
+  Paint.Text(sText)
+  Paint.Fill
+  
+  Paint.Brush = Paint.Color(Color.RGB(255, 31, 31, 93))
+  Paint.LineWidth = 6
+  Paint.Arc(x, y, 10, 0, Pi(2))
+  Paint.RelLineTo(0, - Paint.Font.Height(sText))
+  Paint.RelLineTo(Paint.Font.Width(sText), 0)
+  'Paint.RelLineTo(
+  Paint.stroke
+End
+
 
 Public Sub optExample_Click()
 

examples/examples/Drawing/Painting/.src/FMain.form

@@ -1,7 +1,7 @@
 # Gambas Form File 3.0
 
 { Form Form
-  MoveScaled(0,0,98,83)
+  MoveScaled(0,0,98,86)
   Text = ("")
   Arrangement = Arrange.Fill
   { HSplit1 HSplit
@@ -115,6 +115,12 @@
           Tag = "16"
           Text = ("Text")
         }
+        { Exemple17 RadioButton optExample
+          Name = "Exemple17"
+          MoveScaled(0,49,31,3)
+          Tag = "16"
+          Text = ("Text extend")
+        }
       }
       { Label1 Label
         MoveScaled(2,61,19,3)