XProfan

Français

Jac hat sur [...]

am 17.03.2009, 21:04 une Include posté:
Jac de Lad

Hab la fois ne Inc daraus zusammengekloppt. Sollte ab Windows XP marcher et ist sûrement encore ausbaubar. peut-être wills oui quelqu'un la fois erweitern.

Kompilieren Marque Séparation

Basierend sur einem Voir le texte source de Uwe Pascal Niemeier
Def MultiByteToWideChar(6) !kernel32,MultiByteToWideChar

proc EnableGrouping

    Paramètres handle&,enable%
    sendmessage(handle&,$109D,enable%,0)
    cas enable%=0:sendmessage(handle&,$10A0,0,0)

endproc

proc CreateGroup

    Paramètres 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

    Paramètres handle&
    Retour sendmessage(handle&,$10AF,0,0)

endproc

proc SetGroup

    Paramètres handle&,item&,group&
    declare lv#
    Faible lv#,lv
    Lv#.Item&=item&
    Lv#.GroupID&=group&
    Lv#.Mask&=$100
    sendmessage(handle&,$1006,0,Lv#)
    Dispose lv#

endproc