Code: Select all
// Draw the entire Figure contents
// if PreserveAspectRatio is true, then fit the figure into g without changing the aspect ratio
dim w as integer
dim h as integer
if PreserveAspectRatio then
dim r1 as Double = me.Width / me.Height // the aspect ratio of the displayed figure
dim r2 as Double = g.Width / g.Height // the aspect ratio of the passed graphics object
if r1 > r2 then
// the displayed figure is wider than the passed graphics, ratiometrically.
w = g.Width
h = w / r1
else
// the displayed figure is taller than the passed graphics, ratiometrically.
h = g.Height
w = h * r1
end if
else
w = g.Width
h = g.Height
end if
ScalingFactor = 1
// Draw the frame
g.PenWidth = 1 * ScalingFactor
g.PenHeight = 1 * ScalingFactor
g.ForeColor = FrameColor
g.DrawRect 0, 0, g.Width, g.Height
// Draw all Graphs
SetGraphLocations(g.Width, g.Height)
for each gr as Graph in mGraphs
gr.draw(g)
next
Code: Select all
g.FillRect x, y, w+1, h+1