$P+
SetErrorLevel 0
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S 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