XProfan

Español

Jac ha en [...]

al 17.03.2009, 21:04 una Incluir Nuevo:
Jac de Lad

Hab veces ne Inc lo zusammengekloppt. Sollte de Windows XP klappen y es sicher todavía ausbaubar. Tal vez wills sí alguien veces erweitern.

Kompilieren Marca Separación

Basierend en una Ver código fuente de Uwe Pascal Niemeier
Def MultiByteToWideChar(6) !kernel32,MultiByteToWideChar

proc EnableGrouping

    Parámetros handle&,enable%
    sendmessage(handle&,$109D,enable%,0)
    caso enable%=0:sendmessage(handle&,$10A0,0,0)

ENDPROC

proc CreateGroup

    Parámetros handle&,id&,texto$
    declarar texto#,lvgroup#
    dim texto#,255
    dim LvGroup#,LVGROUP
    LvGroup#.Size&=sizeof(LvGroup#)
    LvGroup#.Mask&=$11
    LvGroup#.pszHeader&=Texto#
    MultiByteToWideChar(0,0,Addr(texto$),-1,Texto#,255)
    LvGroup#.GroupId&=id&
    sendmessage(handle&,$1091,-1,LvGroup#)
    Disponer texto#,lvgroup#

ENDPROC

proc HasGroups

    Parámetros handle&
    Volver sendmessage(handle&,$10AF,0,0)

ENDPROC

proc SetGroup

    Parámetros handle&,item&,group&
    declarar lv#
    Dim lv#,lv
    Lv#.Item&=item&
    Lv#.GroupID&=group&
    Lv#.Mask&=$100
    sendmessage(handle&,$1006,0,Lv#)
    Disponer lv#

ENDPROC