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

Visual Basic Form | 1995-05-08 | 12.0 KB | 380 lines

VERSION 2.00
Begin Form AllTheTime
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "AllTheTime"
   ClientHeight    =   0
   ClientLeft      =   75
   ClientTop       =   375
   ClientWidth     =   810
   ControlBox      =   0   'False
   FillColor       =   &H00C0C0C0&
   FillStyle       =   0  'Solid
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   405
   Icon            =   ALLTHETI.FRX:0000
   Left            =   15
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   0
   ScaleWidth      =   810
   Top             =   30
   Width           =   930
   Begin TextBox Text1
      Height          =   288
      Left            =   2016
      LinkTimeout     =   -1
      TabIndex        =   5
      Top             =   624
      Visible         =   0   'False
      Width           =   372
   End
   Begin PictureClip MoonSun
      Cols            =   5
      Location        =   "1215,1215,6900,5160"
      Picture         =   ALLTHETI.FRX:0302
      Rows            =   5
   End
   Begin SSFrame Frame3D1
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   15
      TabIndex        =   4
      Top             =   8160
      Width           =   135
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&3 - Bottom right"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   2
         Left            =   1920
         TabIndex        =   2
         Top             =   960
         Value           =   -1  'True
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&5 - Elsewhere"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   4
         Left            =   1530
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   615
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&1 - Upper left"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   105
         TabIndex        =   0
         TabStop         =   0   'False
         Top             =   255
         Width           =   1455
      End
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&2 - Upper right"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   1
         Left            =   1920
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   270
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&4 - Bottom left"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   960
         Width           =   1575
      End
   End
   Begin Image PrtStatus
      Height          =   240
      Left            =   510
      Top             =   10005
      Width           =   300
   End
   Begin Image PrtInactive
      Height          =   240
      Left            =   510
      Picture         =   ALLTHETI.FRX:1E20
      Top             =   10080
      Width           =   285
   End
   Begin Image PrtActive
      Height          =   240
      Left            =   510
      Picture         =   ALLTHETI.FRX:1FEA
      Top             =   10080
      Width           =   300
   End
   Begin Image Picture1
      Height          =   225
      Left            =   30
      Picture         =   ALLTHETI.FRX:21B4
      Top             =   30
      Width           =   240
   End
   Begin Image MoonPic
      Height          =   192
      Left            =   300
      Top             =   30
      Width           =   192
   End
   Begin Image SeasonPic
      Height          =   192
      Left            =   4080
      Top             =   30
      Width           =   192
   End
'DefInt A-Z
Const GroupFauxCompilerDirective = False
Sub Form_Activate ()
    'MsgBox ("Activate...")
      If AllTheTime.Left >= Screen.Width - 15 Then
         AllTheTime.Left = AllTheTime.Tag
      End If
End Sub
Sub Form_Click ()
SoundABorted = True
CFlag% = True
End Sub
Sub Form_DblClick ()
DblCFlag% = True
End Sub
Sub Form_GotFocus ()
      If AllTheTime.Left >= Screen.Width - 15 Then
         AllTheTime.Left = AllTheTime.Tag
      End If
'Settings.SetFocus
End Sub
Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case Alt_R      'Rotate
            For I% = 0 To 4
            If Settings.Option3D1(I%).Value Then S% = I%
            Next I%
            Settings.Option3D1((S% + 1) Mod 5).Value = True
            Settings.Option3D1(S%).Value = False
            KeyCode = 0
            Shift = 0
            Call PositionATT
        Case Alt_T      'Turn off
'            KeyCode = 0
'            Shift = 0
'            AllTheTime.Visible = Not AllTheTime.Visible
   End Select
End Sub
Sub Form_KeyPress (KeyAscii As Integer)
    If KeyAscii = Asc("X") Then
       DeleteMenus
       End 'Program
    End If
End Sub
Sub Form_Load ()
If hSubMenus <> 0 Then
   MsgBox "Loading twice..."
   End
