Txt-Text object

From Vectorlab
Jump to: navigation, search


Function to create a text object. Returns a handle to the text object created. Load the routine T_WriteText before using this. By Orso B. Schmid


{ Orso *********************************************** }
{ calls T_WriteText and returns a handle to the text object }
FUNCTION T_TxtObj(theText: DYNARRAY[] OF CHAR; tx, ty, maxTWidth: REAL; tJust, tAlign: INTEGER): HANDLE;
	BEGIN
		T_WriteText(theText, tx, ty, maxTWidth, tJust, tAlign);
		T_TxtObj := LNewObj;
	END;