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) {
            hFont = FontCreate();
            FontSetFaceName(hFont, "Courier New");
            FontSetHeight(hFont, -10); // 10 point
            FontSetWeight(hFont, FW_NORMAL);
            TBSetFont(hText, hFont);
            FontDestroy(hFont);
        }
    }
    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
    LayerAddObjects(hLayer, hText);
    tsize = TBGetTextExtend(hText);
    rvRect = OBJGetRect(hLayer);
    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