DX: Full Screen GUI Development 2

objSurface.DrawLine iX iParentX iWidth, iY iParentY, iX iParentX iWidth, iY iParentY iHeight

objSurface.SetForeColor vbWhite

objSurface.DrawLine iX iParentX 1, iY iParentY 1, iX iParentX iWidth - 1, iY iParentY 1

objSurface.DrawLine iX iParentX 1, iY iParentY 1, iX iParentX 1, iY iParentY iHeight - 1

objSurface.DrawLine iX iParentX, iY iParentY iHeight 1, iX iParentX iWidth 1, iY iParentY iHeight 1

objSurface.DrawLine iX iParentX iWidth 1, iY iParentY, iX iParentX iWidth 1, iY iParentY iHeight 1

objSurface.SetForeColor lOldColor

If Len(sCaption) > 0 Then

iCaptionX = iX iParentX 10

iCaptionY = iY ParentY - 8

bDrawCaption = True

Else

bDrawCaption = False

End If

Case BaseWindow

''''Nothing needed here since we use the base rectangle

If Len(sCaption) > 0 Then

iCaptionX = iX 10

iCaptionY = iY 5

bDrawCaption = True

Else

bDrawCaption = False

End If

End Select

lBltFlags = DDBLT_WAIT

''''Need to use transparency if it''''s a radio button

If iObjectType = RadioBtn Then

lBltFlags = DDBLT_WAIT Or DDBLT_KEYSRC

End If

''''Don''''t blit if it a frame control

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!