Class Text_ (unit DXF_structs) |
Inherits from
Point_
///////////////////////////////////////////////////////////////////////////// Text Definition /////////////////////////////////////////////////////////////////////////////
constructor create(OCSaxis,p,ap:Point3D; ss:string; height:double; col,ha:integer);
- horizontal justification code
///////////////////////////////////////////////////////////////////////////// Text /////////////////////////////////////////////////////////////////////////////
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);
align_pt : Point3D;
h : double;
hor_align : integer;
alignment point
textstr : string;
constructor create(OCSaxis,p,ap:Point3D; ss:string; height:double; col,ha:integer);
horizontal justification code
///////////////////////////////////////////////////////////////////////////// Text /////////////////////////////////////////////////////////////////////////////
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);
align_pt : Point3D;
h : double;
hor_align : integer;
alignment point
textstr : string;