rectObject.Left = 0

            rectObject.Right = iWidth

            Select Case iObjectState

                Case iUnchecked

                    rectObject.Top = 0

                    rectObject.Bottom = iHeight

                Case iDisabled

                    rectObject.Top = iHeight * 2

                    rectObject.Bottom = iHeight * 3

                Case iChecked

                    rectObject.Top = iHeight

                    rectObject.Bottom = iHeight * 2

                Case iChecked_iDisabled

                    rectObject.Top = iHeight * 3

                    rectObject.Bottom = iHeight * 4

            End Select

            If Len(sCaption) > 0 Then

                iCaptionX = iX + 15

                iCaptionY = iY

                bDrawCaption = True

            Else

                bDrawCaption = False

            End If

        Case MinBtn, MaxBtn, CloseBtn, RestoreBtn

            rectObject.Left = 0

            rectObject.Right = iWidth

            Select Case iObjectState

                Case iEnabled

                    rectObject.Top = 0

                    rectObject.Bottom = iHeight

                Case iPressed

                    rectObject.Top = iHeight

                    rectObject.Bottom = iHeight * 2

            End Select

        Case FrameWnd

            ''''see framesample.bmp for how this should look as a normal VB control

            lOldColor = objSurface.GetFillColor

            objSurface.SetForeColor cFrameGrey

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

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

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

            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

        &nb

上一页  [1] [2] [3] [4] [5]  下一页