'================================================================
'=　ダブルクリック時間の取得と設定

'=    (DoubleClickTime.bas)
'================================================================
#include "Windows.bi"

' ダブルクリック時間の取得
Declare Function Api_SetDoubleClickTime& Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount&)

' ダブルクリック時間の取得
Declare Function Api_GetDoubleClickTime& Lib "user32" Alias "GetDoubleClickTime" ()

Var Shared Text2 As Object
Text2.Attach GetDLgItem("Text2")
Text2.SetFontSize 14

Var Shared Dct As Long                    'ダブルクリック時間

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Dct = Api_GetDoubleClickTime        'ダブルクリック時間取得
    Text2.SetWindowText Str$(Dct)
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Ret As Long

    Dct = val(GetDlgItemText("Edit1"))

    If Dct = 0 Then Exit Sub
    Ret = Api_SetDoubleClickTime(Dct)    'ダブルクリック時間設定
    Text2.SetWindowText ""
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End