XProfan

ShowListView(listview&,30,25,345,240) Anzeige des Listviews
InitMessages(%hwnd) Initiert das Subclassing für alle verwendeten Listviews im Fenster.
Erforderlich, um die Sortierung im Listview zu aktivieren
Auswertung der Mausklicks
Dim ItemTexts#,16384
Dim bereich#,bytes&

WhileNot appexit%

    If @GetFocus(LiefAuswahlEnde%)

        Let appexit%=1

    ENDIF

    y&=GetControlParas(bereich#)

    If y&=2  rechte Maustaste gedrückt

        text$="Auswahl des Lieferanten mit einem Doppelklick in die Zeile!"
        EnableWindow LiefAuswahlEnde%,0

    ElseIf y&=1 Doppelklick, nur damit soll es weitergehen

        GetItemText(listview&,bereich#,1,2)
        text$="ausgewählt: "+String$(bereich#,64)
        SetText status&,text$
        EnableWindow LiefAuswahlEnde%,1
        columns&=GetLineText(listview&,2,itemtexts#)

    ElseIf y&=3 linke Maustaste gedrückt

        text$="Auswahl des Lieferanten mit einem Doppelklick in die Zeile!"
        EnableWindow LiefAuswahlEnde%,0

    EndIf

    If y&<>0

        SetText status&,text$

    Endif

Wend

Auswertung der Mausklicks
CloseMessages(%hwnd) Deaktiviert das Subclassing für alle verwendeten Listviews im Fenster wieder.
freedll lvdll& Listview.dll entladen