- Timestamp:
- Apr 2, 2009, 5:27:22 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/TestCase/UI_Sample/step32_AnalogWatch_Gdiplus.ab
r698 r701 13 13 #require <Classes/System/Drawing/FontFamily.ab> 14 14 #require <Classes/System/Drawing/Pen.ab> 15 #require <Classes/System/Drawing/Brush.ab> 16 #require <Classes/System/Drawing/StringFormat.ab> 17 #require <Classes/System/Drawing/Image.ab> 15 18 #require <Classes/System/Drawing/Drawing2D/misc.ab> 16 19 #require <Classes/System/Drawing/Drawing2D/Matrix.ab> … … 36 39 Imports ActiveBasic.Math 37 40 Imports System 41 Imports System.Drawing 42 Imports System.Drawing.Drawing2D 38 43 39 44 #resource "UI_Sample.rc" … … 76 81 77 82 Sub OnDestroy(sender As Object, e As EventArgs) 78 'GdiplusShutdown(gdipToken)83 GdiplusShutdown(gdipToken) 79 84 End Sub 80 85 … … 96 101 97 102 Sub OnPaint_(sender As Object, e As PaintDCArgs) 98 Imports System.Drawing99 100 103 Dim pos As PointF 101 104 … … 136 139 g.DrawLine(pen, CenterPos, pos) 137 140 pen.Dispose() 141 142 Dim pt1 = [0, 0] As Point 143 Dim pt2 As Point 144 pt2.X = rc.right 145 pt2.Y = rc.bottom 146 Dim br = New LinearGradientBrush(pt1, pt2, &haa00ff40 As Color, &h66ffcc00 As Color) 'New SolidBrush(&h8080ff00) 147 br.GammaCorrection = True 148 Dim f = New Font("Verdana", 20.0) 149 Dim s = "Step32. Analog whach" As String 150 g.RotateTransform(25) 151 g.DrawString(s, f, br, 10.0, 10.0) 152 f.Dispose() 153 br.Dispose() 154 138 155 g.Dispose() 139 156 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.