.parenty = frmmain.window.y
.x = 75
.y = 75
.width = 200
.height = 200
.windowname = "frame1"
.caption = "test frame"
end with
frmmain.window.addchild frmmain.frame1
the property let objectsurface and mousedown function have had the radiobtn added to the cases for the chkbox:
public property let objectsurface(byval objsurface as directdrawsurface7)
?/span>
case chkbox, radiobtn
iheight = ddsd.lheight / 4
?/span>
end property
public function drawobject(objsurface as directdrawsurface7)
dim clswindow as clswindow
dim ilp as integer
dim ddsd as ddsurfacedesc2
dim rectbitmap as rect
dim rectobject as rect
dim lret as long
dim bdrawcaption as boolean
dim loldcolor as long
dim lbltflags as long
on error goto drawobjecterr
rectbitmap.left = ix
rectbitmap.right = ix + iwidth
rectbitmap.top = iy
