Changeset 701 for trunk/ab5.0/ablib/TestCase/UI_Sample

Timestamp:

Apr 2, 2009, 5:27:22 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

BrushとStringFormatを追加
(#241)

File:

• trunk/ab5.0/ablib/TestCase/UI_Sample/step32_AnalogWatch_Gdiplus.ab (modified) (5 diffs)

trunk/ab5.0/ablib/TestCase/UI_Sample/step32_AnalogWatch_Gdiplus.ab

@@ -13 +13 @@
 #require <Classes/System/Drawing/FontFamily.ab>
 #require <Classes/System/Drawing/Pen.ab>
+#require <Classes/System/Drawing/Brush.ab>
+#require <Classes/System/Drawing/StringFormat.ab>
+#require <Classes/System/Drawing/Image.ab>
 #require <Classes/System/Drawing/Drawing2D/misc.ab>
 #require <Classes/System/Drawing/Drawing2D/Matrix.ab>
@@ -36 +39 @@
 Imports ActiveBasic.Math
 Imports System
+Imports System.Drawing
+Imports System.Drawing.Drawing2D
 
 #resource "UI_Sample.rc"
@@ -76 +81 @@
 
     Sub OnDestroy(sender As Object, e As EventArgs)
-'       GdiplusShutdown(gdipToken)
+        GdiplusShutdown(gdipToken)
     End Sub
 
@@ -96 +101 @@
 
     Sub OnPaint_(sender As Object, e As PaintDCArgs)
-        Imports System.Drawing
-
         Dim pos As PointF
 
@@ -136 +139 @@
         g.DrawLine(pen, CenterPos, pos)
         pen.Dispose()
+
+        Dim pt1 = [0, 0] As Point
+        Dim pt2 As Point
+        pt2.X = rc.right
+        pt2.Y = rc.bottom
+        Dim br = New LinearGradientBrush(pt1, pt2, &haa00ff40 As Color, &h66ffcc00 As Color) 'New SolidBrush(&h8080ff00)
+        br.GammaCorrection = True
+        Dim f = New Font("Verdana", 20.0)
+        Dim s = "Step32. Analog whach" As String
+        g.RotateTransform(25)
+        g.DrawString(s, f, br, 10.0, 10.0)
+        f.Dispose()
+        br.Dispose()
+
         g.Dispose()
     End Sub