XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Infofenster mit Internetzugang
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:mmj-hoyerswerdaa@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 50FÜ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://mmj.mxii.comProzedur 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$