XProfan

Hau ihm simple ne 207,1 aufn Deets.

sendmessage (hdl&,207,1,0)

Salve, iF

25.03.2005 ▲

Dietmar
Horn

Habe mon MEchen gehaun, gehaun et toujours wieder gehaun - alors wirklich vraie verprügelt!

Hat malheureusement pas viel geholfen!

Im Interpretermodus klappt cela pour dem Verkloppen avec qui 207il Keule eh bien zwar, doch compilé wird im RichEdit seulement une CLS-GetSysColor(15)-Soße angezeigt.

si cela quoi hilft, si je mon XPRF9ß eh bien aussi encore verprügele (ou bien 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: [...]

allô Ditmar...

Versuche la fois sous qui SendMessage vingt fois le la ligne REM trop mettons. Peut-être cela Profan Messagehandling daran schuld (kanns malheureusement pas testen, chez mir gehts avec Profan 7.5).

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!