'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
' DATUM  28.11.2002    um  22:04 Uhr
' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER

SETTRUECOLOR 1
DECLARE ENDE%
DECLARE TEXT1%
DECLARE EDIT1%
DECLARE EDIT2%
DECLARE EDIT3%
DECLARE EDIT4%
DECLARE TEXT2%
DECLARE BUTTON1%
Declare z1$,z2$,z3$,z4$,string$
WINDOWSTYLE 527
WINDOW 178,78-486,242
WINDOWTITLE "Text im Textfeld aktualisieren"
CLS @RGB(212,208,200)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

' Hier kann ggf. Ihr Menü hin

TEXT1% =CREATE("TEXT",%HWND,"",0021,0010,0290,0102)
EDIT1% =CREATE("EDIT",%HWND,"",0342,0010,0110,0022)
EDIT2% =CREATE("EDIT",%HWND,"",0342,0039,0110,0022)
EDIT3% =CREATE("EDIT",%HWND,"",0342,0069,0110,0022)
EDIT4% =CREATE("EDIT",%HWND,"",0342,0098,0110,0022)
TEXT2% =CREATE("TEXT",%HWND,"Bitte jeweilige Zeile zum Testen eingeben",0341,0127,0126,0027)
BUTTON1% =CREATE("BUTTON",%HWND,"Test",0366,0160,0070,0025)
WHILENOT ENDE%
WAITINPUT
   If @EQU(%KEY,2)
      LET ENDE%= 1
   ELSEIF GETFOCUS(BUTTON1%) 'BUTTON
   z1$=@gettext$(edit1%);"\n"
   z2$=@gettext$(edit2%);"\n"
   z3$=@gettext$(edit3%);"\n"
   z4$=@gettext$(edit4%);"\n"
   string$=z1$;z2$;z3$;z4$
   settext Text1%,string$
   
   ENDIF
WEND