XProfan

English

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fensterbereiche abfragen
Lauffähig ab Profan-Version 5.0
titel:    Fensterbereiche abfragen (Koordinaten)
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    27.01.2001
-----------------------------------------------
Erklärung:
----------
Hat man z.B. ein Bild angezeigt und will es aktiv
werden lassen (reaktionsfähig), so kann man dies
mit dem Befehl @Mouse erledigen.
Declare ende%				Variable für Endeschalter vorbereiten.
Window 30,10 - 350,200			Fenster erstellen
Windowtitle Koordinatenabfrage Titel des Fensters
Print Bitte mal ins leere und dann in irgendein
Print Bild klicken
Hier werden Bilder (absichtlich vorhandene Bilder aus dem Windowsverzeichnis) an
der X,Y Position im hinter dem Semikolon stehenden Kopierwert angezeigt.
Kopierwerte siehe Profanhilfe. O = normale Anzeige.
Loadbmp C:WINDOWSKACHELN.BMP,30,51;0
Loadbmp C:WINDOWSKREISE.BMP,80,51;0
Loadbmp C:WINDOWSKUGELN.BMP,148,51;0
Loadbmp C:WINDOWSBLAUE NOPPEN.BMP,240,50;0
Loadbmp C:WINDOWSHAHNENTRITT.BMP,240,90;0

whilenot ende%					Solange Variable ende% = 0

    waitinput					wartet auf eine Eingabe - Maus oder Taste

    If @Mouse(30,50 - 62,82)			Wenn Mausklick im Bereich X 30 Y50 (linke obere Ecke Bild) und

        x62,y82 (rechte untere Ecke)
        @MessageBox(Bild Kacheln.bmp wurde gedrückt,Bild Nr.1,64)
        Eine Hinweisfenster anzeigen wenn im Maus im Klickbereich
        Parameter: @message(Text,Überschrift,Iconnr (siehe Profanhilfe))

    ElseIf @Mouse(80,50 - 112,82)			wennaber .......

        @MessageBox(Bild Kreise.bmp wurde gedrückt,Bild Nr.2,64)

    ElseIf @Mouse(149,51 - 211,113)			wennaber.....

        @MessageBox(Bild Kugeln.bmp wurde gedrückt,Bild Nr.3,64)

    ElseIf @Mouse(240,50 - 256,66)			wennaber...

        @MessageBox(Bild Blaue Noppen.bmp wurde gedrückt,Bild Nr.4,64)

    ElseIf @Mouse(240,90 - 267,115)			wennaber..

        @MessageBox(Bild Hahnentritt.bmp wurde gedrückt,Bild Nr.5,64)
        Endif						Ende der Abfrage
        wend						zurück To Whilenot end%