XProfan

 $I Listview_Funktionen.inc
Declare LVDllHdl&  _ONCE
Declare LVItemtexts#,LVbereich#,LVBuffer#,LVParamBuffer#
Dim LVParamBuffer#,320
Dim LVItemtexts#,16384
LVDllHdl&=UseDll(Listview.dll)
Declare ListView2&

Proc TextListView2

    WhileLoop 0,10

        SetItem ListView2&,Test  + Format$(0000,&Loop),Test,Test

    Wend

EndProc

Proc SetListView2

    InitMessages(%hwnd)
    Declare tmptxt$
    tmptxt$=Spalte 1
    IColumn(ListView2&,Addr(tmptxt$),200,1)
    tmptxt$=Spalte 2
    IColumn(ListView2&,Addr(tmptxt$),140,1)
    tmptxt$=Spalte 3
    IColumn(ListView2&,Addr(tmptxt$),100,0)
    TextListView2
    ShowListView(ListView2&,1,1,Width(%hwnd) - 2,Height(%hwnd) - 2)

EndProc

Proc ExitLV

    Dispose LVItemtexts#
    Dispose LVParamBuffer#
    CloseMessages(%hwnd)
    FreeDll LVDllHdl&

EndProc

UserMessages 16
WindowStyle $218
Window 100,100 - 620,520
ListView2&=CreateListView(%hwnd,%hinstance,0,14417146,-1,$0)
SetListView2
SetColumnAlignment(ListView2&,0,1)
Declare ende%

WhileNot ende%

    WaitInput

    If %umessage = 16

        ende% = 1

    EndIf

Wend

'./../../function-references/XProfan/exitlv/'>ExitLV