Skip to content

Latest commit

 

History

History
64 lines (55 loc) · 1.22 KB

SetText.md

File metadata and controls

64 lines (55 loc) · 1.22 KB

SetText

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

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

Examples

==== 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);

==== Python ====



Version


Availability: from All Versions


Category


    

  • Objects - Text
    •