XProfan

Infofenster mit Intenetzugang ... von Alfred Wagner
April 2007 getestet unter Windows XP /XProfan 10
Freeware viel Spass mit dieser Vorlage!
Bei Fragen,Fehlern,Verbesserungen bitte eine mail an
AlfredWagner2@gmx.de
----------------------------------------------------------------------------------------------
 $P+
SET(ERRORLEVEL,0)
 $H windows.ph
*** Für Cursor Hand
DEF SetClassLong(3) ! USER32,SetClassLongA
Def LoadCursor(2) !USER32,LoadCursorA
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE ENDE%,Ende&,Inet$,Mail$,TxT_$,TxT$,hand&,hFont%,Font%
hand&=LoadCursor(0,32649)*** Cursor
*** Prozedurdefinitionen

Proc Url

    Standardbrowser aufrufen mit unten eingegebener Adresse /Parameter (+S$)
    Parameters S$
    Shell rundll32.exe url.dll,FileProtocolHandler +S$

Endproc

Proc Email

    Mail Programm aufrufen
    Shell rundll32.exe url.dll,FileProtocolHandler mailto:Dein_Name@gmx.de,,,,

Endproc

Proc Txt

    TxT_$ = Internet
    TxT$ = E-Mail
    TextColor RGB($FF, $00, $00),-1** Blauer Text
    USEFONT Arial,22,0,1,1,0** Schriftart

Endproc

Proc Button

    Ende& = CREATE(BUTTON,%HWND,Ende,150,32,70,22)
    hFont% = @Create(Font,MS Sans Serif,13,0,0,0,0)
    SetFont Ende&,hFont%** Schriftart Button

Endproc

*** Fenster
WINDOWSTYLE 28
WINDOWTITLE Infofenster mit Intenetzugang ...
WINDOW (%maxx/2 - 240/2),(%maxy/2 - 100/2) - 240,100
SET(TRUECOLOR,1)
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Button
Txt
*** Hauptschleife
@SetFocus(%hwnd)

WhileNot Ende%

    Getmessage
    ~Sleep(50)  FÜR DEN PROZESSOR: (Hover darf kein Waitereignis besitzen)** Von Rolf Koch ,DANKE

    IF GETFOCUS(Ende&) Beenden-BUTTON

        ENDE%=1

    ENDIF

    HIER NUN DIE HOVERAKTIONEN **************************************************
    Internet

    If mouse(20,15-85,35)  Position des Mauszeigers

        ~Setcursor(hand&)Ein anderer Cursor vielleicht?
        TextColor @RGB($00,$00,$FF),-1 blauer Text
        Drawtext 20,15,TxT_$

        while  mouse(20,15-85,35) SOLANGE MAUS ÜBER Text

            ~Setcursor(hand&)
            Sleep 50 FÜR DEN PROZESSOR: WICHTIG !!!
            Aktion beim Drücken der LINKEN Maustaste über den nun blauen Text

            if equ(%mousekey,1)

                while equ(%mousekey,1)  WENN NUN MAUSKLICK LINKS

                wend

                Url  http://was_weis_ich.deProzedur Url

            Endif

        ENDWHILE

        Wenn die Maus sich nicht über dem Text befindet
        TextColor @RGB(31,31,31),-1 schwarzer Text
        Drawtext 20,15,TxT_$
        Else  Damit der Text beim Programmstart sichtbar ist
        TextColor @RGB(31,31,31),-1 schwarzer Text
        Drawtext 20,15,TxT_$

    Endif

    Mail

    If mouse(20,45-80,55)

        ~Setcursor(hand&)
        TextColor @RGB($00,$00,$FF),-1
        Drawtext 20,40,TxT$

        while  mouse(20,45-80,55)

            ~Setcursor(hand&)
            Sleep 50

            if equ(%mousekey,1)

                while equ(%mousekey,1)

                wend

                EmailProzedur E-Mail

            Endif

        ENDWHILE

        TextColor @RGB(31,31,31),-1
        Drawtext 20,40,TxT$

    Else

        TextColor @RGB(31,31,31),-1
        Drawtext 20,40,TxT$