bDrawCaption = False
End If
?/SPAN>
If bDrawCaption Then
lOldColor = objSurface.GetForeColor
objSurface.SetForeColor RGB(255, 255, 255)
objSurface.DrawText iCaptionX, iCaptionY, sCaption, False
objSurface.SetForeColor lOldColor
End If
The setup of the base window object has been changed to add the caption:
With frmMain.Window
.ObjectSurface = objDD.CreateSurfaceFromFile(App.Path & "\window.bmp", ddsdSurf2)
.ParentX = 0
.ParentY = 0
.ParentHeight = 600
.ParentWidth = 800
.CenterX = True
.CenterY = True
.WindowName = "Base"
.Caption = "Test Window"
End With
The next thing that has been added is the event raising. Take a look at the MouseUp function in the clsWindow class:
Public Function MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) As Boolean
Dim iLp As Integer
Dim bRetVal As Boolean
MouseUp = False
If X >= iX And X <= iX iWidth And Y >= iY And Y <= iY iHeight Then
For iLp = 1 To colChildren.Count
''''If a child handles the event no need to do anything else
bRetVal = colChildren(iLp).MouseUp(Button, Shift, X, Y)
If bRetVal Then Exit Function
Next iLp
If iObjectType >= CloseBtn Then
iObjectState = iEnabled
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
