Declare clv1#,clv2#,clvall#,lvitem#
Dim clv1#,256
Dim clv2#,64
Dim clvall#,1400
Dim lvitem#,292

DEF CreateListview(6) !"LISTVIEW","CreateListview"
DEF ShowListview(5) !"LISTVIEW","ShowListview"
DEF IColumn(4) !"LISTVIEW","IColumn"
DEF SItem(3) !"LISTVIEW","SItem"
DEF InitMessages(1) !"LISTVIEW","InitMessages"
DEF ASortListview(3) !"LISTVIEW","ASortListview"
DEF ReadFileQuick(4) !"LISTVIEW","ReadFileQuick"
DEF SetItemsFromMem(4) !"LISTVIEW","SetItemsFromMem"
DEF CsvToListview(4) !"LISTVIEW","SetItemsFromMem"
DEF SwapLines(3) !"LISTVIEW","SwapLines"
DEF GetSelected(2) !"LISTVIEW","GetSelected"
DEF GetSelectedDbClk(2) !"LISTVIEW","GetSelectedDbClk"
DEF GetTabOffsets(2) !"LISTVIEW","GetTabOffsets"
DEF GetLines(1) !"LISTVIEW","GetLines"

ShowListview(H,X,Y,B,H)
 
Zeigt ein Listview auf dem Bildschirm an, das mit CreateListview() erzeugt wurde.
 
H : Long - Handle eines mit CreateListview() erstellten Listview Controls
X : Long - X-Koordinate des Listviews
Y : Long - Y-Koordinate des Listviews
B : Long - Breite des Listviews
H : Long - Höhe des Listviews
 
Das Listview mit dem Handle H wird jetzt sichtbar gemacht, an Position X, Y und in Größe B x H.
 
Es gibt keine spezielle Funktion, um ein Listview wieder freizugeben oder zu beenden, dazu kann Profan's @DestroyWindow() oder die Windows-API DestroyWindow() benutzt werden. Wird das Fenster geschlossen, in dem sich das Listview befindet, dann zerstört Windows automatisch alle Objekte, die sich darin befinden.
Bevor ShowListview() aufgerufen wird, sollte das Listview mit Text und/oder Icons gefüllt werden. Vorher nämlich, in unsichtbarem Zustand, erfolgt das Füllen mit Text und Grafik mit 3-4 facher Geschwindigkeit !!!.
 
ShowListview(listview&,100,100,600,400)

.lib "listview.dll"
createlistview(F,I,T,H,G,S) :"CreateListview"
showlistview(H,X,Y,B,H) :"ShowListview"

createlistview(tax,hINSTANCE%,-1,-1,-1,$20)
showlistview(tax,100,100,600,400)

.lib "Listview.dll"

; Listview - Deklarationen
; Listview.decls

