XProfan

Español

Detlef
Tussing

¿Cómo se puede Yo una txt Expediente optimal Mostrar
hier mein Intento, el aber nicht`s taugt.
Alles weitere es en el versuch.txt
Kompilieren Marca Separación

 {$DEBUG}
declare x$
Assign #1,versuch.txt
reset #1

whilenot @Eof(#1)

    input #1,x$
    print x$ close #1

endwhile

close #1
waitkey
KompilierenMarcaSeparaciónDies es el TXT Expediente, en el Original se ellos grösser ser
Versuchstext con más Zeilen versuch.txt
2 Lo solte una Textfenster geöffnet voluntad, en el ganzen Texto lesbar darzustellen.
Zusätzlich debería 2 Button adecuado voluntad, en el Texto a akzeptieren oder no
3
Eventuell scrollbar
5
Hab ya viel Probiert aber el zündende Einfall kam no.
7
Für una Tip wär Yo dankbar
9
0
2
3
4
5
6
7
8
9
0

Gruß Detlef Tussing
Windows XP, XProfan 10

27.06.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Schau veces después de ReadText y lade el todo Expediente en una Multiedit. Das sieht ya mejor de.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

27.06.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Eigendlichn Chiste breve.

var edit&=createedit(%hwnd,file_get_contents(myfile),0,0,width(%hwnd),-height(%hwnd))

28.06.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

Yo komm con euren Vorschlägen no wirklich más.
Trotzdem Dank para eure Ayuda.
Yo habe alles durchsucht, finde aber kein en vergleichbaren Contribución.
Lo liegt wohl a me, como I, con MultiEdit y ähnlichem todavía no Erfahrung habe, y no blanco cómo dies einsetzt.

Gruß Detlef Tussing
Windows XP, XProfan 10

28.06.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Detlef
Hier una kleiner Anfangscode....
Kompilieren Marca Separación

DECLARE edit&,bereich#
DECLARE EE%,print%,save%,aus%,font%
font%=CREATE(FONT,ARIAL,16,6,0,0,0)
EE%=0
-----------------------------------------

PROC BEENDEN

    DISPOSE bereich#
    EE%=1

ENDPROC

------------------------------------------

PROC EDITOR

    PARAMETERS datei$

    IF datei$ >

        edit&=CREATE(MULTIEDIT,%HWnd,,10,25,615,415)
        SetFont edit&,font%
        Dim Bereich#, @FileSize(datei$) + 5
        ReadText Bereich#, datei$
        SendMessage(edit&, $000C, 0, Bereich#)

    ENDIF

ENDPROC

-----------------------------------------
WindowStyle 26
WINDOW (%MaxX/2-320),(%MaxY/2-240)-640,480
USEICON TEXT
WindowTitle Beispielcode
save%=CREATE(BUTTON,%HWND,&Speichern,10,2,80,20)
SetFont save%,font%
print%=CREATE(BUTTON,%HWND,&Drucken,100,2,80,20)
SetFont print%,font%
aus%=CREATE(BUTTON,%HWND,ESC Ende,545,2,80,20)
SetFont aus%,font%
EDITOR dateiname Deine Datei als String angeben

WHILENOT EE%

    WAITINPUT
    CASE ISKEY(27) | CLICKED(aus%):BEENDEN

ENDWHILE

/../funktionsreferenzen/XProfan/end/'>FIN