XProfan

English

Jac
de
Lad

Hi,
So how one with the Status Bar bypassing white I. but can someone say, How I to that example (How Internet Explorer) a Hilfetext Show can, if the Menu opened is and the Mauscursor a exhaust streicht? Virtually ne small Help or so...!?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

01/18/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

here time one fast example (declared on the side even Hotspots

)
Compile Mark Separation

 $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

../../Function-References/XProfan/wend/'>WEND

Pass too Please The Include supra on, so the way is correct. you have Yes Roc is means no trouble.
Can rather make, but should go ahead demonstration so his.
Rolf

01/18/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote