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