XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Editfeld-Änderungen erkennen
Lauffähig ab Profan-Version 5.0
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.2b
DATUM  07.05.2005    um  23:06 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
DECLARE EDIT1&
DECLARE EDIT2&
DECLARE EDIT3&
DECLARE geaendert&
DECLARE MULTIEDIT1&
DECLARE ende&
WINDOWSTYLE 63
WINDOWTITLE Editänderung erkennen
WINDOW 22,20-645,163
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
EDIT1& = CREATE(EDIT,%HWND,,0022,0024,0120,0020)
EDIT2& = CREATE(EDIT,%HWND,,0024,0053,0120,0020)
EDIT3& = CREATE(EDIT,%HWND,,0025,0082,0120,0020)
geaendert& = CREATE(BUTTON,%HWND,Änderung auslesen,0168,0026,0117,0030)
MULTIEDIT1& = CREATE(LISTBOX,%HWND,,0313,0024,0252,0100)
ende& = CREATE(BUTTON,%HWND,Ende,0169,0072,0116,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(EDIT3&) EDIT

    ELSEIF GETFOCUS(geaendert&) BUTTON

        getmessage wegen doppeltabfrage - sonst wird up - und down abgefragt
        sendmessage(Multiedit1&,$0184,0,0) Liste löschen

        if SendMessage(edit1&,$B8,0,0)     Änderung?

            Addstring(Multiedit1&,Eingabefeld 1 geändert)

        endif

        if SendMessage(edit2&,$B8,0,0)     Änderung?

            Addstring(Multiedit1&,Eingabefeld 2 geändert)

        endif

        if SendMessage(edit3&,$B8,0,0)     Änderung?

            Addstring(Multiedit1&,Eingabefeld 3 geändert)

        endif

        sendmessage(edit1&,$B9,0,0) Modifikation leeren
        sendmessage(edit2&,$B9,0,0) Modifikation leeren
        sendmessage(edit3&,$B9,0,0) Modifikation leeren

    ELSEIF GETFOCUS(MULTIEDIT1&) MULTIEDIT

    ELSEIF GETFOCUS(ende&) BUTTON

        ENDE%=1

    ENDIF

WEND