%HI_SetFormatRE( INT in refId, TEXT in xmlFormat ) TEXT %HI_GetFormatRE( INT in refId ) |
refId | Odkaz na grafický objekt Vstup textu typu RichEdit (referenčná premenná). |
xmlFormat | Formát písma vybratého textu v grafickom objekte Vstup textu typu RichEdit. |
Napríklad:
<?xml version="1.0" encoding="utf-8" ?> <ROOT> <face>Times New Roman</face> <color>255</color> <size>48</size> <charset>0</charset> <bold>FALSE</bold> <italic>FALSE</italic> <underline>TRUE</underline> <strikeout>FALSE</strikeout> <protected>FALSE</protected> </ROOT>
V príklade predstavuje XML formát postupne typ písma, farbu písma, veľkosť písma a znakovú sadu písma. Za týmito parametrami nasledujú príznaky, či je písmo tučné, kurzíva, podčiarknuté, prečiarknuté alebo chránené (zatiaľ bez významu).
Vždy budú formátované iba zadané parametre. Ak niektorý parameter chýba, tento parameter formátovania sa nebude meniť. Ak je však parameter pre formátovanie zadaný, musí mať platnú hodnotu a môže byť zadaný iba raz. Inak je XML formát neplatný.
INT _nodeDoc INT _nodeRoot INT _nodeElement INT _nodeText TEXT _xmlFilter BOOL _ok _nodeDoc := %XML_CreateDocument() _nodeRoot := %XML_AddElement(_nodeDoc, "ROOT") _nodeElement := %XML_AddElement(_nodeRoot, "face") _nodeText := %XML_AddTextNode(_nodeElement, "Times New Roman") _nodeElement := %XML_AddElement(_nodeRoot, "color") _nodeText := %XML_AddTextNode(_nodeElement, "255") _nodeElement := %XML_AddElement(_nodeRoot, "size") _nodeText := %XML_AddTextNode(_nodeElement, "48") _nodeElement := %XML_AddElement(_nodeRoot, "charset") _nodeText := %XML_AddTextNode(_nodeElement, "0") _nodeElement := %XML_AddElement(_nodeRoot, "bold") _nodeText := %XML_AddTextNode(_nodeElement, "FALSE") _nodeElement := %XML_AddElement(_nodeRoot, "italic") _nodeText := %XML_AddTextNode(_nodeElement, "FALSE") _nodeElement := %XML_AddElement(_nodeRoot, "underline") _nodeText := %XML_AddTextNode(_nodeElement, "TRUE") _nodeElement := %XML_AddElement(_nodeRoot, "strikeout") _nodeText := %XML_AddTextNode(_nodeElement, "FALSE") _nodeElement := %XML_AddElement(_nodeRoot, "protected") _nodeText := %XML_AddTextNode(_nodeElement, "FALSE") _xmlFilter := %XML_ToString(_nodeDoc) %HI_SetFormatRE(_richEditBox, _xmlFilter) _ok := %XML_FreeDocument(_nodeDoc) |