以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  .RenderArea 区域请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139508)
--  作者：ljh29206
--  发布时间：2019/8/14 13:29:00
--  .RenderArea 区域请教
Dim ra As New prt.RenderArea \'定义一个容器


Dim p As New prt.RenderGraphics


ra.Children.Add(P)



请问

P 画出来的 对象 超过   ra 的边界

能否设置  ra 的填充方式   


P能否缩放 填充?
  
--  作者：有点蓝
--  发布时间：2019/8/14 13:47:00
--  
专业报表所有队员都可以设置大小的

Dim doc As New PrintDoc
Dim rg1 As New prt.RenderGraphics()
rg1.Graphics.DrawArc(Pens.Red, 0, 0, 30, 40, 0, 135) 
rg1.Graphics.DrawEllipse(Pens.Blue, 20, 20, 90, 45) 
rg1.Style.Borders.All = New prt.LineDef("1mm", Color.CornflowerBlue)
rg1.Width = 20
rg1.Height= 50
rg1.x = 30
rg1.y = 30
Doc.Body.Children.Add(rg1)
Doc.Preview()