| |
| |
|
| - Page 1 - |
|
Dietmar
Horn | Hi,
CompileMarkSeparation
so can I one RichEdit to ReadOnly settle, and the works too.
still if the RichEdit vertikale Srollbalken has, then is no Scrolling More possible.
white here someone council?
Thank you!
Greeting
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: [...] | 03/25/05 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
Stephan
Sonneborn | Hello Dietmar,
following Source functions under WIN2k too as EXE:
CompileMarkSeparationdeclare 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
I had The RTF(...)-row comment, because I no RTF-File to that testing having, and the program otherwise with a Exception exits watts. |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 03/26/05 ▲ |
|
| |
|
|
Dietmar
Horn | @Stephan: this is indeed not my trouble. If the Content the RichEdit only so big is, that no Scroll bar attend, then works it indeed by me. only even with Scroll bar not.
@Andreas: sound plausibel. can But first today evening To dwell try.
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: [...] | 03/26/05 ▲ |
|
| |
|
|
Rolf
Koch | Hi Dietmar,
How see it herewith from?
CompileMarkSeparationDeclare 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 |
|
| |
| |
| |
|
|
Stephan
Sonneborn | [quote:c248b87fef=Dietmar horn]@Stephan: this is indeed not my trouble. If the Content the RichEdit only so big is, that no Scroll bar attend, then works it indeed by me. only even with Scroll bar not.[/quote:c248b87fef]
Hello Dietmar,
have You it ausprobiert? by me attend several Lines, because I the Text with Zeilenumbrüchen
slip have. or meant You horizontale Scroll bar? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 03/26/05 ▲ |
|
| |
|
|
Dietmar
Horn | I thanks you all!
with my code have I once more tacheles talked. as everything talk nothing helped, have I it additional to iF-joint too yet The AH-joint verpaßt: 20 x REM before it and 20 x REM thereafter led finally to that desired Result.
by the new Possibility, now several Commands in a row write to, sees the code now on this place nevertheless yet yummy from ...
Rolfs Control-Variante shows itself unfortunately just as störrich, as CREATE(RichEdit,...)
@Stephan: Yes, your Variante functions too by me. still I must whom Text a RTF-File loading - and then works it without The REMs even not any more. becomes well again a the ME-Spinnereien his, The it so often gives ...
Greeting
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: [...] | 03/26/05 ▲ |
|
| |
|
|
 | Hello Ditmar...
but not AHs REM joint tuts too IFs Timerkeule:
CompileMarkSeparation
I use Listboxes öfters as Statusrückgabe. there stolpere I each time over this profanige 20-Lines-trouble. in the Interpreter processing Profan Messages to eachone row - in the EXE only to eachone zwanzigsten row. After each GetMessage or Waitinput results but naturally too one work out the Messages and the obstacle becomes again resolved.
Abführprobleme Gibts even not only in the Altenpflege... 
Perhaps ought to one The Waitinput-method DulcoIF and the REM method Laxoandi name? 
there 40 drop Laxoandi first effect showed, verordne I you as doctor the Profanologie for your application now time one Suppositorium DulcoIF...
but denk on it - with übermäßiger application Gibts Dünnschiß without end!  |
|
| |
| |
| |
|
|
Stephan
Sonneborn | [quote:ff625f0531=Dietmar horn]@Stephan: becomes well again a the ME-Spinnereien his, The it so often gives ...[/quote:ff625f0531]
evident, because under WINXP works too with of/ one File...
CompileMarkSeparationdeclare 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 | 03/26/05 ▲ |
|
| |
|
|
 | there is one time 2 days wech and finds hiern Topic to to totlachen 
seldom so laughed. 
salvo, iF |
|
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
Andreas
Miethe
 | Hello Dietmar,
with LockWindowUpdate setting You, the Richedit not ReadOnly. Per Message can still Text eingefuegt go. so goes it correctly. :
CompileMarkSeparation $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
greeting
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 : [...] | 03/30/05 ▲ |
|
| |
|
|
Dietmar
Horn | thanks Andreas,
these Solution works now finally too without The twenty REMs.
Greeting
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: [...] | 03/30/05 ▲ |
|
| |
|
|
| Hello Dietmar...
twenty Laxoandis müssens not absolutely his, one DulcoIf had it too done. with the chronoischen obstacle, The Profan aufweist, become You on duration well not without aperient get along. |
|
| |
| |
| |
|
|
Jac
de
Lad | there greife I time again what altes on...
I habs probiert and the thing is then really readonly, only is by me the Scroll bar on the edge lane. with Mausrad and keyboard can I of course nevertheless yet scroll, but the whole is still plenty Schöner, if the beam there's. Gibts there remedy? So I Have with some Stilkonstanten experimentiert but nothing found...
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 | 11/27/05 ▲ |
|
| |
|
(872)
Deutsch
English
Français
Español
Italia