Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing OptionsForm.frm (11.23 KB)
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form OptionsForm
BorderStyle = 1 'Fixed Single
Caption = "RedDotAppEx v1.3 Options"
ClientHeight = 3150
ClientLeft = 45
ClientTop = 435
ClientWidth = 4695
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "OptionsForm.frx":0000
MaxButton = 0 'False
ScaleHeight = 3150
ScaleWidth = 4695
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboDotSize
Height = 315
ItemData = "OptionsForm.frx":0442
Left = 1800
List = "OptionsForm.frx":044F
Style = 2 'Dropdown List
TabIndex = 15
Top = 2160
Width = 2775
End
Begin MSComDlg.CommonDialog FontDialog
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Max = 32
Min = 8
End
Begin VB.CommandButton Command4
Caption = "&Hotkeys..."
Height = 375
Left = 120
TabIndex = 16
Top = 2640
Width = 1095
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 3360
TabIndex = 18
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2040
TabIndex = 17
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "..."
Height = 255
Left = 4080
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "Browse for playlist file..."
Top = 500
Width = 300
End
Begin VB.Frame Frame1
Caption = "Clock Settings (Toggle Clock Hotkey: Ctrl + Tab)"
Height = 1935
Left = 120
TabIndex = 1
Top = 120
Width = 4455
Begin VB.TextBox txtY
Height = 315
Left = 2640
MaxLength = 6
TabIndex = 13
Text = "30"
Top = 1440
Width = 855
End
Begin VB.TextBox txtX
Height = 315
Left = 1440
MaxLength = 6
TabIndex = 11
Text = "30"
Top = 1440
Width = 855
End
Begin VB.CheckBox chkTransparent
Caption = "&Make background transparent"
Height = 255
Left = 1680
TabIndex = 8
Top = 1110
Width = 2535
End
Begin VB.PictureBox pbColor2
BackColor = &H00000000&
Height = 315
Left = 1200
ScaleHeight = 255
ScaleWidth = 315
TabIndex = 7
TabStop = 0 'False
ToolTipText = "Click to change"
Top = 1080
Width = 375
End
Begin VB.PictureBox pbColor1
BackColor = &H00FFFFFF&
Height = 315
Left = 1200
ScaleHeight = 255
ScaleWidth = 315
TabIndex = 5
TabStop = 0 'False
ToolTipText = "Click to change"
Top = 720
Width = 375
End
Begin VB.TextBox txtFont
Enabled = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1200
TabIndex = 2
Text = "Verdana"
Top = 360
Width = 2655
End
Begin VB.Label lblPixels
Caption = "(pixels)"
Height = 255
Left = 3600
TabIndex = 19
Top = 1485
Width = 615
End
Begin VB.Label lblY
Caption = "&Y:"
Height = 255
Left = 2400
TabIndex = 12
Top = 1485
Width = 255
End
Begin VB.Label lblX
Caption = "&X:"
Height = 255
Left = 1200
TabIndex = 10
Top = 1480
Width = 255
End
Begin VB.Label lblClock
Caption = "Clock Pos:"
Height = 255
Left = 240
TabIndex = 9
ToolTipText = "Clock Position"
Top = 1480
Width = 855
End
Begin VB.Label lblBackColor
Caption = "Back Color:"
Height = 255
Left = 240
TabIndex = 6
Top = 1140
Width = 855
End
Begin VB.Label lblTextColor
Caption = "Text Color:"
Height = 255
Left = 240
TabIndex = 4
Top = 760
Width = 855
End
Begin VB.Label lblFont
Caption = "&Font:"
Height = 255
Left = 240
TabIndex = 0
Top = 400
Width = 495
End
End
Begin VB.Label lblDotSize
Caption = "&Default RedDot Size:"
Height = 255
Left = 120
TabIndex = 14
Top = 2200
Width = 1575
End
End
Attribute VB_Name = "OptionsForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Optn_Font.Name = txtFont.FontName
Optn_Font.SIZE = txtFont.FontSize
Optn_Font.Bold = txtFont.FontBold
Optn_Font.Italic = txtFont.FontItalic
Optn_Font.Underline = txtFont.FontUnderline
Optn_Font.Strikethru = txtFont.FontStrikethru
Optn_Font.TextColor = pbColor1.BackColor
Optn_Font.BackColor = pbColor2.BackColor
Optn_Font.BackTransparent = CBool(chkTransparent.Value)
Optn_ClockX = Val(txtX.Text)
Optn_ClockY = Val(txtY.Text)
Optn_DefDotSize = cboDotSize.ListIndex
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Name", Optn_Font.Name
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Size", CLng(Optn_Font.SIZE)
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Bold", CLng(Abs(CInt(Optn_Font.Bold)))
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Italic", CLng(Abs(CInt(Optn_Font.Italic)))
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Underline", CLng(Abs(CInt(Optn_Font.Underline)))
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.Strikethru", CLng(Abs(CInt(Optn_Font.Strikethru)))
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.TextColor", CLng(Optn_Font.TextColor)
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.BackColor", CLng(Optn_Font.BackColor)
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "Font.BackTransparent", CLng(Abs(CInt(Optn_Font.BackTransparent)))
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "ClockX", Optn_ClockX
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "ClockY", Optn_ClockY
SaveRegDWORD HKEY_LOCAL_MACHINE, RegAppRoot, "DefaultDotSize", CLng(Optn_DefDotSize)
InitClockDrawing
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
On Error GoTo CancelErr
FontDialog.FontName = txtFont.FontName
FontDialog.FontSize = txtFont.FontSize
FontDialog.FontBold = txtFont.FontBold
FontDialog.FontItalic = txtFont.FontItalic
FontDialog.FontUnderline = txtFont.FontUnderline
FontDialog.FontStrikethru = txtFont.FontStrikethru
FontDialog.Color = pbColor1.BackColor
FontDialog.ShowFont
txtFont.Text = FontDialog.FontName
txtFont.FontName = FontDialog.FontName
txtFont.FontSize = FontDialog.FontSize
txtFont.FontBold = FontDialog.FontBold
txtFont.FontItalic = FontDialog.FontItalic
txtFont.FontUnderline = FontDialog.FontUnderline
txtFont.FontStrikethru = FontDialog.FontStrikethru
CancelErr:
End Sub
Private Sub Command4_Click()
HotkeysForm.Show 1
End Sub
Private Sub Form_Load()
On Error Resume Next
FontDialog.Flags = cdlCCFullOpen + cdlCCRGBInit + cdlCFForceFontExist + cdlCFLimitSize + cdlCFEffects
CButton Command3
txtFont.FontName = Optn_Font.Name
txtFont.Text = txtFont.FontName
txtFont.FontSize = Optn_Font.SIZE
txtFont.FontBold = Optn_Font.Bold
txtFont.FontItalic = Optn_Font.Italic
txtFont.FontUnderline = Optn_Font.Underline
txtFont.FontStrikethru = Optn_Font.Strikethru
pbColor1.BackColor = Optn_Font.TextColor
pbColor2.BackColor = Optn_Font.BackColor
chkTransparent.Value = Abs(CInt(Optn_Font.BackTransparent))
txtX.Text = Optn_ClockX
txtY.Text = Optn_ClockY
cboDotSize.ListIndex = Optn_DefDotSize
End Sub
Private Sub pbColor1_Click()
On Error GoTo CancelErr
FontDialog.Color = pbColor1.BackColor
FontDialog.ShowColor
pbColor1.BackColor = FontDialog.Color
CancelErr:
End Sub
Private Sub pbColor2_Click()
On Error GoTo CancelErr
FontDialog.Color = pbColor2.BackColor
FontDialog.ShowColor
pbColor2.BackColor = FontDialog.Color
CancelErr:
End Sub
Private Sub txtX_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub txtX_LostFocus()
txtX.Text = Val(txtX.Text)
End Sub
Private Sub txtY_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub txtY_LostFocus()
txtY.Text = Val(txtY.Text)
End Sub