XProfan

 $I Listview_Funktionen.inc
Declare LVDllHdl&
Declare bereich#,status&
Declare text$,x&,y&
Dim bereich#,320
LVDllHdl&=UseDll(Listview.dll)
Declare ListView1&

Proc SetListView1

    InitMessages(%hwnd)
    Declare tmptxt$
    tmptxt$=Spalte 1;Spalte 2;Spalte 3
    IColumn(ListView1&,Addr(tmptxt$),60,0)
    tmptxt$=Spalte 2
    IColumn(ListView1&,Addr(tmptxt$),60,0)
    tmptxt$=Spalte 3
    IColumn(ListView1&,Addr(tmptxt$),60,0)

    WhileLoop 0,6

        AddString(ListView1&,MkStr$(Test  + Format$(00,&Loop) + |,3))

    Wend

    ShowListView(ListView1&,1,1,Width(%hwnd) - 2,Height(%hwnd) - 200)

EndProc

Proc ExitLV

    CloseMessages(%hwnd)
    FreeDll LVDllHdl&

EndProc

UserMessages 16
WindowStyle $218
Window 100,100 - 620,520
ListView1&=CreateListView(%hwnd,%hinstance,0,14417146,-1,$21)
SetListView1
status&=Create(TEXT,%HWND,text$,8,364,600,72)

While 1

    WaitInput
    Case %umessage = 16:Break
    y&=GetControlParas(bereich#)

    If y&=2

        text$=Der rechte Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ gedrückt.

    ElseIf y&=1

        text$=Der linke Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ als Doppelklick gedrückt.

    ElseIf y&=3

        text$=Der linke Mausknopf wurde in Spalte +Str$(Long(bereich#,4))+ / +Str$(Long(bereich#,8))+ gedrückt.

    EndIf

    If y&<>0

        text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(Long(bereich#,0))+.
        SetText status&,text$

    Endif

    x&=GetVar(2)

    If x&<>-1

        y&=GetVar(3)
        text$=Der rechte Mausknopf wurde über dem Spaltenbutton in Spalte +Str$(x&)+ gedrückt.
        text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(y&)+.
        SetText status&,text$

    EndIf

    x&=GetVar(4)

    If x&<>-1

        y&=GetVar(5)
        text$=Der linke Mausknopf wurde über dem Spaltenbutton in Spalte +Str$(x&)+ gedrückt.
        text$=text$+Dieses ereignete sich im Listview mit dem Handle +Str$(y&)+.
        SetText status&,text$

    EndIf

Wend

ExitLV