'================================================================
'= リストボックスの選択項目に挿入ガイドを

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

' インデックスで示された項目の前に挿入ガイドを表示
Declare Sub Api_DrawInsert Lib "comctl32" Alias "DrawInsert" (ByVal handParent&, ByVal hLB&, ByVal nItem&)

Var Shared List1 As Object
Var Shared Button1 As Object

List1.Attach GetDlgItem("List1") : List1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    For i = 1 To 20
        List1.AddString Str$(i * 1000)
    Next
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Api_DrawInsert GethWnd, List1.GethWnd, List1.GetCursel
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Api_DrawInsert GethWnd, List1.GethWnd, -1
End Sub

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