XProfan

SetErrorlevel 0
Declare bereich#,listview&,lvdll&,text$,bytes&,bereich#,x&,y&,z&,font1&,font2&
Def GetSysColor(1) !"USER32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Unterschiedliche Fonts für Listview und Listview-Header..."
Window 0,0-800,600
Cls GetSysColor(15)
font1&=@Create("Font","MS Sans Serif",10,0,0,0,0)
font2&=@Create("Font","Tahoma",24,0,0,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,$FFFFFF,-1,$31)
EnableEdits(listview&,1)
InsertColumn listview&,"Lagercode",64,0
InsertColumn listview&,"Artikelnummer",64,0
InsertColumn listview&,"Warengruppe",148,0
InsertColumn listview&,"Artikelbezeichnung",200,0
InsertColumn listview&,"Artikelbeschreibung",150,0
InsertColumn listview&,"Preis",50,1
AutoSortListview listview&,1,1,1,1,1,2
text$="LVData/C64.csv"
bytes&=@FileSize(text$)

If bytes&>0

    Dim bereich#,bytes&
    ReadFileQuick(addr(text$),bereich#,0,bytes&)
    CsvToListview(listview&,bereich#,bytes&,6)
    Dispose bereich#

EndIf

x&=SendMessage(listview&,$101f,0,0)    LVM_GETHEADER
SetFont listview&,font1&               Font im Gesamt-Listview setzen
SetFont x&,font2&                      Extrafont für Header setzen
ShowListView(listview&,32,32,728,480)
InitMessages(%hwnd)

While 1

    waitinput
    Case %key=2:BREAK

Wend

CloseMessages(%hwnd)
freedll lvdll&
DeleteObject font1&
DeleteObject font2&
 $I Listview_Dispose.inc
/../function-references/XProfan/end/'>End