XProfan

//Versión:0.0.1

lb.swapentries(long lb,e1,e2){

    sendmessage(lb,wm_setredraw,,)
    insertstring(lb,0,)
    insertstring(lb,-1,)
    e1+
    e2+
    cadena e1s=getstring$(lb,e1)
    cadena e2s=getstring$(lb,e2)
    deletestring(lb,e1)
    insertstring(lb,e1,e2s)
    deletestring(lb,e2)
    insertstring(lb,e2,e1s)
    deletestring(lb,0)
    deletestring(lb,getcount(lb)-1)
    sendmessage(lb,wm_setredraw,true,)

}

lb.moveupentry(long lb,e){lb.swapentries(lb,e,e-1)}
lb.movedownentry(long lb,e){lb.swapentries(lb,e,e+1)}

lb.create(bool mode) {

    caso pCount==0 : mode=falso
    volver Control(LISTBOX,, $100+if(mode,2,),,,,,hwnd,,)

}

lb.getcs(long h){

    caso getcount(h)<1 : volver
    long cs=getcursel(h)
    caso cs<0 : volver
    volver getstring$(h,cs)

}

lb.getpos(long h){

    caso getcount(h)<1 : volver 0
    long cs=getcursel(h)
    caso cs<0 : volver 0
    volver cs

}

lb.setpos(long h,p){sendmessage (h,LB_SETCURSEL,p,)}
lb.gettopindex(long h){volver sendmessage(h,LB_GETTOPINDEX,,)}
lb.selectstring(long h,cadena s){;selectstring(h,-1,s)}
lb.settopindex(long h,p){sendmessage (h,LB_SETTOPINDEX,p,)}

lb.movelisttolist(long h,hold){

    long ti

    if hold==true {

        cadena cs=lb.getcs(h)
        ti=sendmessage(h,LB_GETTOPINDEX,,)

    }

    sendmessage(h,wm_setredraw,,)
    sendmessage(h,$0184,,)//clear
    movelisttohandle(h)

    if hold==true {

        lb.selectstring(h,cs)
        sendmessage (h,LB_SETTOPINDEX,ti,)

    } elseif hold==falso {

        sendmessage (h,LB_SETCURSEL,,)
        sendmessage (h,LB_SETTOPINDEX,ti,)

    }

    sendmessage(h,wm_setredraw,true,)

}

lb.sortinternallist{

    long h=lb.create(true)//create sorted list
    movelisttohandle(h)
    clearlist
    movehandletolist(h)
    destroywindow(h)

}

lb.removeSelBar(long hLB){

    long c=getCurSel(hLB)
    caso c<0 : volver falso
    cadena s=getString$(hLB,c)
    deleteString(hLB,c)
    insertString(hLB,c,s)
    volver true

}