XProfan

 $I Listview_Funktionen.inc

Proc Drucken

    Parameters LV&
    Declare txt$
    txt$=Ausdruck 1
    PrintListview(LV&,%hwnd,%hinstance,80,120,200,120,200,3,3,Addr(txt$),0,65)

EndProc

Declare hDll&,LV&,hFont&
Window 10,10 - 660,560
hfont& = Create(Font,Arial,18,0,0,0,0)
PopUp Programm
AppendMenu 100,&drucken
Separator
Appendmenu 101,be&enden
hDll&=UseDll(Listview.dll)
InitMessages(%hwnd)
LV&=CreateListView(%hwnd,%hinstance,-1,$FFFFFF,-1,$21)
SetFont LV&,hFont&
EnableDragDrop(LV&,5)
Declare Text$
Text$=Nr;Test;Test-Test;Tester;Tester;Test;Test
CsvToHeader(LV&,Addr(Text$),0)
Hier bei Version 2.0 SetColumnsFromMem verwenden
SetColumnsFromMem(LV&,Addr(Text$),0)
SetColumnWidth(LV&,0,40)
SetColumnWidth(LV&,1,190)
SetColumnWidth(LV&,2,150)
SetColumnWidth(LV&,3,86)
SetColumnAlignment(LV&,0,1)
SetColumnAlignment(LV&,5,1)
Setitem(LV&,01,Test 1)
Setitem(LV&,02,Test 2)
Setitem(LV&,03,Test 3)
Setitem(LV&,04,Test 4)
ShowListView(LV&,10,10,WIDTH(%hwnd) - 20,HEIGHT(%hwnd) - 20)

While 1

    WaitInput

    If %menuitem = 101

        Break

    ElseIf %menuitem = 100

        Drucken(LV&)

    EndIf

EndWhile

CloseMessages(%hwnd)  _ONCE
DeleteObject LV&
DeleteObject hFont&