XProfan

- Seite 1 -

Stephan
Sonneborn

Hallo Dietmar,

folgender Quellcode funktioniert unter WIN2K auch als EXE:
Kompilieren Markieren Separieren

declare rtfedit&, rtfdatei$
Def LockWindowUpdate(1) !"USER32","LockWindowUpdate"
cls
RTFEdit& = CREATE("RichEdit", %HWND, "1
1
1
1
1
1
1
1
1
1
1
1
1",100,100,100,100)
RTF("LoadRTF",RTFEdit&,RTFDatei$)
LockWindowUpdate(RTFEdit&)
sendmessage (RTFEdit&,207,1,0)

while 1

wend

Ich musste die RTF(...)-Zeile auskommentieren, weil ich keine RTF-Datei zum Testen hatte, und das Programm andernfalls mit einem Ausnahmefehler beendet wurde.

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Dietmar
Horn

@Stephan: Das ist ja auch nicht mein Problem. Wenn der Inhalt des RichEdit nur so groß ist, daß keine Scrollbalken erscheinen, dann klappt es ja auch bei mir. Nur eben mit Scrollbalken nicht.

@Andreas: Klingt plausibel. Kann es aber erst heute Abend zu Hause ausprobieren.

Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Rolf
Koch

Hi Dietmar,
wie sieht es hiermit aus?
Kompilieren Markieren Separieren

Declare RICH&,RDLL&
RDLL&=UseDLL("RICHED20.DLL")
CLS
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
RICH&=Control("RichEdit20A","XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxx",$54215804,23,45,292,37,%hwnd,2000,%hinstance)
Die XXXs sind einfach nur Dummy zum Füllen
Komischerweise kann ich den Stil $54215804 leider nicht wunschgemäss per Setstyle dem XProfan Richedit zuordnen - funktioniert nicht.
Also nur mit RichEdit20A möglich. ?!?

WHILE 1

    WAITINPUT

WEND

FREEDLL RDLL&

Rolf

Stephan
Sonneborn

[quote:c248b87fef=Dietmar Horn]@Stephan: Das ist ja auch nicht mein Problem. Wenn der Inhalt des RichEdit nur so groß ist, daß keine Scrollbalken erscheinen, dann klappt es ja auch bei mir. Nur eben mit Scrollbalken nicht.[/quote:c248b87fef]
Hallo Dietmar,

hast Du es ausprobiert? Bei mir erscheinen mehrere Zeilen, weil ich den Text mit Zeilenumbrüchen
versehen habe. Oder meintest Du horizontale Scrollbalken?

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Dietmar
Horn

Ich danke euch allen!

Mit meinen Code habe ich noch einmal tacheles geredet. Als alles Reden nichts half, habe ich ihm zusätzlich zur iF-Keule auch noch die AH-Keule verpaßt: 20 x REM davor und 20 x REM danach führten schließlich zum gewünschten Ergebnis.

Durch die neue Möglichkeit, nun mehrere Befehle in eine Zeile schreiben zu können, sieht der Code nun an dieser Stelle trotzdem noch lecker aus ...

Rolfs Control-Variante zeigt sich leider genauso störrich, wie die CREATE(RichEdit,...)

@Stephan: Ja, Deine Variante funktioniert auch bei mir. Doch ich muß den Text aus einer RTF-Datei laden - und dann klappt es ohne die REMs eben nicht mehr. Wird wohl wieder eine der ME-Spinnereien sein, die es so oft gibt ...

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Hallo Ditmar...

Statt AHs REM Keule tuts auch IFs Timerkeule:
Kompilieren Markieren Separieren

SetTimer 1
Waitinput
KillTimer

Ich benutze Listboxen öfters als Statusrückgabe. Da stolpere ich jedes Mal über dieses profanige 20-Zeilen-Problem. Im Interpreter verarbeitet Profan Messages nach jeder Zeile - in der EXE nur nach jeder zwanzigsten Zeile. Nach jedem GetMessage oder Waitinput erfolgt aber natürlich auch ein Abarbeiten der Messages und die Verstopfung wird wieder gelöst.
Abführprobleme gibts eben nicht nur in der Altenpflege...

Vielleicht sollte man die Waitinput-Methode DulcoIF und die REM Methode Laxoandi nennen?

Da 40 Tropfen Laxoandi erst Wirkung zeigten, verordne ich dir als Doktor der Profanologie für deine Anwendung jetzt mal ein Suppositorium DulcoIF...

Aber denk daran - bei übermäßiger Anwendung gibts Dünnschiß ohne Ende!

Stephan
Sonneborn

[quote:ff625f0531=Dietmar Horn]@Stephan: Wird wohl wieder eine der ME-Spinnereien sein, die es so oft gibt ...[/quote:ff625f0531]
Offensichtlich, denn unter WINXP klappts auch mit einer Datei...
Kompilieren Markieren Separieren

declare rtfedit&, rtfdatei$
Def LockWindowUpdate(1) !"USER32","LockWindowUpdate"
cls
RTFDatei$ = "c:\test.rtf"
RTFEdit& = CREATE("RichEdit", %HWND, "1
1
1
1
1
1
1
1
1
1
1
1
1",100,100,100,100)
RTF("LoadRTF",RTFEdit&,RTFDatei$)
LockWindowUpdate(RTFEdit&)
sendmessage (RTFEdit&,207,1,0)

while 1

wend

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Da is man mal 2 Tage wech und findet hiern Topic vor zur totlachen

Selten so gelacht.

Salve, iF

27.03.2005 ▲

- Seite 2 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hallo Dietmar,

mit LockWindowUpdate setzt Du das Richedit nicht auf ReadOnly. Per Message kann immer noch Text eingefuegt werden. So geht es richtig :
Kompilieren Markieren Separieren

 $H Windows.ph
DEF &EM_SETOPTIONS $044D
DEF &ECOOP_OR $02
DEF &ECO_READONLY $0800
DEF &ECOOP_SET $01
DEF &EM_GETOPTIONS $044E
Declare RtfEdit&,OldOptions&,B1&,B2&,RtfFile$
cls ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
Def LockWindowUpdate(1) !"USER32","LockWindowUpdate"
B1& = Create("BUTTON",%hwnd,"ReadOnly",10,10,80,20)
B2& = Create("BUTTON",%hwnd,"Edit",110,10,80,20)
RTFEdit& = CREATE("RichEdit",%hwnd,"",10,50,300,300)
RtfFile$ = "E:\1.rtf"  Pfad anpassen
RTF("LoadRTF",RTFEdit&,RtfFile$)
OldOptions& = SendMessage(RtfEdit&,&EM_GETOPTIONS,0,0)

Repeat

    waitinput

    If Clicked(B1&)

        SendMessage(RtfEdit&,&EM_SETOPTIONS,&ECOOP_OR,&ECO_READONLY)

    elseif Clicked(B2&)

        SendMessage(RtfEdit&,&EM_SETOPTIONS,&ECOOP_SET,Oldoptions&)

    Endif

Until %Key = 27

end

Gruss
Andreas

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

30.03.2005 ▲

Dietmar
Horn

Danke Andreas,

diese Lösung klappt nun endlich auch ohne die zwanzig REMs.

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

30.03.2005 ▲

Hallo Dietmar...

Zwanzig Laxoandis müssens nicht unbedingt sein, ein DulcoIf hätte es auch getan. Bei der chronoischen Verstopfung, die Profan aufweist, wirst du auf Dauer wohl nicht ohne Abführmittel auskommen.

31.03.2005 ▲

Jac
de
Lad

Da greife ich mal wieder was altes auf...

Ich habs probiert und das Ding ist dann wirklich readonly, nur ist bei mir der Scrollbalken am Rand weg. Mit Mausrad und Tastatur kann ich zwar trotzdem noch scrollen, aber das Ganze ist doch viel Schöner, wenn der Balken da ist. Gibts da Abhilfe? Also ich hab mit einigen Stilkonstanten experimentiert aber nix gefunden...

Jac

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.11.2005 ▲