C coolmy Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-17 #1 我用了ＣＡＤＳＹＳ４做了个东东。因做之前一直没显示中文字体。现发现显示中文字体是乱码！！请有空的ＤＦＷ看看此控件该怎么样改才能不显乱码。 http://www.torry.net/vcl/charts/cad/cadsys4.zip有source与demo
我用了ＣＡＤＳＹＳ４做了个东东。因做之前一直没显示中文字体。现发现显示中文字体是乱码！！请有空的ＤＦＷ看看此控件该怎么样改才能不显乱码。 http://www.torry.net/vcl/charts/cad/cadsys4.zip有source与demo
F flyfun Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-25 #4 var x1,x2,y1,y2:double; TextHight1:double; TextContext:string; begin TextHight1:=1.5; CADCmp2D1.CurrentLayer := 1; TextContext:= '你好aaa1111' ; with TText2D(CADCmp2D1.AddObject(0, TText2D.Create(1, Rect2D(1, 1, 1+TextHight1*10, 1+TextHight1*10), TextHight1, TextContext))) do LogFont.FaceName := '宋体'; CADCmp2D1.ZoomToExtension ; end;
var x1,x2,y1,y2:double; TextHight1:double; TextContext:string; begin TextHight1:=1.5; CADCmp2D1.CurrentLayer := 1; TextContext:= '你好aaa1111' ; with TText2D(CADCmp2D1.AddObject(0, TText2D.Create(1, Rect2D(1, 1, 1+TextHight1*10, 1+TextHight1*10), TextHight1, TextContext))) do LogFont.FaceName := '宋体'; CADCmp2D1.ZoomToExtension ; end;
