TBCreate

TBCreate erzeugt ein Text-Objekt.

hText = TBCreate()

hText = TBCreate(hTextOther)

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.

Parameter

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.

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;
}

History

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

Siehe auch

Überblick Textobjekte, TBDestroy, TBSetText, ObjCopy, OBJSetRefPointWC, ObjSetName, ObjGetName

_id-337778