Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/attall/attset.frm

Visual Basic Form | 1995-05-08 | 29.6 KB | 894 lines

VERSION 2.00
Begin Form Settings
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "All the Time Settings"
   ClientHeight    =   6015
   ClientLeft      =   1650
   ClientTop       =   1725
   ClientWidth     =   4320
   Height          =   6705
   Icon            =   ATTSET.FRX:0000
   Left            =   1590
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6015
   ScaleWidth      =   4320
   Top             =   1095
   Width           =   4440
   Begin CommandButton Command2
      Caption         =   "S&et Time..."
      Height          =   360
      Index           =   2
      Left            =   2550
      TabIndex        =   42
      Top             =   3450
      Width           =   1365
   End
   Begin SSCheck Hourly
      Caption         =   "!!"
      Font3D          =   0  'None
      Height          =   375
      Left            =   3570
      TabIndex        =   41
      Top             =   4650
      Width           =   465
   End
   Begin CommandButton Command4
      Caption         =   "For tabs"
      Height          =   360
      Index           =   1
      Left            =   4455
      TabIndex        =   40
      Top             =   5430
      Width           =   855
   End
   Begin CommandButton Command4
      Caption         =   "For tabs"
      Height          =   360
      Index           =   0
      Left            =   4440
      TabIndex        =   28
      Top             =   5010
      Width           =   855
   End
   Begin SSCheck Check3D1
      Caption         =   "P&rint Monitor"
      Font3D          =   0  'None
      Height          =   372
      Index           =   8
      Left            =   240
      TabIndex        =   11
      Top             =   2970
      Value           =   -1  'True
      Width           =   1452
   End
   Begin SSPanel OrderPanel
      BackColor       =   &H00C0C0C0&
      DragMode        =   1  'Automatic
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   1
      Left            =   168
      MousePointer    =   9  'Size W E
      TabIndex        =   39
      Tag             =   "1"
      Top             =   108
      Width           =   792
   End
   Begin SSPanel OrderPanel
      BackColor       =   &H00C0C0C0&
      DragMode        =   1  'Automatic
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   2
      Left            =   960
      MousePointer    =   9  'Size W E
      TabIndex        =   38
      Tag             =   "2"
      Top             =   108
      Width           =   792
   End
   Begin SSPanel OrderPanel
      BackColor       =   &H00C0C0C0&
      DragMode        =   1  'Automatic
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   3
      Left            =   1755
      MousePointer    =   9  'Size W E
      TabIndex        =   37
      Tag             =   "3"
      Top             =   105
      Width           =   795
   End
   Begin SSPanel OrderPanel
      BackColor       =   &H00C0C0C0&
      DragMode        =   1  'Automatic
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   4
      Left            =   2556
      MousePointer    =   9  'Size W E
      TabIndex        =   36
      Tag             =   "4"
      Top             =   108
      Width           =   792
   End
   Begin SSPanel OrderPanel
      BackColor       =   &H00C0C0C0&
      DragMode        =   1  'Automatic
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   5
      Left            =   3345
      MousePointer    =   9  'Size W E
      TabIndex        =   35
      Tag             =   "5"
      Top             =   105
      Width           =   795
   End
   Begin CommandButton Command2
      Caption         =   " &Sound..."
      Height          =   360
      Index           =   1
      Left            =   1365
      TabIndex        =   13
      Top             =   3450
      Width           =   1005
   End
   Begin SSCheck Check3D1
      Caption         =   "&Largest B-lock"
      Font3D          =   0  'None
      Height          =   375
      Index           =   7
      Left            =   1350
      TabIndex        =   7
      Top             =   1530
      Value           =   -1  'True
      Width           =   1470
   End
   Begin SSCheck Chime
      Caption         =   "S&ound"
      Font3D          =   0  'None
      Height          =   375
      Left            =   2685
      TabIndex        =   25
      Top             =   4650
      Width           =   825
   End
   Begin SSCheck FullScreen
      Caption         =   "&W-i-d-e"
      Font3D          =   0  'None
      Height          =   375
      Left            =   2685
      TabIndex        =   23
      Top             =   3930
      Width           =   1440
   End
   Begin HScrollBar SpacesScr
      Height          =   240
      LargeChange     =   4
      Left            =   1050
      Max             =   30
      Min             =   1
      TabIndex        =   15
      Top             =   3975
      Value           =   1
      Width           =   1320
   End
   Begin SSCheck Check3D1
      Caption         =   "Dis&k Space"
      Font3D          =   0  'None
      Height          =   375
      Index           =   5
      Left            =   225
      TabIndex        =   4
      Top             =   1170
      Value           =   -1  'True
      Width           =   1455
   End
   Begin SSOption Option3D1
      Caption         =   "&5 - Center"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   4
      Left            =   3240
      TabIndex        =   33
      TabStop         =   0   'False
      Top             =   2130
      Width           =   195
   End
   Begin SSCheck Check3D1
      Caption         =   "+ Men&u"
      Font3D          =   0  'None
      Height          =   375
      Index           =   6
      Left            =   240
      TabIndex        =   10
      Top             =   2610
      Value           =   -1  'True
      Width           =   1455
   End
   Begin SSPanel Panel3D1
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   0
      Font3D          =   0  'None
      ForeColor       =   &H00800000&
      Height          =   1185
      Left            =   3765
      TabIndex        =   34
      Top             =   465
      Width           =   105
   End
   Begin ComboBox DriveList
      BackColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   1725
      TabIndex        =   5
      Top             =   1230
      Width           =   2400
   End
   Begin SSOption Option3D1
      Alignment       =   1  'Right Justify
      Caption         =   "&3 - Bottom right"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   2
      Left            =   3465
      TabIndex        =   32
      TabStop         =   0   'False
      Top             =   2280
      Width           =   195
   End
   Begin SSOption Option3D1
      Caption         =   "&4 - Bottom left"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   3
      Left            =   3015
      TabIndex        =   31
      TabStop         =   0   'False
      Top             =   2265
      Width           =   195
   End
   Begin SSOption Option3D1
      Alignment       =   1  'Right Justify
      Caption         =   "&2 - Upper right"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   1
      Left            =   3465
      TabIndex        =   30
      TabStop         =   0   'False
      Top             =   1980
      Width           =   195
   End
   Begin SSOption Option3D1
      Caption         =   "&1 - Upper left"
      Font3D          =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   0
      Left            =   3015
      TabIndex        =   29
      Top             =   1980
      Value           =   -1  'True
      Width           =   195
   End
   Begin CommandButton Command3
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   300
      Left            =   2685
      TabIndex        =   26
      Top             =   5085
      Width           =   1215
   End
   Begin CommandButton Command1
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   330
      Left            =   2685
      TabIndex        =   27
      Top             =   5490
      Width           =   1215
   End
   Begin SSCheck Check3D1
      Caption         =   "Sun &and Moon and Tree"
      Font3D          =   0  'None
      Height          =   375
      Index           =   4
      Left            =   240
      TabIndex        =   9
      Top             =   2250
      Value           =   -1  'True
      Width           =   2385
   End
   Begin SSFrame Frame3D1
      Caption         =   "&Hotkeys"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   1530
      Index           =   1
      Left            =   210
      TabIndex        =   16
      Top             =   4290
      Width           =   2145
      Begin TextBox Text1
         Alignment       =   2  'Center
         Height          =   285
         Index           =   2
         Left            =   1785
         MaxLength       =   1
         TabIndex        =   22
         Text            =   "+"
         Top             =   1140
         Width           =   255
      End
      Begin TextBox Text1
         Alignment       =   2  'Center
         Height          =   285
         Index           =   1
         Left            =   1785
         MaxLength       =   1
         TabIndex        =   20
         Text            =   "R"
         Top             =   750
         Width           =   255
      End
      Begin TextBox Text1
         Alignment       =   2  'Center
         Height          =   285
         Index           =   0
         Left            =   1785
         MaxLength       =   1
         TabIndex        =   18
         Text            =   "T"
         Top             =   360
         Width           =   255
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "+ Menu: [Alt]+"
         Height          =   195
         Index           =   2
         Left            =   45
         TabIndex        =   21
         Top             =   1155
         Width           =   1710
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Rotate: [Alt]+[Ctrl]+"
         Height          =   195
         Index           =   1
         Left            =   45
         TabIndex        =   19
         Top             =   765
         Width           =   1710
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Toggle: [Alt]+[Ctrl]+"
         Height          =   255
         Index           =   0
         Left            =   30
         TabIndex        =   17
         Top             =   390
         Width           =   1725
      End
   End
   Begin CommonDialog CMDialog1
      DefaultExt      =   "wav"
      Filter          =   "Sound files (*.wav)|*.wav"
      Left            =   2076
      Top             =   6048
   End
   Begin CommandButton Command2
      Caption         =   " Fo&nt..."
      Height          =   360
      Index           =   0
      Left            =   210
      TabIndex        =   12
      Top             =   3450
      Width           =   1005
   End
   Begin SSCheck Check3D1
      Caption         =   "Resour&ces"
      Font3D          =   0  'None
      Height          =   375
      Index           =   3
      Left            =   240
      TabIndex        =   8
      Top             =   1890
      Value           =   -1  'True
      Width           =   1215
   End
   Begin SSCheck Check3D1
      Caption         =   "&Memory /"
      Font3D          =   0  'None
      Height          =   375
      Index           =   2
      Left            =   240
      TabIndex        =   6
      Top             =   1530
      Value           =   -1  'True
      Width           =   1080
   End
   Begin SSCheck Check3D1
      Caption         =   "&Time"
      Font3D          =   0  'None
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   0
      Top             =   450
      Value           =   -1  'True
      Width           =   855
   End
   Begin ComboBox TimeList
      BackColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   1725
      TabIndex        =   1
      Top             =   510
      Width           =   2400
   End
   Begin SSCheck Check3D1
      Caption         =   "&Date"
      Font3D          =   0  'None
      Height          =   375
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   810
      Value           =   -1  'True
      Width           =   855
   End
   Begin ComboBox DateList
      BackColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   1725
      TabIndex        =   3
      Top             =   870
      Width           =   2400
   End
   Begin SSCheck StayOnTop
      Caption         =   "Sta&y On Top"
      Font3D          =   0  'None
      Height          =   375
      Left            =   2685
      TabIndex        =   24
      Top             =   4290
      Value           =   -1  'True
      Width           =   1335
   End
   Begin Shape Shape1
      BorderColor     =   &H00000000&
      Height          =   265
      Left            =   150
      Top             =   90
      Width           =   4000
   End
   Begin Image Picture800
      Height          =   2115
      Left            =   4410
      Picture         =   ATTSET.FRX:0302
      Top             =   1905
      Width           =   2040
   End
   Begin Image Picture640
      Height          =   1680
      Left            =   4470
      Picture         =   ATTSET.FRX:23BC
      Top             =   450
      Width           =   1665
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "S&pacing"
      Height          =   240
      Left            =   255
      TabIndex        =   14
      Top             =   3975
      Width           =   840
   End
   Begin Menu FileMenu
      Caption         =   "&File"
      Begin Menu FileExit
         Caption         =   "E&xit"
      End
      Begin Menu FileSep
         Caption         =   "-"
      End
      Begin Menu FileAbout
         Caption         =   "&About All the Time..."
      End
   End
Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
'The computer was originally done in MacDraw using gray patterns.
'In fact, that's Doyle's computer which, at the time, was hot stuff.
'But then it was in PowerPoint as clip art and I did a screen capture
'and pasted it into studio 32 and reduced it 50%, which made all of
'the grays blend together in its little anti-aliasing way.
'So then I went in with the supposed 16-colors-made-for-the-PC
'and substituted patterns made with those grays.
'And then I went and copied it and pasted it into Giffer and saved it as
'a GIF file.
'Then I opened it in PaintShop on the PC and fixed the boo-boos.
Sub Check3D1_Click (Index As Integer, Value As Integer)
   'Call SetSize
   Moved = False
   LastTime& = 0
   If Index = 2 Then
      If Check3D1(Index).Value Then
     Check3D1(7).Enabled = True
      Else
     Check3D1(7).Enabled = False
      End If
   End If
   If Index = 4 Or Index = 6 Or Index = 8 Then
      FontChangedNotYetSized = True
      LastJob = -1
   End If
End Sub
Sub Chime_Click (Value As Integer)
PlayOnceOnly = True
Moved = False
LastTime& = 0
Command2(1).Enabled = Value
Hourly.Enabled = Value
If (Not Cancelling) And Value Then
   LastHour = -1
End If
End Sub
Sub Command1_Click ()
SaveSettings
End Sub
Sub Command2_Click (Index As Integer)
If Index = 0 Then
   CMDialog1.FontName = AllTheTime.FontName
   CMDialog1.FontSize = AllTheTime.FontSize
   CMDialog1.FontBold = AllTheTime.FontBold
   CMDialog1.FontItalic = AllTheTime.FontItalic
   CMDialog1.FontUnderline = AllTheTime.FontUnderline
   CMDialog1.FontStrikethru = AllTheTime.FontStrikethru
   CMDialog1.Color = AllTheTime.ForeColor
   CMDialog1.Flags = CF_SCREENFONTS Or CF_USESTYLE Or CF_EFFECTS Or CF_FORCEFONTEXIST
   CMDialog1.CancelError = True
   CMDialog1.DialogTitle = ""
   On Error Resume Next
   CMDialog1.Action = 4
   If Err = 0 Then
      AllTheTime.FontSize = 12
      On Error Resume Next
      AllTheTime.FontName = CMDialog1.FontName
      On Error GoTo 0
      AllTheTime.FontSize = CMDialog1.FontSize
      AllTheTime.FontBold = CMDialog1.FontBold
      AllTheTime.FontItalic = CMDialog1.FontItalic
      AllTheTime.FontUnderline = CMDialog1.FontUnderline
      AllTheTime.FontStrikethru = CMDialog1.FontStrikethru
      AllTheTime.ForeColor = CMDialog1.Color
      SetOrderColors
      Moved = False
      FontChangedNotYetSized = True
   End If
   On Error GoTo 0
