XProfan

 $I Listview_Funktionen.inc
Declare IL_ListView1&

Proc BuildIL_ListView1

    Parameters Color&
    Declare IL&
    Declare Icon&,Anzahl&,Datei$
    IL& = External(COMCTL32,ImageList_Create,16,16,254,3,3)
    External(COMCTL32,ImageList_SetBkColor,IL&,Color&)
    Datei$=Par$(0)
    Icon& = External(SHELL32,ExtractIconA,%hinstance,Addr(Datei$),0)
    External(COMCTL32,ImageList_AddIcon,IL&,Icon&)
    Return IL&

EndProc

IL_ListView1& = BuildIL_ListView1($C3FDFF)

Proc Erstellen

    Declare Text$
    Text$=Nr;Titel;test;test;test;Min;Sec;
    SetColumnsFromMem(LV&,Addr(Text$),0)
    SetColumnWidth(LV&,0,40)
    SetColumnWidth(LV&,1,190)
    SetColumnWidth(LV&,2,140)
    SetColumnWidth(LV&,3,86)
    SetColumnWidth(LV&,4,86)
    SetColumnWidth(LV&,7,0)
    SetColumnAlignment(LV&,0,1)
    SetColumnAlignment(LV&,5,1)
    Text$ = 0
    SelectColumnEdits(LV&,Addr(text$))

EndProc

UserMessages 16
Cls
declare hDll&,LV&
hDll&=UseDll(Listview.dll)
InitMessages(%hwnd)
LV&=CreateListView(%hwnd,%hinstance,-1,$FFFFFF,-1,$21)
SetImageList(LV&,IL_ListView1&)
Erstellen

WhileLoop 0,10

    AddString(LV&,Format$(00,&Loop) + |Test|Test)

Wend

ShowListView(LV&,10,10,WIDTH(%hwnd) - 20,HEIGHT(%hwnd) - 20)

While 1

    WaitInput
    Case %umessage = 16:Break

    If %mousepressed = 2

        PrintListview(LV&,%hwnd,%hinstance,80,120,200,120,200,3,3,0,0,65 + 2)

    EndIf

Wend

CloseMessages(%hwnd) _ONCE
DeleteObject LV&
./../../function-references/XProfan/freedll/'>FreeDll hDll&