XProfan

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.3a
DATUM  18.01.2006    um  15:38 Uhr
VERWENDETE PROFANVERSION IST 8.0-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"
 $I C:PROFANAKTUELLE PROJEKTEROCLIBSTBAR.INC (Für Statusbar)
DECLARE STATUSBAR&
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
LOADSIZEDBMP "C:WINDOWSANGLER.BMP",0015,0011-0128,0128;0
LOADSIZEDBMP "C:WINDOWSFÄCHER.BMP",0151,0013-0130,0124;0
CREATESTATUSBAR "STATUSBAR","","","" Parameter 1-4=Texte in Statusbar
LET STATUSBAR&=@&(0)
STATUSBARTEXT STATUSBAR&,2,"TEXTIN3TESFELDSETZEN"
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT
    Getmessage  weil Du ja ohne Klick die Hilfe unten angezeigt haben willst
    oder per Timer setzen.

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

        SETWINDOWPOS STATUSBAR& = 0,0 - 0,0;0

    ELSEIF MOUSE(0015,0012-141,137) HOTSPOT

        STATUSBARTEXT STATUSBAR&,0,"Das roc(kt)!"
        STATUSBARTEXT STATUSBAR&,3,"Hier ein Anglerbild"

    ELSEIF MOUSE(0151,0013-282,136) HOTSPOT

        STATUSBARTEXT STATUSBAR&,0,"und rollt!"
        STATUSBARTEXT STATUSBAR&,3,"und hier der Fächer"

    ENDIF

../../funktionsreferenzen/XProfan/Wend/'>WEND