AddItemValues(H%,S,B*,A%):"AddItemValues"
AreCheckboxesPresent%(H%):"AreCheckboxesPresent"
AreIconsPresent%(H%):"AreIconsPresent"
ASortListview(H%,B%,A*):"ASortListview"
CheckIfMarked%(H%):"CheckIfMarked"
CloseMessages(H%):"CloseMessages"
CopyColumnTo(H%,Z*,I%,F%):"CopyColumnTo"
CopyLineTo(H%,Z*,I%,F%):"CopyLineTo"
CreateImageList%(F%,B*):"CreateImageList"
CreateListview%(F%,I%,T%,H%,G%,S%) : "CreateListview"
CryptMem(B*,A%,S*,L%):"CryptMem"
CsvToListview(H%,B*,A%,S%):"CsvToListview"
DbfToCsv%(B*,A*,S*,Z*,F%):"DbfToCsv"
EnableEdits(H%,F%):"EnableEdits"
EraseListview(H%):"EraseListview"
ExamineColumns%(H%,S%):"ExamineColumns"
ExchangeSeparator(B*,A%,AT%,NT%):"ExchangeSeparator"
FilelistToCsv%(N*,B*,S*,Z*,F%,I*):"FilelistToCsv"
GetAllSelected%(BT*,BL*):"GetAllSelected"
GetCheckboxState%(H%,I%):"GetCheckboxState"
GetChecked%(BL*,BI*,BS*):"GetChecked"
GetColumns%(H%):"GetColumns"
GetColumnUpdate(H%,B*):"GetColumnUpdate"
GetColumnWidth%(H%,I%):"GetColumnWidth"
GetControlParas%(B*):"GetControlParas"
GetIndex%():"GetIndex"
GetItemText%(H%,T*,S%,L%):"GetItemText"
GetLines%(H%):"GetLines"
GetLineText%(H%,Z%,BT*):"GetLineText"
GetNeededMemory%(H%,F%):"GetNeededMemory"
GetNullOffset%(B*):"GetNullOffset"
GetOwnControlParas(B*,H%,S%,Z%):"GetOwnControlParas"
GetRealColumnIndex%(H%,S%):"GetRealColumnIndex"
GetSelected%(BT*,BL*):"GetSelected"
GetSelectedDbClk%(BT*,BL*):"GetSelectedDbClk"
GetSelectedLine%(H%):"GetSelectedLine"
GetTabOffsets%(BT*,BO*):"GetTabOffsets"
GetVar%(F%):"GetVar"
IColumn(H%,T$,B%,F%):"IColumn"
InitMessages(F%):"InitMessages"
ListviewToCsv%(H%,B*,A%,F%):"ListviewToCsv"
ListviewToDbf%(H%,B*,A%,F%):"ListviewToDbf"
MarkIfChecked%(H%):"MarkIfChecked"
MixRGBs%(F1%,F2%): "MixRGBs"
PrintListview(H%,W%,I%,S%,L%,O%,R%,U%,PS%,PZ%,US*,N*,F%):"PrintListview"
RaiseColumns(H%,B*,S%,G%):"RaiseColumns"
ReadFileQuick%(S*,B%,O%,A%):"ReadFileQuick"
Register(k%):"Register"
SearchText%(H%,SZ%,EZ%,SS%,S*,F%,V*):"SearchText"
SelectColumnEdits(H%,B*):"SelectColumnEdits"
SelectLine(H%,I%,F%):"SelectLine"
SetBackImage(H%,N*,F%):"SetBackImage"
SetCheckboxState(H%,I%,S%):"SetCheckboxState"
SetColumnsFromMem(H%,B*,O*):"SetColumnsFromMem"
SetColumnSort(H%,S%,F%):"SetColumnSort"
SetColumnUpdate(H%,B*):"SetColumnUpdate"
SetFilelistFilter(S*):"SetFilelistFilter"
SetFilelistNoFilter(S*):"SetFilelistNoFilter"
SetIcon(H%,Z%,N%):"SetIcon"
SetIconMode(F%):"SetIconMode"
SetIconsFromMem(H%,Z%,B*,A%):"SetIconsFromMem"
SetIconsWith(H%,Z%,N%,A%):"SetIconsWith"
SetImageList%(H%,I*):"SetImageList"
SetIndex(I%):"SetIndex"
SetItemText%(H%,T*,S%,L%):"SetItemText"
SetStyle(S%):"SetStyle"
ShowListview(H%,X%,Y%,B%,W%):"ShowListview"
SItem(H%,B*,A%):"SItem"
SortManual(H%,S%,F%):"SortManual"
SwapLines%(B*,A%,F%):"SwapLines"
WriteFileQuick%(S*,B*,O%,A%):"WriteFileQuick"
 
 

Const class$="BLITZMAX_WINDOW_CLASS"  ; <- BlitzPlus 1.34
;Const class$="Blitz Runtime Class"
Const title$ = "Listview"
Const stil% = $31

Function CenterWindow (title$, width, height, group = 0, style = 1)
    CreateWindow (title$, (ClientWidth (Desktop ()) / 2) - (width / 2), (ClientHeight (Desktop ()) / 2) - (height / 2), width, height, group, style)
   Return FindWindow(class$,title$)
End Function

Function PokeString(Bank,Offset,String$)
   For I = 0 To Len(String$) - 1
      PokeByte Bank,Offset + I,Asc(Mid$(String$,I + 1,0))
   Next
End Function

Function PeekString$(Bank,Offset)
   While True
      Byte = PeekByte(Bank,Offset)
      If Byte = 0 Then
         Exit
      Else
         String$ = String$ + Chr$(Byte)
      EndIf
   Wend
   Return String$
End Function
 

hwnd% = CenterWindow ("Listview", 640, 480)

 
Bank1 = CreateBank(10)
Bank2 = CreateBank(10)
sp1$ = "Spalte1"
sp2$ = "Spalte2"
sp3$ = "spalte3"

PokeString(Bank1, 0, "AAA")
PokeString(Bank1, 4, "BBB")
PokeString(Bank1, 8, "CCC")

lv% = CreateListview(hwnd%,0, 0, -1, -1, stil%)
IColumn(lv%, sp1$, 100, 0)
IColumn(lv%, sp2$, 200, 1)
IColumn(lv%, sp3$, 150, 2)
SItem(lv%, Bank1, 3)
ShowListview(lv,10,100,600,300)



Repeat
Until WaitEvent () = $803

FreeBank Bank1
FreeBank Bank2
End