XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox automatisch scrollen
Lauffähig ab Profan-Version 5.0
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.2
DATUM  25.01.2005    um  09:20 Uhr
VERWENDETE PROFANVERSION IST 9.0ß2-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE listbox&
DECLARE tolist&
DECLARE ende&
WINDOWSTYLE 63
WINDOWTITLE Listboxautoscroll
WINDOW 213,199-394,214
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
listbox& = CREATE(LISTBOX,%HWND,LISTBOX,0012,0013,0366,0096)
tolist& = CREATE(BUTTON,%HWND,Teststring hinzufügen,0044,0133,0125,0030)
ende& = CREATE(BUTTON,%HWND,Beenden,0193,0133,0139,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(listbox&) LISTBOX

    ELSEIF GETFOCUS(tolist&) BUTTON

        Addstring(listbox&,time$(1))
        sendmessage(listbox&,$0186,sendmessage(listbox&,$018B,1,0)-1,0)
        setfocus(%hwnd)

    ELSEIF GETFOCUS(ende&) BUTTON

        ende%=1

    ENDIF

WEND