EditorGadget Win 10 + PB 6.10b7 - RTF via SetText geht nicht mehr

[hjbremer]

EditorGadget Win 10 + PB 6.10b7 - RTF via SetGadgetText geht nicht mehr

mit 5.72 x64 und 5.70 x86 geht es !

Code: Alles auswählen

rtf$ = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1031{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset0 Calibri;}}"
rtf$ + "{\colortbl ;\red255\green0\blue0;\red0\green77\blue187;}"
rtf$ + "{\*\generator Riched20 10.0.19041}\viewkind4\uc1" 
rtf$ + "\pard\ri5941\sl240\slmult1\b\fs20\lang7\tab\tab\tab\tab\cf1\tab    ESC = zur\'fcck\cf0\par"
rtf$ + "\cf2 Liste\b0 : \cf0\par"
rtf$ + "\cf2 Leertaste: \cf0 Zeilen markieren, mit Betrag ab 0.50\cf2\b\par"
rtf$ + "\b0 Strg + H:   \cf0 IsbnHilfe-Datei mit WordPad aufrufen\par"
rtf$ + "\cf2 Strg + I:    \cf0 Alle ISBN Nummern ins Clipboard kopieren\par"
rtf$ + "\cf2 Strg + P:   \cf0 Alle ISBN + Namen ins Clipboard kopieren\par"
rtf$ + "\par"
rtf$ + "}"

  If OpenWindow(0, 0, 0, 500, 300, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    EditorGadget(0, 8, 8, 500, 300)
    SetGadgetText(0, rtf$)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

PS: ein File mit #EM_STREAMIN einlesen geht auch nicht

[STARGÅTE]

Das RTF im EditorGadget funktioniert hatte, war nie ein offizielles Feature von PureBasic und es war auch nie dokumentiert.
Hier die Lösung:
https://www.purebasic.fr/english/viewto ... 37#p599737

[mk-soft]

Du must Textmode RTF erst wieder einschalten ...

Stargate war schneller

Code: Alles auswählen

rtf$ = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1031{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset0 Calibri;}}"
rtf$ + "{\colortbl ;\red255\green0\blue0;\red0\green77\blue187;}"
rtf$ + "{\*\generator Riched20 10.0.19041}\viewkind4\uc1" 
rtf$ + "\pard\ri5941\sl240\slmult1\b\fs20\lang7\tab\tab\tab\tab\cf1\tab    ESC = zur\'fcck\cf0\par"
rtf$ + "\cf2 Liste\b0 : \cf0\par"
rtf$ + "\cf2 Leertaste: \cf0 Zeilen markieren, mit Betrag ab 0.50\cf2\b\par"
rtf$ + "\b0 Strg + H:   \cf0 IsbnHilfe-Datei mit WordPad aufrufen\par"
rtf$ + "\cf2 Strg + I:    \cf0 Alle ISBN Nummern ins Clipboard kopieren\par"
rtf$ + "\cf2 Strg + P:   \cf0 Alle ISBN + Namen ins Clipboard kopieren\par"
rtf$ + "\par"
rtf$ + "}"

If OpenWindow(0, 0, 0, 500, 300, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 8, 8, 500, 300)
  SendMessage_(GadgetID(iGadget), #EM_SETTEXTMODE, #TM_RICHTEXT, 0)
  SetGadgetText(0, rtf$)
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[hjbremer]

Ooops so einfach, vielen Dank, bin ich nicht darauf gekommen.

Es gibt nun noch ein kleines Problem. WordPad speichert die Umlaute im Wort zurück so ab: ESC = zur\'fcck, also das ü als \'fc

Frage kann man dies im Header einfach manipulieren ? oder muß ich im PB Programm es so lösen: rtf$ = ReplaceString(rtf$, "\'fc", "ü")