luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[EXAMPLES]

Browse source 
* NEW: Fix the text extend example in Painting example.

git-svn-id: svn://localhost/gambas/trunk@2571 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2009-12-30 22:11:45 +00:00
parent e565884447
commit b1381b8956
2 changed files with 26 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
examples/examples/Drawing/Painting/.src/FMain.class
View file

@ -424,20 +424,30 @@ Public Sub Example17()
Dim sText As String = "gambas"
Dim X, Y As Float
Dim hExt As PaintExtents
Paint.Font = Font["Sans,100"]
X = 25
Y = 150
Paint.MoveTo(x, y)
Paint.MoveTo(X, Y)
Paint.Save
Paint.Reset
Paint.Text(sText)
hExt = Paint.PathExtents
Paint.Restore
Paint.NewPath
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)
Paint.RelLineTo(0, - Paint.Font.Height(sText))
Paint.RelLineTo(Paint.Font.Width(sText), 0)
Paint.Fill
Paint.MoveTo(X, Y)
Paint.RelLineTo(0, Paint.Font.Descent - hExt.Height)
Paint.RelLineTo(hExt.Width, 0)
Paint.Stroke
End

16
examples/examples/Drawing/Painting/Example17
View file

@ -3,20 +3,30 @@ Public Sub Example17()
Dim sText As String = "gambas"
Dim X, Y As Float
Dim hExt As PaintExtents
Paint.Font = Font["Sans,100"]
X = 25
Y = 150
Paint.MoveTo(x, y)
Paint.MoveTo(X, Y)
Paint.Save
Paint.Reset
Paint.Text(sText)
hExt = Paint.PathExtents
Paint.Restore
Paint.NewPath
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)
Paint.RelLineTo(0, - Paint.Font.Height(sText))
Paint.RelLineTo(Paint.Font.Width(sText), 0)
Paint.Fill
Paint.MoveTo(X, Y)
Paint.RelLineTo(0, Paint.Font.Descent - hExt.Height)
Paint.RelLineTo(hExt.Width, 0)
Paint.Stroke
End