Class Text_ (unit DXF_structs)

Inherits from

Point_

///////////////////////////////////////////////////////////////////////////// Text Definition /////////////////////////////////////////////////////////////////////////////

Constructors


constructor create(OCSaxis,p,ap:Point3D; ss:string; height:double; col,ha:integer);

horizontal justification code

///////////////////////////////////////////////////////////////////////////// Text /////////////////////////////////////////////////////////////////////////////



Functions

procedure calcText(acanvas:TCanvas; map_fn:coord_convert; OCS:pM; t:string);


function details : string;


procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);

kludgy method for scaling text heights

procedure max_min_extents(var emax,emin:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties

Events

Variables

align_pt : Point3D;


h : double;


hor_align : integer;

alignment point

textstr : string;



Constructors


constructor create(OCSaxis,p,ap:Point3D; ss:string; height:double; col,ha:integer);

horizontal justification code

///////////////////////////////////////////////////////////////////////////// Text /////////////////////////////////////////////////////////////////////////////


Functions


procedure calcText(acanvas:TCanvas; map_fn:coord_convert; OCS:pM; t:string);


function details : string;


procedure Draw(acanvas:TCanvas; map_fn:coord_convert; OCS:pM);

kludgy method for scaling text heights


procedure max_min_extents(var emax,emin:Point3D);


procedure write_to_DXF(var IO:textfile; layer:string);


Properties


Events


Variables


align_pt : Point3D;


h : double;


hor_align : integer;

alignment point


textstr : string;