XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit auslesen (und ggf. drucken)
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5
DATUM  23.11.2006    um  18:47 Uhr
VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! 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 MULTIEDIT1&
DECLARE BUTTON1&,Druckzeile$
WINDOWSTYLE 63
WINDOWTITLE Multiedit
WINDOW 22,20-640,650
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
MULTIEDIT1& =CREATE(MULTIEDIT,%HWND,,0010,0100,0200,-0200)
BUTTON1& = CREATE(BUTTON,%HWND,Auslesen,0313,0023,0200,0030)
SETFOCUS(%HWND)
Settext Multiedit1&,Dies ist ein Test und dieser soll dann einfach mal Zeilenweise angezeigt (statt ausgedruckt werden) - Bla Bla Bla Bla Bla

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(MULTIEDIT1&) MULTIEDIT

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        Whileloop GetLineCount(multiedit1&) Anzahl Zeilen

            druckzeile$=GetLine$(multiedit1&,&loop-1) einzelne Zeilen auslesen
            Hier könntest Du jede Zeile drucken
            print druckzeile$

        Wend

    ENDIF

WEND