Changeset 698 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab

Timestamp:

Mar 31, 2009, 2:09:07 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

GDI+をコンパイルできるように修正。FontFamily, Penの追加。サンプルとして、Step 32のGDI+版を制作。
(#56)

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab

@@ -19 +19 @@
     Sub Form()
         AddMessageEvent(WM_COMMAND, AddressOf(OnCommand))
-        AddPaintBackground(AddressOf(OnPaintBackground))
     End Sub
 
@@ -31 +30 @@
             .cy = CW_USEDEFAULT
         End With
-    End Sub
-
-    Sub OnPaintBackground(sender As Object, e As PaintBackgroundArgs)
-        Dim rc = ClientRect
-        FillRect(e.Handle, rc, (COLOR_3DFACE + 1) As HBRUSH)
     End Sub