End If
If Index = 1 Then
   CMDialog1.CancelError = True
   On Error Resume Next
   CMDialog1.DialogTitle = "Choose Sound File"
   CMDialog1.Flags = OFN_HIDEREADONLY
   CMDialog1.Action = 1
   If Err = 0 Then
      Call Chime_Click(True)
   End If
End If
If Index = 2 Then
   SetTimeForm.Show 1
End If
End Sub
Sub Command3_Click ()
Cancelling = True
LoadSettings
Cancelling = False
End Sub
Sub Command4_GotFocus (Index As Integer)
If Index = 1 Then Command1.SetFocus
If Index = 0 Then Check3D1(1).SetFocus
End Sub
Sub DateList_Change ()
   'Check3D1(0).Value = True
End Sub
Sub DriveList_Change ()
   LastTime& = 0
End Sub
Sub DriveList_Click ()
   LastTime& = 0
End Sub
Sub FileAbout_Click ()
Form3.Show 1
End Sub
Sub FileExit_Click ()
DeleteMenus
End 'Program
End Sub
Sub Form_Load ()
If (xDPI = 96) And (yDPI = 96) Then
  Picture640.Left = 2505
  Picture640.Top = 1755
  If (xDPI = 120) And (yDPI = 120) Then
     Picture800.Left = 2505
     Picture800.Top = 1755
  End If
