.. highlightlang:: us

.. index:: OBJSetRefPointWC

.. _objsetrefpointwc:

OBJSetRefPointWC
================

.. us.tag  OBJSetRefPointWC GERMAN draw-set

:ref:`OBJSetRefPointWC` legt fest, auf welchen Punkt eines Zeichenobjekts sich
die Position in Diagramm-Koordinaten bezieht.

.. function::  bool = OBJSetRefPointWC(hobj, nRefPointWC)

.. us.return

**Returnwert**

*bool* ist TRUE (1), wenn die Funktion erfolgreich war und sonst FALSE (0).

.. us.params

**Parameter**

.. uparam:: hobj

   *hobj* ist die Zugriffsnummer eines Textes, eines Rechtecks oder einer Ellipse.

.. uparam:: nRefPointWC

   *nRefPointWC* ist eine ODER-Verknüpfung der folgenden Werte:

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

      * - Name
        - Wert
        - Bedeutung
      * - LEFT
        - 4
        - Linke Ecke.
      * - CENTER
        - 2
        - Mitte zwischen linker und rechter Ecke.
      * - RIGHT
        - 1
        - Rechte Ecke.
      * - TOP
        - 8
        - Obere Ecke.
      * - MIDDLE
        - 16
        - Mitte zwischen oberer und unterer Ecke.
      * - BOTTOM
        - 32
        - Untere Ecke.

.. us.comment

**Kommentar**

Ruft die Funktion :ref:`OBJSetUsePosWC` auf.

.. us.example

**Beispiel**

::

   // Schreibt an die Position rvPosWC = [x,y] in Diagrammkoordinaten
   // den Text ssText. Das Textobjekt wird dem Diagramm hLayer zugefügt.
   // Beispiel: TBCreateLabel(43, [0.002, 80], "Hallo") 
   // Beispiel: TBCreateLabel(43, [0.002, 80], "Hallo", LEFT|TOP) 
   def TBCreateLabel(hLayer, rvPosWC, ssText, _nRefPoint) 
   {
      nRefPoint = CENTER | BOTTOM;
      if (nargsin() == 4) {
         nRefPoint = _nRefPoint;
      }
   
      htext = TBCreate();
      TBSetText(htext, ssText);
      TBSetAutoSize(htext, TRUE);
      TBSetEdgeDistance(htext, 0.03);
      OBJSetBkMode(htext, TRUE);	// OPAQUE
      OBJSetEdge(htext, FALSE); // Edge
      rsSize = TBGetTextExtend(htext);
      OBJSetPosSize(htext, [0, 0, rsSize]);
      OBJSetPosWC(htext, rvPosWC);
      OBJSetRefPointWC(htext, nRefPoint);
      LayerAddObjects(hLayer, htext);
      return htext;
   }

.. seealso::
   :ref:`uberblick-zeichenobjekte`,
   :ref:`OBJSetPosWC`,
   :ref:`OBJGetRefPointWC`
   :ref:`OBJSetRefPoint`,
   :ref:`TBCreate`

:sub:`id-1119158`