End If
hMainMenu = CreatePopUpMenu()
hTaskMenu = CreateTaskMenu()
T% = AppendMenu(hMainMenu, MF_POPUP, hTaskMenu, "&Switch to")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_SETTINGS, "Se&ttings...")
T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_ABOUT, "&About...")
T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_EXIT, "E&xit")
If GroupFauxCompilerDirective Then
   Text1.LinkMode = 0
   Text1.LinkTopic = "Progman|Progman"
   Text1.LinkItem = "Groups"
   Text1.LinkMode = 2
   Text1.LinkRequest
   hGroupMenu = CreatePopUpMenu()
   T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")
   Groups$ = Text1.Text
   While Groups$ <> ""
      cPos = InStr(Groups$, Chr(13))
      OneGroup$ = Left$(Groups$, cPos - 1)
      Groups$ = Mid$(Groups$, cPos + 2, 30000)
      hSubMenus = hSubMenus + 1
      ReDim Preserve hSubMenu(hSubMenus)
      hSubMenu(hSubMenus) = CreatePopUpMenu()   'popup
      Text1.LinkItem = OneGroup$
      Text1.LinkMode = 2
      Text1.LinkRequest
      Progs$ = Text1.Text
      FirstOne = True
      While Progs$ <> ""
         cPos = InStr(Progs$, Chr(13))
         OneProg$ = Left$(Progs$, cPos - 1)
         Progs$ = Mid$(Progs$, cPos + 2, 30000)
         PName$ = Mid$(OneProg$, 2, 30000)
         PName$ = Mid$(PName$, 1, InStr(PName$, Chr(34)) - 1)
         If FirstOne Then
            FirstOne = False
         Else
            T% = AppendMenu(hSubMenu(hSubMenus), MF_STRING, IDM_ITEMS + hSubMenus, PName$)
         End If
      Wend
      T% = AppendMenu(hGroupMenu, MF_POPUP, hSubMenu(hSubMenus), OneGroup$)
   Wend
T% = AppendMenu(hMainMenu, MF_POPUP, hGroupMenu, "Groups...")
End If
PrtActive.Picture = MoonSun.GraphicCell(20)
PrtInActive.Picture = MoonSun.GraphicCell(21)
PrtStatus.Picture = MoonSun.GraphicCell(21)
'Screen.MousePointer = 0
'AllTheTime.Visible = True
End Sub
Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
MStartX = X
MStartY = Y
StartLeft = Left
StartTop = Top
AllowFormToMove = True
Moved = True
If Shift <> 1 Then
   'AutoRedraw = False   '1/15
   'Beep
End If
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If AllowFormToMove = True Then
        AllTheTime.Left = AllTheTime.Left + (X - MStartX)
        AllTheTime.Top = AllTheTime.Top + (Y - MStartY)
End If
End Sub
Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
AllowFormToMove = False
'AutoRedraw = True '1/15
If Left = StartLeft And Top = StartTop Then
   Moved = False
   PosLeft = AllTheTime.Left
   PosTop = AllTheTime.Top
   Settings.Option3D1(4).Value = True
   For I% = 0 To 3
      Settings.Option3D1(I%).Value = False
   Next I%
End If
End Sub
Sub Form_Paint ()
End Sub
Sub Form_Resize ()
'SavedVis = Visible
'Visible = False
If Resizing Then Exit Sub
Resizing = True
If WindowState = 1 Then
   Exit Sub
End If
Call SetTime
Call SetSize
Call PositionATT
'Visible = SavedVis
Resizing = False
End Sub
Sub MoonPic_DblClick ()
SoundABorted = True
DblCFlag% = True
End Sub
Sub MoonPic_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub
Sub MoonPic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Sub MoonPic_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseUp(Button, Shift, X, Y)
End Sub
Sub Option3D1_Click (Index As Integer, Value As Integer)
Settings.Option3D1(Index).Value = Value
Call PositionATT
End Sub
Sub Picture1_DblClick ()
Call PictureMenuMouseDown(0, 0, 0, 0)
SoundABorted = True
DblCFlag% = True
End Sub
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call PictureMenuMouseDown(Button, Shift, X, Y)
End Sub
Sub PrtActive_Click ()
SoundABorted = True
End Sub
Sub PrtActive_DblClick ()
'On Local Error Resume Next
T% = Shell("PRINTMAN", 1)
'AppActivate "Print Manager"
'hActive% = GetActiveWindow()                 ' pickup it's hWnd handle
'Call SwitchToThisWindow(hActive%, True)
'On Local Error GoTo 0
End Sub
Sub PrtActive_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub
Sub PrtActive_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Sub PrtActive_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseUp(Button, Shift, X, Y)
End Sub
Sub PrtInactive_Click ()
SoundABorted = True
End Sub
Sub PrtInactive_DblClick ()
T% = Shell("PRINTMAN", 1)
End Sub
Sub PrtInactive_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
PrtInActive.Picture = MoonSun.GraphicCell(20)
End Sub
Sub PrtInactive_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Sub PrtInactive_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseUp(Button, Shift, X, Y)
PrtInActive.Picture = MoonSun.GraphicCell(21)
End Sub
Sub SeasonPic_Click ()
SoundABorted = True
End Sub
Sub SeasonPic_DblClick ()
SoundABorted = True
DblCFlag% = True
End Sub
Sub SeasonPic_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub
Sub SeasonPic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Sub SeasonPic_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseUp(Button, Shift, X, Y)
End Sub