Changeset 644 for trunk/ab5.0/ablib/src/Classes

Timestamp:

Oct 18, 2008, 5:50:24 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

#222 3状態への対応

File:

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

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

@@ -1 @@
-#require <Classes/ActiveBasic/Windows/UI/Control.ab>
+#require <Classes/ActiveBasic/Windows/UI/ButtonBase.ab>
 
 Namespace ActiveBasic
 Namespace Windows
 Namespace UI
+
+Enum CheckState
+    Unchecked = BST_UNCHECKED
+    Checked = BST_CHECKED
+    Indeterminate = BST_INDETERMINATE
+End Enum
 
 /*!
@@ -36 +42 @@
 
     /*!
+    @brief チェック状態の取得
+    */
+    Const Function State() As CheckState
+        Dim ret = SendMessage(BM_GETCHECK)
+/*
+        If ret = BST_UNCHECKED Or ret = BST_CHECKED Or ret = BST_INDETERMINATE Then
+            State = ret As CheckState
+*/
+        If ret = BST_CHECKED Then
+            State = CheckState.Checked
+        ElseIf ret = BST_INDETERMINATE Then
+            State = CheckState.Indeterminate
+        Else
+            State = CheckState.Unchecked
+        End If
+    End Function
+
+    /*!
+    @brief チェック状態の設定
+    */
+    Sub State(state As CheckState)
+        SendMessage(BM_SETCHECK, state As WPARAM, 0)
+    End Sub
+
+    /*!
     @brief クリック時に自動で状態変化するかどうかの取得。
     @retval true 自動変化する
@@ -41 +72 @@
     */
     Function AutoCheck() As Boolean
-        AutoCheck = ((Style And BS_AUTOCHECKBOX) = BS_AUTOCHECKBOX)
+        AutoCheck = autoCheck(Style)
     End Function
 
@@ -55 +86 @@
         End If
     End Sub
+
+    /*!
+    @brief 3状態目を使用するどうかの設定。
+    @param[in] useThreeState 3状態目を使用するならTrue、そうでないならFalse。
+    */
+    Sub ThreeState(useThreeState As Boolean)
+        Dim oldStyle = This.Style
+        Dim style = oldStyle And (Not 7)
+        Dim buttonType = oldStyle And 7
+        If useThreeState = threeState(buttonType) Then
+            Exit Sub
+        End If
+        If useThreeState Then
+            If buttonType = BS_AUTOCHECKBOX Then
+                style Or= BS_AUTO3STATE
+            Else
+                style Or= BS_3STATE
+            End If
+        Else
+            If buttonType = BS_AUTO3STATE Then
+                style Or= BS_AUTOCHECKBOX
+            Else
+                style Or= BS_CHECKBOX
+            End If
+        End If
+        Style = style
+    End Sub
+
+    /*!
+    @brief 3状態目を使用しているかどうかの取得。
+    */
+    Function ThreeState() As Boolean
+        ThreeState = threeState(Style)
+    End Function
+Private
+    Static Function threeState(style As DWord) As Boolean
+        style And= 7
+        Return style = BS_3STATE Or style = BS_AUTO3STATE
+    End Function
+
+    Static Function autoCheck(style As DWord) As Boolean
+        style And= 7
+        Return (style = BS_AUTOCHECKBOX Or style = BS_AUTO3STATE)
+    End Function
 End Class