XProfan

- page 1 -

Stephan
Sonneborn

allô Dietmar,

suivant Quellcode funktioniert sous WIN2K aussi comme EXE:
Kompilieren Marque Séparation

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

je musste qui RTF(...)-la ligne auskommentieren, weil je aucun RTF-Dossier zum Testen hatte, et cela Programme andernfalls avec einem Ausnahmefehler finissez wurde.

Schöne Grüße aus Wittgenstein
von Stephan

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

Dietmar
Horn

@Stephan: c'est oui aussi pas mon Problem. si qui le contenu des RichEdit seulement aussi grand ist, qui aucun Scrollbalken erscheinen, ensuite klappt es oui aussi chez mir. seulement plan avec Scrollbalken pas.

@Andreas: Klingt plausibel. peux es mais seulement aujourd'hui soir trop 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,
comment sieht es hiermit aus?
Kompilieren Marque Séparation

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

Stephan
Sonneborn

[quote-part:c248b87fef=Dietmar Horn]@Stephan: c'est oui aussi pas mon Problem. si qui le contenu des RichEdit seulement aussi grand ist, qui aucun Scrollbalken erscheinen, ensuite klappt es oui aussi chez mir. seulement plan avec Scrollbalken pas.[/quote-part:c248b87fef]
allô Dietmar,

la hâte Du es ausprobiert? chez mir erscheinen plusieurs Zeilen, weil Je l' Text avec Zeilenumbrüchen
versehen habe. ou bien meintest Du horizontale Scrollbalken?

Schöne Grüße aus Wittgenstein
von Stephan

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

Dietmar
Horn

je remercie euch allen!

avec meinen Code habe je encore einmal tacheles geredet. comme alles Reden rien half, habe je ihm zusätzlich zur iF-Keule aussi encore qui AH-Keule verpaßt: 20 x REM devant et 20 x REM après führten schließlich zum gewünschten Ergebnis.

par qui neue Possibilité, eh bien plusieurs Befehle dans un la ligne écrivons trop peut, sieht qui Code eh bien à cette Stelle quand même encore appétissant aus ...

Rolfs Contrôle-variante zeigt sich malheureusement genauso störrich, comment qui CREATE(RichEdit,...)

@Stephan: oui, Votre variante funktioniert aussi chez mir. Doch je dois den Text aus einer RTF-Dossier magasin - et ensuite klappt es sans qui REMs plan pas plus. Wird wohl wieder une qui ME-Spinnereien son, qui es so souvent gibt ...

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

je benutze Listboxen öfters comme Statusrückgabe. là stolpere je chaque la fois sur cet profanige 20-Zeilen-Problem. Im Interpreter verarbeitet Profan Messages pour chacun la ligne - dans qui EXE seulement pour chacun zwanzigsten la ligne. Pour chaque GetMessage ou bien Waitinput erfolgt mais naturellement aussi un Abarbeiten qui Messages et qui Verstopfung wird wieder gelöst.
Abführprobleme gibts plan pas seulement dans qui Altenpflege...

allô Ditmar...

Statt AHs REM Keule TUTS aussi IFs Timerkeule:
Kompilieren Marque Séparation

SetTimer 1
Waitinput
KillTimerre>

peut-être sollte on qui Waitinput-Methode DulcoIF et qui REM Methode Laxoandi appeler?

là 40 Tropfen Laxoandi seulement Wirkung zeigten, verordne je dir comme Doktor qui Profanologie pour deine Anwendung maintenant la fois un Suppositorium DulcoIF...

mais denk daran - chez übermäßiger Anwendung gibts Dünnschiß sans Ende!

Stephan
Sonneborn

[quote-part:ff625f0531=Dietmar Horn]@Stephan: Wird wohl wieder une qui ME-Spinnereien son, qui es so souvent gibt ...[/quote-part:ff625f0531]
Offensichtlich, car sous WINXP klappts aussi avec einer Dossier...
Kompilieren Marque Séparation

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

là is on la fois 2 Tage wech et findet hiern Topic avant zur totlachen

Selten so gelacht.

Salve, iF

27.03.2005 ▲

- page 2 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

allô Dietmar,

avec LockWindowUpdate mets Du cela Richedit pas sur ReadOnly. Per Message peux toujours Text eingefuegt volonté. So ca va richtig :
Kompilieren Marque Séparation

 $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

merci Andreas,

cet Solution klappt eh bien enfin aussi sans qui vingt REMs.

Salut
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 ▲

allô Dietmar...

vingt Laxoandis müssens pas absolument son, un DulcoIf hätte es aussi getan. chez qui chronoischen Verstopfung, qui Profan aufweist, wirst du sur la durée wohl pas sans purge auskommen.

31.03.2005 ▲

Jac
de
Lad

là greife je la fois wieder quoi altes sur...

je habs probiert et cela Ding ist ensuite wirklich readonly, seulement ist chez mir qui Scrollbalken am rebord weg. avec Mausrad et clavier peux je zwar quand même encore scrollen, mais cela Ganze mais est viel plus beau, si qui poutre voilà. Gibts là Abhilfe? alors je hab avec einigen Stilkonstanten experimentiert mais nix trouvé...

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 ▲