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

Timestamp:

Aug 24, 2008, 5:28:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

サブクラス化機構(Control.Attach)の整備

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

@@ -18 +18 @@
 Public
     Sub Form()
-        AddMessageEvent(WM_COMMAND, AddressOf (OnCommand))
+        AddMessageEvent(WM_COMMAND, AddressOf(OnCommand))
+        AddPaintBackground(AddressOf(OnPaintBackground))
     End Sub
 
@@ -30 +31 @@
             .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