.. highlightlang:: us

.. index:: TBCreate

.. _tbcreate:

TBCreate
========

.. us.tag  TBCreate GERMAN TB_Create Changed427 Changed570

:ref:`TBCreate` erzeugt ein Text-Objekt.

.. function::  hText = TBCreate()
    hText = TBCreate(hTextOther)

.. us.return

**Returnwert**

*hText* ist die Zugriffsnummer (Handle) mit der auf das Text-Objekt zugegriffen
werden kann. Falls das Text-Objekt nicht erzeugt werden kann ist *hText*
gleich 0.

.. us.params

**Parameter**

.. uparam:: hTextOther

   Wird TBCreate() in der Form TBCreate(*hOtherTable*) aufgerufen, wird eine
   Kopie des Textobjekts *hTextOther* erzeugt. Wenn *hTextOther* gleich 0 ist,
   wird ein Textobjekt mit Default-Konfiguration erzeugt.

.. us.example

**Beispiel**

::

   def _CreateTextObject(hPage, hlayer, ssText, bPropFont)
   {
       htext = TBCreate();
       if (htext == 0) {
           return 0;
       }
       if (nargsin() == 4) {
           if (bPropFont) {
               hf = FontCreate();
               FontSetFaceName(hf, "Courier New");
               FontSetHeight(hf, -10); // 10 point
               FontSetWeight(hf, 400); // Normal
               TBSetFont(htext, hf);
               FontDestroy(hf);
           }
       }
       TBSetText(htext, ssText);
       OBJSetEdge(htext, TRUE);
       OBJSetBkMode(htext, OPAQUE);
       OBJSetRoundRect(htext, FALSE);
       TBSetAlignHorz(htext, LEFT);
       TBSetAlignVert(htext, TOP);
       // Add Text-Object to the selected layer
       rvRect = OBJGetRect(hlayer);
       LayerAddObjects(hlayer, htext);
       tsize = TBGetTextExtend(htext);
       rvRect[1] = rvRect[3] - tsize[1] - 0.5;
       rvRect[2] = rvRect[4] - tsize[2] - 0.5;
       rvRect[3] = tsize[1];
       rvRect[4] = tsize[2];
       OBJSetPosSize(htext, rvRect);
       PageReplot(hPage, rvRect);
       return htext;
   }

.. us.history

**History**

.. list-table::
   :header-rows: 1

   * - Version
     - Beschreibung
   * - 5.7.0
     - *hTextOther* kann auf 0 gesetzt werden.
   * - 4.2.7
     - Die Funktion kann auch als Kopier-Konstruktor aufgerufen werden.

.. seealso::
   :ref:`uberblick-textobjekte`,
   :ref:`TBDestroy`,
   :ref:`TBSetText`,
   :ref:`ObjCopy`,
   :ref:`OBJSetRefPointWC`,
   :ref:`ObjSetName`,
   :ref:`ObjGetName`

:sub:`id-337778`