End If
'For I% = 2 To 5
'OrderPanel(I%).Width = OrderPanel(I% - 1).Width
'OrderPanel(I%).Left = OrderPanel(I% - 1).Left + OrderPanel(I% - 1).Width
'Next I%
DateList.AddItem "General Date"
DateList.AddItem "Long Date"
DateList.AddItem "Medium Date"
DateList.AddItem "Short Date"
DateList.AddItem "m/d/yy"
DateList.AddItem "dddd, mmmm d"
DateList.AddItem "dddd, mmmm d yyyy"
DateList.AddItem "dddd m/d/yy"
DateList.AddItem "d mmmm, yyyy"
DateList.AddItem Chr$(34) + "Today is " + Chr$(34) + "dddd"
DateList.AddItem Chr$(34) + "Day " + Chr$(34) + "y" + Chr$(34) + " of " + Chr$(34) + "yyyy" + Chr$(34) + "." + Chr$(34)
DateList.AddItem Chr$(34) + "Week " + Chr$(34) + "ww" + Chr$(34) + " of " + Chr$(34) + "yyyy" + Chr$(34) + "." + Chr$(34)
DateList.ListIndex = 8
TimeList.AddItem "General Date"
TimeList.AddItem "Long Time"
TimeList.AddItem "Medium Time"
TimeList.AddItem "Short Time"
TimeList.AddItem "h:nna/p"
TimeList.AddItem "h:nnam/pm"
TimeList.AddItem "h:nnam/pm,"
TimeList.AddItem Chr$(34) + "It's " + Chr$(34) + "n" + Chr$(34) + " minutes past " + Chr$(34) + "h" + Chr$(34) + " o'clock." + Chr$(34)
TimeList.AddItem Chr$(34) + "The time is " + Chr$(34) + "h:nn am/pm" + Chr$(34) + " and" + Chr$(34) + " s " + Chr$(34) + "seconds." + Chr$(34)
TimeList.AddItem "n" + Chr$(34) + " minutes past the hour of " + Chr$(34) + "ham/pm" + Chr$(34) + "." + Chr$(34)
TimeList.AddItem "n" + Chr$(34) + " minutes and " + Chr$(34) + "s" + Chr$(34) + " seconds past the hour of " + Chr$(34) + "ham/pm" + Chr$(34) + "." + Chr$(34)
TimeList.ListIndex = 6
DriveList.AddItem "All hard drives"
DriveList.AddItem "Windows drive"
DriveList.AddItem "CE"
DriveList.ListIndex = 1
'Drives% = 2
'Drive(1) = "C"
'Drive(2) = "D"
LoadSettings
End Sub
Sub Form_LostFocus ()
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
  'Beep
  SaveSettings
  Hide
  Cancel = True
