XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Checkbox erstellen und ihren Zustand abfragen
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Diese Beispiel demonstriert, wie eine Checkbox erstellt und ihr Zustand abgefragt wird.
Es bedeuten:
------------
Window x1,y1 - x2,y2		 ein Fenster wird erstellt
%MaxX				 horizontale Auflösung des Bildschirmes
%MaxY				 vertikale Auflösung des Bildschirmes
%Hwnd				 Handle des Hauptfensters
Createcheckbox			 siehe Profan² - Hilfe
-----------------------------------------------
declare ende%,y%,x%,Test%,checkbox%		Variablen declarieren
let x%=200		Breite des Fensters
let y%=150		Höhe des Fensters
Window div(sub(%MaxX,x%),2),div(sub(%MaxY,y%),2) - x%,y%	ein Fenster wird erstellt, es steht immer in der
Bildschirmmitte (egal wie groß das Fenster ist!)
let test%=createbutton(%Hwnd,Test,45,50,100,25)		 OK-Button erstellen
let checkbox%=createcheckbox(%Hwnd,CheckBox,52,20,85,20)
let ende%=0

whilenot ende%

    waitinput

    if equ(%key,2)

        let ende%=1

    elseif getfocus(test%)						Abfrage, ob Button Test gedrückt wurde

        if getcheck(checkbox%)					danach wird abgefragt, ob die Checkbox aktiviert  wurde

            messagebox(CheckBox aktiviert!,I N F O,4160)			irgendetwas auslösen...

        else

            messagebox(CheckBox nicht aktiviert!,I N F O,4160)
            wenn Checkbox nicht aktiviert wurde, mache das...,
            kann auch weggelassen werden, wenn nur wichtig ist
            zu wissen, ob die Checkbox aktiviert wurde

        endif

    endif

Wend

end