XProfan

Declare lvdll&,listview&,text$,x&,y&,z&,ilist&,bild1&,bild2&
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
Cls @Rgb(23,23,23)
Def ImageList_Create(5) !"comctl32.dll","ImageList_Create"
Def ImageList_Destroy(1) !"comctl32.dll","ImageList_Destroy"
Def ImageList_Add(3) !"comctl32.dll","ImageList_Add"
Usefont "MS Sans Serif",10,0,0,0,0
SetDialogFont 1
InitMessages(%hwnd)
ilist&=ImageList_Create(80,80,33,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,@Rgb(0,0,0),-1,$3)
bild1&=Create("hPic",-1,"C:	est	est3.bmp")
ImageList_Add(ilist&,bild1&,0)
bild2&=Create("hPic",-1,"C:TestTest3.bmp")
ImageList_Add(ilist&,bild2&,0)
SetImageList(listview&,ilist&)
InsertColumn listview&,"Name",200,0
InsertColumn listview&,"Index",160,0
SetItem listview&,"Test","Test"
SetItem listview&,"Test","Test"
SetItem listview&,"Test","Test"
SetIcon(listview&,0,0)
SetIcon(listview&,1,1)
SetIcon(listview&,2,2)
SetIconColumn(1)
SetIcon(listview&,0,0)
SetIcon(listview&,1,0)
SetIcon(listview&,2,2)
ShowListView(listview&,8,8,480,320)

While 1

    waitinput
    Case %key=2:BREAK

EndWhile

ImageList_Destroy(ilist&)
DestroyWindow(%hwnd)
freedll lvdll&
Fin

IncludeFile "Listview.pb"
Global flen.l, lhandle.l, bereich.l
Global datei.s, datei2.s, db_datei.s
Global spalte1.s, spalte2.s, spalte3.s, sp1.s, sp2.s, sp3.s, selected.s
spalte1.s = "Name"
spalte2.s = "Index"
Dim Spalten.l(2)
Dim Sortspalten.l(2)
selected = Space(16384)
fenster1.l = OpenWindow(0, 100, 100, 600, 460, "List - View", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

If CreateGadgetList(WindowID(0))

    ButtonGadget(1, 10, 10 ,70, 20, "Ende")
    Frame3DGadget(10, 5, 100, 580, 350, "Listview", #PB_Frame3D_Double)
    fenster.l = GadgetID(10)
    ; Listview initialisieren und erstellen
    lhandle = CreateListview(fenster, 150, 150, RGB(255, 255, 255), -1, $31)
    IColumn(lhandle, @spalte1, 240, 0)
    IColumn(lhandle, @spalte2, 80, 1)

EndIf

; Listview anzeigen
ShowListview(lhandle, 5, 15, 570, 320)
; Messageverwaltung einschalten
InitMessages(fenster)

Repeat

    EventID.l = WaitWindowEvent()

    Select EventID

        Case #PB_Event_CloseWindow
        Quit = 1
        Case #PB_Event_Gadget

        Select EventGadget()

            Case 7
            Ouit=1

        EndSelect

    EndSelect

Until Quit = 1

; Messageverwaltung wieder ausschalten
CloseMessages(fenster)
FreeMemory(0)
DestroyWindow_(fenster1)
CloseWindow(0)
CloseLibrary(#lvdll)
./../../references-fonction/XProfan/end/'>Fin

Def ImageList_Create(5) !"comctl32.dll","ImageList_Create"
Def ImageList_Destroy(1) !"comctl32.dll","ImageList_Destroy"
Def ImageList_Add(3) !"comctl32.dll","ImageList_Add"re>