XProfan

English

Jac has on [...]

on the 17.03.2009, 21:04 a Include posted:
Jac de Lad

Have time ne Inc from it zusammengekloppt. ought to ex Windows XP klappen and is sure yet ausbaubar. Perhaps wills Yes someone time strain.

Compile Mark Separation

Basierend on one View source of 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