View source for VS:GetTextSize

{{LocationMain|category=LocationVS|specific=}}
__TOC__
<vwDoc>

-----------------------------------------------------------------------------------------------------------
<desc>
Procedure GetTextSize returns the text point size at a specified position within the referenced text object. 1 point = 1/72&quot;. 

The position is in a range between 0 and 32767, representing a character position in the text string. An index of 0 refers to the first character in the string.</desc>

-----------------------------------------------------------------------------------------------------------
<def>
<funcDef lang="vs">
FUNCTION GetTextSize(TextHd:HANDLE; Position:INTEGER) : REAL;
</funcDef>
<funcDef lang="py">
def vs.GetTextSize(TextHd, Position):
    return REAL
</funcDef>
</def>

-----------------------------------------------------------------------------------------------------------
<params>
<lineList ident=1>
<line>
TextHd
HANDLE
Handle to text object.
</line>
<line>
Position
INTEGER
Position in text string.
</line>
</lineList>
</params>

-----------------------------------------------------------------------------------------------------------
<remark>
The result was previously an integer, but is now a floating point value.

Here's a snippet that shows how to get the text size that has been assigned to a PIO from the text menu:
<code lang="pas">
pioTextSize := ((GetObjectVariableReal(pioHandle, 17) / GetLScale(GetLayer(pioHandle))) * 72) / 25.4;
</code>


Example:
<code lang="pas">
PROCEDURE Example;
CONST
theSizeToSelect = 10;
VAR
criteria :STRING;

PROCEDURE SelectBySize(h :HANDLE);
BEGIN
IF GetTextSize(h, 0) = theSizeToSelect THEN SetSelect(h);
END;

BEGIN
DSelectAll;
criteria := '(T=10)';
ForEachObject(SelectBySize, criteria);
END;
RUN(Example);
</code></remark>

-----------------------------------------------------------------------------------------------------------
<version>
Availability: from MiniCAD6.0

</version>

</vwDoc>

[[Category:VS Function Reference|GetTextSize]]
[[Category:VS Function Reference:Objects - Text|GetTextSize]]