Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing QuickQuery HL Edition/AboutForm.frm (10.49 KB)
VERSION 5.00
Object = "{1B289251-696B-479D-B7BD-C670BD3C237C}#1.1#0"; "HLinkCtl.ocx"
Begin VB.Form AboutForm
BorderStyle = 3 'Fixed Dialog
Caption = "About QuickQuery Half-Life Edition"
ClientHeight = 3210
ClientLeft = 45
ClientTop = 330
ClientWidth = 4410
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 = "AboutForm.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3210
ScaleWidth = 4410
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin HyperLinkControl.HyperLinkCtl hlUnregistered
Height = 255
Left = 1080
TabIndex = 13
ToolTipText = "Click here to register"
Top = 2160
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 450
Align = 1
Caption = "&UNREGISTERED"
CursorType = 1
Enabled = 0 'False
EnabledType = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HasHoverEffect = -1 'True
WordBreak = -1 'True
End
Begin VB.TextBox txtName
BackColor = &H8000000F&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 2160
Locked = -1 'True
MaxLength = 100
TabIndex = 8
Text = "(name)"
Top = 2140
Visible = 0 'False
Width = 2055
End
Begin HyperLinkControl.HyperLinkCtl hlForum
Height = 255
Left = 1800
TabIndex = 6
Top = 1680
Width = 2295
_ExtentX = 4048
_ExtentY = 450
Caption = "forums.jasonspcsoftware.com"
ClickColor = 255
CursorType = 1
EnabledType = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
HasHoverEffect = -1 'True
HoverColor = 255
End
Begin HyperLinkControl.HyperLinkCtl hlContact
Height = 255
Left = 1800
TabIndex = 4
Top = 1425
Width = 2295
_ExtentX = 4048
_ExtentY = 450
Caption = "jason@jasonspcsoftware.com"
ClickColor = 255
CursorType = 1
EnabledType = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
HasHoverEffect = -1 'True
HoverColor = 255
End
Begin HyperLinkControl.HyperLinkCtl hlURL
Height = 255
Left = 1800
TabIndex = 2
Top = 1185
Width = 2535
_ExtentX = 4471
_ExtentY = 450
Caption = "quickquery.jasonspcsoftware.com"
ClickColor = 255
CursorType = 1
EnabledType = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
HasHoverEffect = -1 'True
HoverColor = 255
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 375
Left = 1680
TabIndex = 0
Top = 2640
Width = 1215
End
Begin VB.Label lblRegName
BackStyle = 0 'Transparent
Caption = "&Registered to:"
Height = 255
Left = 960
TabIndex = 7
Top = 2160
Visible = 0 'False
Width = 1215
End
Begin VB.Label lblForum
BackStyle = 0 'Transparent
Caption = "&Forums:"
Height = 255
Left = 960
TabIndex = 5
Top = 1680
Width = 615
End
Begin VB.Label lblContact
BackStyle = 0 'Transparent
Caption = "&Contact:"
Height = 255
Left = 960
TabIndex = 3
Top = 1440
Width = 735
End
Begin VB.Label lblURL
BackStyle = 0 'Transparent
Caption = "&Website:"
Height = 255
Left = 960
TabIndex = 1
Top = 1200
Width = 735
End
Begin VB.Image IconImage
Height = 480
Left = 120
Top = 180
Width = 480
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "QuickQuery Half-Life Edition"
Height = 255
Left = 960
TabIndex = 12
Top = 120
Width = 2295
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version: "
Height = 195
Left = 960
TabIndex = 11
Top = 360
Width = 630
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Copyright � 1999 - 2002 Jason's PC Software"
Height = 255
Left = 960
TabIndex = 10
Top = 840
Width = 3375
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Windows 2000/XP or later"
Height = 255
Left = 960
TabIndex = 9
Top = 600
Width = 2295
End
End
Attribute VB_Name = "AboutForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim AnimateWnd As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Const COLOR_BTNFACE = 15
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Initialize()
InitCommonCtrls
End Sub
Private Sub Form_Load()
IconImage.Picture = LoadResPicture(1, 1)
Label2.Caption = Label2.Caption + Ver
AnimateWnd = CreateAnimateWindow(8, 56, 32, 32, hWnd)
If AnimateWnd Then
If OpenVideoFile(AnimateWnd, , 200) Then PlayVideo AnimateWnd
End If
hlURL.BackColor = GetSysColor(COLOR_BTNFACE)
hlContact.BackColor = GetSysColor(COLOR_BTNFACE)
hlForum.BackColor = GetSysColor(COLOR_BTNFACE)
hlUnregistered.BackColor = GetSysColor(COLOR_BTNFACE)
If bReg_Valid = False Then
hlUnregistered.Enabled = True
hlUnregistered.Visible = True
Else
lblRegName.Visible = True
txtName.Text = sReg_Name
txtName.Enabled = True
txtName.Visible = True
End If
If IsCompatible() = True Then SetWindowTranslucency hWnd, 230
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
StopVideo AnimateWnd
DestroyAnimateWindow AnimateWnd
If IsCompatible() Then ClearWindowTranslucency hWnd
End Sub
Private Sub hlContact_Click()
LaunchURL "mailto:jason@jasonspcsoftware.com"
End Sub
Private Sub hlContact_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then hlContact_Click
End Sub
Private Sub hlContact_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then hlContact_Click
End Sub
Private Sub hlForum_Click()
LaunchURL "http://forums.jasonspcsoftware.com"
End Sub
Private Sub hlForum_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then hlForum_Click
End Sub
Private Sub hlForum_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then hlForum_Click
End Sub
Private Sub hlUnregistered_Click()
LaunchURL "http://quickquery.jasonspcsoftware.com/howtoregister.shtml"
End Sub
Private Sub hlUnregistered_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then hlUnregistered_Click
End Sub
Private Sub hlUnregistered_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then hlUnregistered_Click
End Sub
Private Sub hlURL_Click()
LaunchURL "http://quickquery.jasonspcsoftware.com"
End Sub
Private Sub hlURL_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then hlURL_Click
End Sub
Private Sub hlURL_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then hlURL_Click
End Sub
Private Sub lblURL_Click()
lblURL.ForeColor = &HFF0000
End Sub
Download QuickQuery HL Edition/AboutForm.frm