PureBoard

Verfasst: **15.08.2006 08:35**

Ebenso wie man mit RTF Texte bunt und mit verschiedenen Fonts gestalten kann, kann man ausländische Schriftzeichen (Türkisch, Japanisch, Arabisch und Unicode) darstellen, ohne das Programm in Unicode zu kompilieren .
Das Verfahren für Anfänger, wie man den RTF-Text bekommt, ist hier beschrieben:
http://www.purebasic.fr/german/viewtopic.php?t=9581

Tipp: Sonderzeichen, wie z.B. japanische Texte kann man sich z.B. von Webseiten in das Wordpad mit copy and paste einkopieren.

Code: Alles auswählen

; PB 4.0 

OpenWindow(0, 200, 200, 400, 200,"EditorGadget", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget) 
CreateGadgetList(WindowID(0)) 
EditorGadget(0, 0, 0, WindowWidth(0), WindowHeight(0)) 


text$ = "{\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fmodern\fprq1\fcharset128 MS Mincho;}{\f2\fmodern\fprq1\fcharset178 Courier New;}{\f3\fswiss\fprq2\fcharset0 Arial;}}" 
text$ = text$ + "{\colortbl ;\red0\green0\blue0;}" 
text$ = text$ + "\viewkind4\uc1\pard\ltrpar\cf1\f0\fs20 T\'fcrkisch: \'e7a\u287?\u305?r\u305?nak\par " 
text$ = text$ + "\cf0 Japanisch:  \f1\'90\'46\'82\'cd\'93\'f5\'82\'d6\'82\'c7\f0\par "
text$ = text$ + "Arabisch: \f2\rtlch\'da\'d1\'c8\'ed\'c9\par "
text$ = text$ + "\cf1\f0\ltrch Unicode: \u264?\u284?\u292?\u308?\u348?\u364?\u265?\u285?\u293?\u309?\u349?\u365?\cf0\f3\par "
text$ = text$ + "}" 

SetGadgetText(0, text$) 

Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow

***************************

Eine andere Lösung kommt von Falko und ist hier zu finden:

http://www.purebasic.fr/german/viewtopi ... itorgadget

Verfasst: **22.08.2006 22:48**

Tipp: Sonderzeichen, wie z.B. japanische Texte kann man sich z.B. von Webseiten in das Wordpad mit copy and paste einkopieren.

einfach charmap.exe benutzen!

PureBoard

EditorGadget: Sonderschriften, Japanisch, Arabisch, Unicode

EditorGadget: Sonderschriften, Japanisch, Arabisch, Unicode