EditorGadget - Sonderzeichen werden nicht korrekt angezeigt
Verfasst: 18.04.2020 10:25
Hallo Leute,
Sonderzeichen werden im Editor nicht korrekt angezeigt, wenn Sie aus einem String eingelesen werden!
Gruss ... Velindos!
Sonderzeichen werden im Editor nicht korrekt angezeigt, wenn Sie aus einem String eingelesen werden!
Hat einer eine Idee, was sich im EditorGadget geändert hat seit den Stand PB 5.60, da ging es noch?So kennen wir den „Riverdale“-Star gar nicht. (was so viel wie „Baumwollburg“ bedeutet)
Code: Alles auswählen
If OpenWindow(0, 0, 0, 540, 260, "PB 5.70 LTS Richedit Unicode EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EditorGadget(0, 5, 5, 530, 250)
Global Notiz$
Global a$ = ""
a$ + "{\rtf1\ansi\ansicpg1252\deff0\deflang1031\deflangfe1031{\fonttbl{\f0\fswiss\fprq2\fcharset0 Verdana;}{\f1\fswiss\fprq2\fcharset0 Segoe WP SemiLight;}}"
a$ + "{\colortbl ;\red0\green128\blue128;\red51\green51\blue51;}"
a$ + "{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\nowidctlpar\cf1\f0\fs20 So kennen wir den \'84Riverdale\ldblquote -Star gar nicht. \cf2\f1 (was so viel wie \'84Baumwollburg\ldblquote bedeutet)\cf1\f0\par"
a$ + "\cf1\ul\b\i\fs28 APPNAME é à ç è ê"
a$ + "}"
; Next 4 lines enable Unicode Support
; Code in Memory
*mem = AllocateMemory(StringByteLength(a$) + 1)
; *mem = AllocateMemory(StringByteLength(a$, #PB_Ascii) + 1)
; *mem = AllocateMemory(StringByteLength(a$, #PB_UTF8) + 1)
; *mem = AllocateMemory(StringByteLength(a$,#PB_Unicode ) + 2)
; Schreibt einen String
; PokeS(*mem, a$, -1, #PB_Ascii)
; PokeS(*mem, a$, -1, #PB_UTF8)
; PokeS(*mem, a$, -1, #PB_Unicode)
PokeS(*mem, a$, -1)
; Liest einen String
SetGadgetText(0,PeekS(*mem))
; Notiz$ = PeekS(*mem)
; SetGadgetText(0,Notiz$)
; Memory Free
FreeMemory(*mem)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf