XProfan

Hau ihm einfach ne 207,1 aufn Deets.

sendmessage (hdl&,207,1,0)

Salve, iF

25.03.2005 ▲

Dietmar
Horn

Habe mein MEchen gehaun, gehaun und immer wieder gehaun - also wirklich echt verprügelt!

Hat leider nicht viel geholfen!

Im Interpretermodus klappt das nach dem Verkloppen mit der 207er Keule nun zwar, doch compiliert wird im RichEdit nur eine CLS-GetSysColor(15)-Soße angezeigt.

Ob das was hilft, wenn ich mein XPRF9ß nun auch noch verprügele (oder RGH verkloppen ...)???

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

Versuche mal unter die Sendmessage zwanzig mal die Zeile REM zu setzen. Vielleicht ist das Profan Messagehandling daran schuld (kanns leider nicht testen, bei mir gehts mit Profan 7.5).

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!