Deutsch
Forum

RichEdit auf ReadOnly setzen

 

Dietmar
Horn
Hallo,
KompilierenMarkierenSeparieren
Def LockWindowUpdate(1) !"USER32","LockWindowUpdate"
RTFEdit& = CREATE("RichEdit", ...)
RTF("LoadRTF",RTFEdit&,RTFDatei$)
LockWindowUpdate(RTFEdit&)

Damit kann ich ein RichEdit auf ReadOnly setzen, und das klappt auch.

Doch wenn das RichEdit vertikale Srollbalken hat, dann ist leider kein Scrollen mehr möglich.

Weiß hier jemand Rat?

Danke!

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:  [...] 
25.03.2005  
 



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:  [...] 
26.03.2005  
 



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




Stephan
Sonneborn
Hallo Dietmar,

folgender Quellcode funktioniert unter WIN2K auch als EXE:
KompilierenMarkierenSeparieren
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
26.03.2005  
 




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:  [...] 
26.03.2005  
 




Rolf
Koch
Hi Dietmar,
wie sieht es hiermit aus?
KompilierenMarkierenSeparieren
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
 
26.03.2005  
 




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
26.03.2005  
 




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:  [...] 
26.03.2005  
 



Hallo Ditmar...

Statt AHs REM Keule tuts auch IFs Timerkeule:
KompilierenMarkierenSeparieren
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!
 
26.03.2005  
 




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



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

Selten so gelacht.

Salve, iF
 
27.03.2005  
 




Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

5.319 Betrachtungen

Unbenanntvor 0 min.
RudiB.16.09.2022
Erasmus.Herold11.10.2018
Ernst15.04.2016
Peter Max Müller09.06.2015
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie