Skins (52K)
VB5 NeoCaption Demonstration (114K)
VB5 NeoCaption DLL (74K)
VB5 NeoCaption Full Source (239K)
VB6 NeoCaption Demonstration (127K)
VB6 NeoCaption DLL (74K)
VB6 NeoCaption Full Source (253K)
Bugs: 3 / 3
Issues: 1 / 1
Questions: 0 / 0
21 Feb 2002
Release of Version 2.0.
Fixes for support of different sized skinning parts.
New cSkinConfiguration object for setting up the skin, which includes XML serialization and deserialization
Colour customisation using HLS and RGB added.
Transparent colour now added.
Three new skins included.
Subclassing Without The Crashes
vbAccelerator - Contents of code file: fAbout.frm
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00000000&
BorderStyle = 3 'Fixed Dialog
Caption = "About vbAccelerator NeoCaption"
ClientHeight = 5130
ClientLeft = 4080
ClientTop = 2040
ClientWidth = 6135
ClipControls = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "fAbout.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3540.817
ScaleMode = 0 'User
ScaleWidth = 5761.082
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox txtSpecialCopyright
BackColor = &H00000000&
ForeColor = &H00C0C0C0&
Height = 675
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Text = "fAbout.frx":1272
Top = 3240
Width = 4455
End
Begin VB.CommandButton cmdOK
BackColor = &H00000000&
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 4260
MaskColor = &H00FFFFFF&
TabIndex = 0
Top = 4080
Width = 1260
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "A serious window-style modification framework for
Visual Basic programmers. "
ForeColor = &H00E0E0E0&
Height = 705
Index = 0
Left = 1140
TabIndex = 13
Top = 1380
Width = 3750
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "NeoCaption"
BeginProperty Font
Name = "Tahoma"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 615
Index = 1
Left = 1560
TabIndex = 5
Top = 660
Width = 3375
End
Begin VB.Label lblProduct
BackStyle = 0 'Transparent
Caption = "vbAccelerator"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":12FF
MousePointer = 99 'Custom
TabIndex = 12
Tag = "/index.html"
Top = 2760
Width = 4395
End
Begin VB.Label lblVersionUpdate
BackStyle = 0 'Transparent
Caption = "Update Information"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 225
Left = 2160
MouseIcon = "fAbout.frx":1609
MousePointer = 99 'Custom
TabIndex = 10
Tag =
"""/j_index_url_codelibcomctltbrv2upd.htm.htm""
"
Top = 2580
Width = 1410
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "..................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 495
Index = 2
Left = 3090
TabIndex = 9
Top = 240
Width = 2475
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = ".................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 495
Index = 3
Left = 60
TabIndex = 8
Top = 900
Width = 2115
End
Begin VB.Label lblURL
BackStyle = 0 'Transparent
Caption = "/index.html"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":1913
MousePointer = 99 'Custom
TabIndex = 7
Tag = "/index.html"
Top = 4200
Width = 3870
End
Begin VB.Label lblCopyright
BackStyle = 0 'Transparent
Caption = "Copyright 1998-1999 Steve McMahon "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 195
Left = 1080
MouseIcon = "fAbout.frx":1C1D
MousePointer = 99 'Custom
TabIndex = 6
Tag = "/j_index_url_cright.htm.htm"
Top = 4020
Width = 3990
End
Begin VB.Label lblTitle
BackStyle = 0 'Transparent
Caption = "vbAccelerator"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 480
Left = 960
TabIndex = 3
Top = 300
Width = 2865
End
Begin VB.Shape shpRect
BorderColor = &H00004080&
BorderWidth = 8
Height = 675
Index = 0
Left = 4500
Top = 540
Width = 615
End
Begin VB.Image imgIcon
Height = 240
Left = 360
Picture = "fAbout.frx":1F27
Top = 360
Width = 240
End
Begin VB.Label lblDescription
BackColor = &H000040C0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1170
Left = 1080
TabIndex = 1
Top = 960
Width = 3885
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
Index = 0
X1 = 98.6
X2 = 5309.398
Y1 = 1697.936
Y2 = 1697.936
End
Begin VB.Label lblInfo
BackColor = &H000080FF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 1080
TabIndex = 4
Top = 780
Width = 3885
End
Begin VB.Label lblVersion
BackStyle = 0 'Transparent
Caption = "Version: 2.05"
ForeColor = &H00C0C0C0&
Height = 225
Left = 1080
TabIndex = 2
Top = 2580
Width = 1410
End
Begin VB.Shape shpRect
BorderStyle = 0 'Transparent
FillColor = &H00004040&
FillStyle = 0 'Solid
Height = 615
Index = 2
Left = 4860
Top = 120
Width = 555
End
Begin VB.Shape shpRect
BorderColor = &H00000080&
BorderWidth = 16
Height = 855
Index = 1
Left = 180
Top = 180
Width = 855
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_cN As New cNeoCaption
Private m_fOwner As Object
Public Property Let Owner(ByRef f As Object)
Set m_fOwner = f
End Property
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim ctl As Control
If Not m_fOwner Is Nothing Then
Dim cSkin As cSkinConfiguration
Set cSkin = m_fOwner.SkinConfiguration
If Not (cSkin Is Nothing) Then
m_cN.Attach2 Me, cSkin
Me.BackColor = m_cN.MenuBackgroundColor
For Each ctl In Me.Controls
If TypeOf ctl Is Label Then
If Not ctl.Name = "lblInfo" Then
ctl.ForeColor = m_cN.ActiveMenuColor
End If
End If
Next
txtSpecialCopyright.BackColor = Me.BackColor
txtSpecialCopyright.ForeColor = m_cN.ActiveMenuColor
cmdOk.BackColor = Me.BackColor
End If
End If
Set m_fOwner = Nothing
End Sub
Private Sub lblCopyright_Click()
'ShellEx lblCopyright.tag
End Sub
Private Sub lblProduct_Click()
'ShellEx lblProduct.tag
End Sub
Private Sub lblURL_Click()
'ShellEx lblUrl.tag
End Sub
Private Sub lblVersionUpdate_Click()
'ShellEx lblVersionUpdate.tag
End Sub