XProfan

Randomize
Declare Listview&,Lvdll&,Text$,Text2$,X&,Y&,Z&,Font&
Def Getsyscolor(1) !USER32,GetSysColor
 $I Listview_funktionen.inc
Lvdll&=Usedll(Listview.dll)
Windowstyle 543
Windowtitle Listview.dll / Prozentanzeige
Window 0,0-400,256
Cls Getsyscolor(15)
Font&=Create(Font,MS Sans Serif,13,0,0,0,0)
X&=Mixrgbs(Getsyscolor(15),$00Ffffffff)
Listview&=Createlistview(%Hwnd,%Hinstance,0,X&,-1,$31)
Setfont Listview&,Font&
Insertcolumn Listview&,Text,60,0
Insertcolumn Listview&,Prozent,240,0

Whileloop 12

    Text2$=
    X&=Rnd(30)

    Whileloop X&

        Text2$=Text2$+Chr$(127)

    Wend

    Text2$=Text2$+  +Str$(Int(100/30*X&))+%
    Text$=Item +Str$(&Loop)
    Setitem Listview&,Text$,Text2$

Wend

Autosortlistview Listview&,1,1
Showlistview(Listview&,8,8,370,200)
Initmessages(%Hwnd)
Settimer 1500

While 1

    Waitinput
    Case %Key=2:Break
    Y&=Rnd(4)

    Whileloop 12

        Text2$=
        X&=Rnd(30)

        Whileloop X&

            Text2$=Text2$+Chr$(127)

        Wend

        Case Y&=0:Text2$=Text2$+  +Str$(Int(100/30*X&))+%
        Setitemtext(Listview&,Addr(Text2$),1,(&Loop-1))

    Wend

Wend

Killtimer
Destroywindow(Listview&)
Closemessages(%Hwnd)
Freedll Lvdll&
Deleteobject Font&
 $I Listview_dispose.inc
End