Hallo liebe cX-Gemeinde,
gibt es eine Möglichkeit einen formatierten Inhalt eines RTF-Element auf ein Fenster oder besser auf einen Drucker zu zeichnen?
Im Beispielscript markiere ich ein Wort, klicke auf den Button "Fett" oder "Kursiv" und klicke dann auf "Jetzt zeichnen".
Ich bekomme keinen formatierten Text.
Vielleicht hat jemand von euch Erfahrung damit und kann mir weiterhelfen.
Liebe Grüße
Meiky
cX4Web Code
Was ist das?
1 Anzeige-Fenster ''
2 Button 'Jetzt zeichnen' (ID='Button_1', X='10,85', Y='38,89', Breite='104,51', Höhe='12,44')
3 RTF-Eingabefeld (ID='RTF-Eingabefeld_1', X='10,85', Y='10,05', Breite='104,51', Höhe='27,25')
4 Button 'Fett' (ID='Btn_fett', X='10,85', Y='2,38')
5 Button 'Kursiv' (ID='Btn_kursiv', X='32,54', Y='2,38')
6 Setze in [.RTF(RTF-Eingabefeld_1).Text]: 'Test Fett - Text Kursiv'
7 Warte Endlos (Warten auf zu behandelnde Ereignisse)
8
9 :: Anzeige_Element(Btn_fett)_Klick
10 Wenn (? Werteprüfung'[.RTF(RTF-Eingabefeld_1).Schrift.Fett]' = '0')
11 Setze , MultiSet '[.RTF(RTF-Eingabefeld_1).Schrift.Fett]=1'
12 Sonst (? Werteprüfung'[.RTF(RTF-Eingabefeld_1).Schrift.Fett]' = '1')
13 Setze , MultiSet '[.RTF(RTF-Eingabefeld_1).Schrift.Fett]=0'
14 Ende Wenn
15 Beende Unterprogramm (Zurück)
16
17 :: Anzeige_Element(Btn_kursiv)_Klick
18 Wenn (? Werteprüfung'[.RTF(RTF-Eingabefeld_1).Schrift.Kursiv]' = '0')
19 Setze , MultiSet '[.RTF(RTF-Eingabefeld_1).Schrift.Kursiv]=1'
20 Sonst (? Werteprüfung'[.RTF(RTF-Eingabefeld_1).Schrift.Kursiv]' = '1')
...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(27 Zeilen, cX 5.0.10.8, Lizenz: Erweiterte Anzeige-Elemente (Listen- und Baumansicht, Kalender, Diagramm, RTF))