End If
End Sub
Sub FullScreen_Click (Value As Integer)
If Value Then
   AllTheTime.Left = 0
   'AllTheTime.Width = Screen.Width
   AllTheTime.Tag = 0
   PosLeft = 0
End If
SpacesScr.Enabled = Not Value
OldWid% = -1
End Sub
Sub Hourly_Click (Value As Integer)
'PlayOnceOnly = True
Moved = False
LastTime& = 0
If (Not Cancelling) And Value Then
   LastHour = -1
End If
End Sub
Sub LoadSettings ()
Dim lpReturnedString As String * 100
lpReturnedString = Space$(100)
A% = GetProfileString("AllTheTime", "ShowDate", "-1", lpReturnedString$, 100)
Check3D1(0).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowTime", "-1", lpReturnedString$, 100)
Check3D1(1).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowMemory", "-1", lpReturnedString$, 100)
Check3D1(2).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowResource", "-1", lpReturnedString$, 100)
Check3D1(3).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowSun", "-1", lpReturnedString$, 100)
Check3D1(4).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowDrive", "-1", lpReturnedString$, 100)
Check3D1(5).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowPlus", "-1", lpReturnedString$, 100)
Check3D1(6).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowBlock", "0", lpReturnedString$, 100)
Check3D1(7).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ShowPrint", "0", lpReturnedString$, 100)
Check3D1(8).Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "DateFormat", "d mmmm, yyyy", lpReturnedString$, 100)
DateList.Text = DecodeQuotes(lpReturnedString)
A% = GetProfileString("AllTheTime", "TimeFormat", "h:nnam/pm,", lpReturnedString$, 100)
TimeList.Text = DecodeQuotes(lpReturnedString)
A% = GetProfileString("AllTheTime", "DriveFormat", "Windows drive", lpReturnedString$, 100)
cString$ = Trim(lpReturnedString)
tp% = InStr(cString$, Chr(0))
If tp% <> 0 Then cString$ = Mid$(cString$, 1, tp% - 1)
If cString$ <> DriveList.List(0) And cString$ <> DriveList.List(1) Then
   DriveList.List(2) = cString$
