VS:SetText

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

Procedure SetText sets the content of the referenced text object. The new text is assigned the font, size and style characteristics of the first character of the old text string.

PROCEDURE SetText(
          objectHd   :HANDLE;
          text       :DYNARRAY[] of CHAR);

def vs.SetText(objectHd, text):
    return None

Parameters

objectHd		HANDLE		Handle to text object.
text		DYNARRAY[] of CHAR		New text string value.

Example

VectorScript

SetText(hText,'A new text string value');

Better example:

PROCEDURE Example;
{ (c) Petri Sakkinen 1997 or thereabouts } 
VAR
theText, theRest :HANDLE;
x, y :REAL; 
textstart, moretext :STRING;
BEGIN
theText := FSActLayer;
Message('Point text blocks to be concatenated');
textstart := GetText(theText);
GetPt(x, y);
theRest := PickObject(x, y);
REPEAT
moretext := GetText(theRest);
textstart := Concat(textstart, ' ', moretext);
DelObject(theRest);
GetPt(x, y);
theRest := PickObject(x, y);
UNTIL (theRest = NIL);
SetText(theText, textstart);
ClrMessage;
END;
RUN(Example);

Version

Availability: from All Versions