Hi Martin - ich machs immer so:
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
' DATUM 24.05.2002 um 20:44 Uhr
' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE DLG&
DECLARE MULTIEDIT1%,Zeile%
DECLARE TEXT1%,zeile$,anzahl%
DECLARE BEREICH#
WINDOW 0,0-0,0
DLG&=CREATE("DIALOG",%HWND,"Text bearbeiten und speichern",92,58,498,297)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
MULTIEDIT1% =@CREATE("MULTIEDIT",DLG&,"",0033,0030,0428,0172)
TEXT1% =@CREATE("TEXT",DLG&,"Dein Wunsch geht in Erfüllung klicke auf das X :)",0104,0218,0305,0021)
If neq$(findfirst$("NOTIZ.TXT"),"")
DIM Bereich#,@FileSize("NOTIZ.TXT")+2
ReadText Bereich#,"NOTIZ.TXT"
@SendMessage(MULTIEDIT1%,$000C,0,Bereich#)
Dispose Bereich#
Endif
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2) 'Wenn das X geklickt wird (warum machst Du kein Button?)
If neq$(findfirst$("NOTIZ.TXT"),"") 'Bearbeiteten Text neu in Notiz.txt schreiben!
ASSIGN #1,"NOTIZ.TXT"
REWRITE #1
let anzahl%=@GetLineCount(Multiedit1%)
let zeile%=0
WHILENOT equ(anzahl%,zeile%)
print #1,@GetLine$(multiedit1%,zeile%)
inc zeile%
wend
CLOSE #1
ENDIF
LET ENDE%= 1
ELSEIF GETFOCUS(MULTIEDIT1%) 'MULTIEDIT
ENDIF
WEND
|