XProfan

Italia

Jac hat auf [...]

am 17.03.2009, 21:04 eine Include gepostet:
Jac de Lad

Hab mal ne Inc daraus zusammengekloppt. Sollte ab Windows XP klappen und ist sicher noch ausbaubar. Vielleicht wills ja jemand mal erweitern.

Kompilieren Markieren Separieren

Basierend auf einem Quelltext von Uwe Pascal Niemeier
Def MultiByteToWideChar(6) !kernel32,MultiByteToWideChar

proc EnableGrouping

    Parameters handle&,enable%
    sendmessage(handle&,$109D,enable%,0)
    case enable%=0:sendmessage(handle&,$10A0,0,0)

endproc

proc CreateGroup

    Parameters handle&,id&,text$
    declare text#,lvgroup#
    dim text#,255
    dim LvGroup#,LVGROUP
    LvGroup#.Size&=sizeof(LvGroup#)
    LvGroup#.Mask&=$11
    LvGroup#.pszHeader&=Text#
    MultiByteToWideChar(0,0,Addr(text$),-1,Text#,255)
    LvGroup#.GroupId&=id&
    sendmessage(handle&,$1091,-1,LvGroup#)
    Dispose text#,lvgroup#

endproc

proc HasGroups

    Parameters handle&
    Return sendmessage(handle&,$10AF,0,0)

endproc

proc SetGroup

    Parameters handle&,item&,group&
    declare lv#
    Dim lv#,lv
    Lv#.Item&=item&
    Lv#.GroupID&=group&
    Lv#.Mask&=$100
    sendmessage(handle&,$1006,0,Lv#)
    Dispose lv#

endproc