XProfan

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:

proc Selectchoice

    Parameters handl%,num%
    Sendmessage(handl%,$014E, num% ,1)

Endproc

proc LB_ClearFast

    Parameters handl%
    sendmessage(handl%,$0184,0,0)

endproc

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:

proc LB_SETPOS

    Parameters Handl%,Num%

    if lt(num%,getcount(Handl%))

        Selectstring(Handl%,Num%-1,Getstring$(Handl%,Num%))

    else

        sub num%,1
        Selectstring(Handl%,Num%,Getstring$(Handl%,Num%))

    endif

EndProc

proc LB_SETSTRING

    Parameters Handl%,String$
    Selectstring(Handl%,-1,String$)

EndProc

proc LB_DELPOS

    Parameters Handl%,Num%
    DeleteString(Handl%,Num%)

EndProc

proc LB_MOVEPOS

    Parameters Handl%,Num%,Numto%
    Declare s$
    s$=Getstring$(Handl%,Num%)
    DeleteString(Handl%,Num%)
    Insertstring(Handl%,Numto%,S$)

EndProc

proc LB_COPYPOS

    Parameters Handl%,Num%,Numto%
    Insertstring(Handl%,Numto%,Getstring$(Handl%,Num%))

EndProc

proc LB_DELLAST

    Parameters Handl%
    LB_DELPOS HANDL%,sub(GETCOUNT(HANDL%),1)

EndProc

proc LB_DELFIRST

    Parameters Handl%
    LB_DELPOS HANDL%,0

EndProc

proc LB_DELSTRING

    Parameters Handl%,String$
    Declare Num%
    NUM%=Selectstring(Handl%,-1,String$)
    DeleteString(Handl%,Num%)
    LB_SETPOS HANDL%,NUM%

EndProc

proc LB_UP

    PARAMETERS HANDL%
    LB_SETPOS HANDL%,Add(GETCURSEL(HANDL%),-1)

EndProc

proc LB_DOWN

    PARAMETERS HANDL%
    LB_SETPOS HANDL%,Add(GETCURSEL(HANDL%),01)

EndProc

proc LB_INSERT

    Parameters Handl%,String$,Num%
    Insertstring(Handl%,Num%,String$)

endproc