摘要:
procedure ImageDrawText(ATextEdo: IGGCCADTextEDO); var oImageBitmap: TBitmap; x1,x2,y1,y2: double; begin // 加载图片 oImageBitmap := TBitmap.Create; try o 阅读全文
posted @ 2017-11-08 18:10 ╰★张志峰★╮ 阅读(573) 评论(0) 推荐(0)
|
||
|
摘要:
procedure ImageDrawText(ATextEdo: IGGCCADTextEDO); var oImageBitmap: TBitmap; x1,x2,y1,y2: double; begin // 加载图片 oImageBitmap := TBitmap.Create; try o 阅读全文
posted @ 2017-11-08 18:10 ╰★张志峰★╮ 阅读(573) 评论(0) 推荐(0) |
||