End If
DriveList.Text = lpReturnedString
A% = GetProfileString("AllTheTime", "StayOnTop", "-1", lpReturnedString$, 100)
StayOnTop.Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "Chime", "-1", lpReturnedString$, 100)
Chime.Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "Hourly", "0", lpReturnedString$, 100)
Hourly.Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ChimeFile", "att.wav", lpReturnedString$, 100)
CMDialog1.Filename = lpReturnedString
A% = GetProfileString("AllTheTime", "FullScreen", "0", lpReturnedString$, 100)
FullScreen.Value = Val(lpReturnedString)
A% = GetProfileString("AllTheTime", "ToggleHotKey", "T", lpReturnedString$, 100)
Text1(0).Text = lpReturnedString
A% = GetProfileString("AllTheTime", "RotateHotKey", "R", lpReturnedString$, 100)
Text1(1).Text = lpReturnedString
A% = GetProfileString("AllTheTime", "PlusKey", "=", lpReturnedString$, 100)
Text1(2).Text = lpReturnedString
A% = GetProfileString("AllTheTime", "SpaceBetween", "2", lpReturnedString$, 100)
T% = Val(lpReturnedString)
SpacesScr.Value = T%
A% = GetProfileString("AllTheTime", "FontName", "XX", lpReturnedString$, 100)
On Error Resume Next
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontName = lpReturnedString$
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "FontSize", "XX", lpReturnedString$, 100)
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontSize = Val(lpReturnedString)
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "FontBold", "XX", lpReturnedString$, 100)
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontBold = Val(lpReturnedString)
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "FontItalic", "XX", lpReturnedString$, 100)
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontItalic = Val(lpReturnedString)
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "FontUnderline", "XX", lpReturnedString$, 100)
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontUnderline = Val(lpReturnedString)
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "FontStrikethru", "XX", lpReturnedString$, 100)
If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontStrikethru = Val(lpReturnedString)
On Error GoTo 0
On Error Resume Next
A% = GetProfileString("AllTheTime", "ForeColor", "8388608", lpReturnedString$, 100)
AllTheTime.ForeColor = Val(lpReturnedString)
SetOrderColors
On Error GoTo 0
A% = GetProfileString("AllTheTime", "PosLeft", "0", lpReturnedString$, 100)
PosLeft = Val(lpReturnedString$)
A% = GetProfileString("AllTheTime", "PosTop", "0", lpReturnedString$, 100)
PosTop = Val(lpReturnedString$)
If (PosLeft + AllTheTime.Width > Screen.Width) And Not Cancelling Then PosLeft = Screen.Width - AllTheTime.Width
If (PosTop + AllTheTime.Height > Screen.Height) And Not Cancelling Then PosTop = Screen.Height - AllTheTime.Height
A% = GetProfileString("AllTheTime", "Position", "4", lpReturnedString$, 100)
T% = Val(lpReturnedString)
Option3D1(T% - 1).Value = -1
For I% = 1 To 5
A% = GetProfileString("AllTheTime", "Order" + Format$(I%), Format$(I%), lpReturnedString$, 100)
T% = Val(lpReturnedString)
OrderPanel(I%).Tag = T%
'OrderPicture(I%).Picture = PicClip1.GraphicCell(T% - 1)
Next I%
Call SetUpVirtualKeys
OldWid% = -1
End Sub
Sub Option3D1_Click (Index As Integer, Value As Integer)
Moved = False
Call PositionATT
End Sub
Sub OrderPanel_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
'If the source is to the left of the target then
'shift controls from source+1 to target one to the left
'If the source is to the right of the target then
'shift controls from target to source one to the right
Dim I As Integer
Dim SourceNum As Integer
For I% = 1 To 5
   If Source.Tag = OrderPanel(I%).Tag Then SourceNum = I%
Next I%
'TempPic.Picture = Source.Picture
'TempPic.BackColor = Source.BackColor
TempPicTag = Source.Tag
TempPicCap$ = Source.Caption
If SourceNum% < Index Then
   For I% = SourceNum% To Index - 1
      OrderPanel(I%).Tag = OrderPanel(I% + 1).Tag
      OrderPanel(I%).Caption = OrderPanel(I% + 1).Caption
   Next I%
End If
If SourceNum% > Index Then
   For I% = SourceNum% - 1 To Index Step -1
      OrderPanel(I% + 1).Tag = OrderPanel(I%).Tag
      OrderPanel(I% + 1).Caption = OrderPanel(I%).Caption
   Next I%
End If
OrderPanel(Index).Caption = TempPicCap$
OrderPanel(Index).Tag = TempPicTag
LastTime& = 0
End Sub
Sub SetOrderColors ()
For I% = 1 To 5
OrderPanel(I%).ForeColor = AllTheTime.ForeColor
Next I%
End Sub
Sub SpacesScr_Change ()
   LastTime& = 0
End Sub
Sub StayOnTop_Click (Value As Integer)
Call SetStayOnTop(Value)
End Sub
Sub Text1_GotFocus (Index As Integer)
Text1(Index).SelStart = 0
Text1(Index).SelLength = 1
End Sub
Sub TimeList_Change ()
   'Check3D1(1).Value = True
   LastTime& = 0
End Sub