Español
Foro

RichEdit en ReadOnly conjunto

 

Dietmar
Horn
¡Hola,
KompilierenMarcaSeparación
Def LockWindowUpdate(1) !"USER32","LockWindowUpdate"
RTFEdit& = CREATE("RichEdit", ...)
RTF("LoadRTF",RTFEdit&,RTFDatei$)
LockWindowUpdate(RTFEdit&)pre>

Damit kann Yo una RichEdit en ReadOnly conjunto, y el klappt auch.

Doch si el RichEdit vertikale Srollbalken ha, entonces desafortunadamente kein Scrollen mehr posible.

Weiß hier alguien Rat?

Gracias!

Saludo
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 simplemente ne 207,1 aufn Deets.

sendmessage (hdl&,207,1,0)

Salve, IF
 
25.03.2005  
 




Dietmar
Horn
Posesiones mein MEchen gehaun, gehaun y siempre otra vez gehaun - also wirklich echt verprügelt!

Sombrero por desgracia, no viel geholfen!

Im Interpretermodus klappt el después de el Verkloppen con el 207él Keule nun zwar, doch compiliert se en el RichEdit sólo una CLS-GetSysColor(15)-Soße adecuado.

Ob el qué hilft, si yo mein XPRF9ß nun auch todavía 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  
 



¡Hola Ditmar...

Versuche a veces el SendMessage zwanzig veces el Línea REM a conjunto. Tal vez el Profano Messagehandling daran schuld (kanns por desgracia, no testen, en me gehts con Profano 7.5).
 
26.03.2005  
 




Stephan
Sonneborn
¡Hola Dietmar,

folgender Quellcode funktioniert bajo WIN2K auch como EXE:
KompilierenMarcaSeparación
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


Yo musste el RTF(...)-Línea auskommentieren, porque Yo no RTF-Expediente para Testen hatte, y el Programa de otra manera con un Ausnahmefehler final wurde.
 
Schöne Grüße aus Wittgenstein
von Stephan

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




Dietmar
Horn
@Stephan: Es en efecto no mein Problema. Wenn el Inhalt des RichEdit sólo así groß es, daß no Scrollbalken erscheinen, entonces klappt lo en efecto en me. Nur eben con Scrollbalken no.

@Andreas: Klingt plausibel. Kann lo aber sólo heute Abend a Casa 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,
como sieht lo hiermit de?
KompilierenMarcaSeparación
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

F
RDLL&

Rolf
 
26.03.2005  
 




Stephan
Sonneborn
[quote:c248b87fef=Dietmar Horn]@Stephan: Es en efecto no mein Problema. Wenn el Inhalt des RichEdit sólo así groß es, daß no Scrollbalken erscheinen, entonces klappt lo en efecto en me. Nur eben con Scrollbalken no.[/quote:c248b87fef]
¡Hola Dietmar,

hast Usted lo ausprobiert? En me erscheinen mehrere Zeilen, porque Yo, el Texto con Zeilenumbrüchen
versehen habe. Oder meintest Usted horizontale Scrollbalken?
 
Schöne Grüße aus Wittgenstein
von Stephan

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




Dietmar
Horn
Yo danke euch allen!

Mit media Code Todavía una vez tacheles geredet. Als alles Reden nichts half, Yo ihm zusätzlich a IF-Keule auch todavía el AH-Keule verpaßt: 20 x REM davor y 20 x REM danach führten schließlich para deseado Ergebnis.

Durch el neue Möglichkeit, nun mehrere Befehle en un Línea escribir a puede, sieht el Code nun a dieser Punto trotzdem todavía lecker de ...

Rolfs Control-Variante zeigt se desafortunadamente genauso störrich, como CREATE(RichEdit,...)

@Stephan: Sí, Su Variante funktioniert auch en me. Doch Yo muß el Texto de uno RTF-Expediente invitar - y luego klappt lo sin la REMs eben no mehr. Wird wohl otra vez una el ME-Spinnereien ser, el lo así oft son ...

Saludo
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  
 



¡Hola Ditmar...

Statt AHs REM Keule tuts auch IFs Timerkeule:
KompilierenMarcaSeparación
Yo benutze Listboxen öfters como Statusrückgabe. Como stolpere Yo cada vez encima dieses profanige 20-Zeilen-Problema. Im Interpreter verarbeitet Profano Messages después de cada Línea - en el EXE sólo después de cada zwanzigsten Línea. Nach cada GetMessage oder Waitinput es aber natürlich auch una Abarbeiten el Messages y el Verstopfung se otra vez gelöst.
Abführprobleme gibts eben no sólo en el Altenpflege...

Tal vez debería uno el Waitinput-Método DulcoIF y el REM Método Laxoandi nennen?

Como 40 Tropfen Laxoandi sólo Wirkung zeigten, verordne Yo dir como Doktor el Profanologie para deine Anwendung ahora veces una Suppositorium DulcoIF...


Aber denk daran - en übermäßiger Anwendung gibts Dünnschiß sin Ende!
 
26.03.2005  
 




Stephan
Sonneborn
[quote:ff625f0531=Dietmar Horn]@Stephan: Wird wohl otra vez una el ME-Spinnereien ser, el lo así oft son ...[/quote:ff625f0531]
Offensichtlich, porque bajo WINXP klappts auch con uno Expediente...
KompilierenMarcaSeparación
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  
 



Como is uno veces 2 Tage wech y findet hiern Topic antes a totlachen

Selten así gelacht.

Salve, IF
 
27.03.2005  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

5.207 Views

Untitledvor 0 min.
RudiB.16.09.2022
Erasmus.Herold11.10.2018
Ernst15.04.2016
Peter Max Müller09.06.2015
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie