QBasic & Borland Pascal & C/Delphi5.iso/Basic/Visual Basic.60/COMMON/TOOLS/VB/UNSUPPRT/SSAVER/SSETUP.FRM

Visual Basic Form | 1997-01-16 | 12.7 KB | 375 lines

VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "ComCt232.Ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "comctl32.ocx"
Begin VB.Form frmSSetup
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "VB 5 Saver Setup"
   ClientHeight    =   3285
   ClientLeft      =   2565
   ClientTop       =   2070
   ClientWidth     =   6015
   Icon            =   "SSetup.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3285
   ScaleWidth      =   6015
   ShowInTaskbar   =   0   'False
   Begin VB.Frame frSpeed
      Caption         =   "Sprite Speed"
      Height          =   645
      Left            =   90
      TabIndex        =   14
      Top             =   2520
      Width           =   5805
      Begin VB.CheckBox chkSpeedRND
         Caption         =   "Randomize"
         Height          =   195
         Left            =   150
         TabIndex        =   15
         Top             =   270
         Width           =   1125
      End
      Begin ComctlLib.Slider sldSpeed
         Height          =   330
         Left            =   2100
         TabIndex        =   16
         Top             =   210
         Width           =   2745
         _ExtentX        =   4842
         _ExtentY        =   582
         TickStyle       =   3
      End
      Begin VB.Label lblSpeed
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   5340
         TabIndex        =   24
         Top             =   270
         Width           =   360
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Slow"
         Height          =   195
         Index           =   6
         Left            =   1710
         TabIndex        =   18
         Top             =   270
         Width           =   345
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Fast"
         Height          =   195
         Index           =   5
         Left            =   4860
         TabIndex        =   17
         Top             =   270
         Width           =   300
      End
   End
   Begin VB.Frame frSpriteSize
      Caption         =   "Sprite Size %"
      Height          =   645
      Left            =   90
      TabIndex        =   9
      Top             =   1800
      Width           =   5805
      Begin VB.CheckBox chkSizeRND
         Caption         =   "Randomize"
         Height          =   195
         Left            =   150
         TabIndex        =   10
         Top             =   270
         Width           =   1125
      End
      Begin ComctlLib.Slider sldSize
         Height          =   330
         Left            =   2100
         TabIndex        =   11
         Top             =   210
         Width           =   2745
         _ExtentX        =   4842
         _ExtentY        =   582
         TickStyle       =   3
      End
      Begin VB.Label lblSize
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   5340
         TabIndex        =   23
         Top             =   270
         Width           =   360
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Small"
         Height          =   195
         Index           =   4
         Left            =   1680
         TabIndex        =   13
         Top             =   270
         Width           =   375
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Large"
         Height          =   195
         Index           =   3
         Left            =   4860
         TabIndex        =   12
         Top             =   270
         Width           =   405
      End
   End
   Begin VB.Frame frRefreshRate
      Caption         =   "Sprite Animation Rate"
      Height          =   645
      Left            =   90
      TabIndex        =   3
      Top             =   1080
      Width           =   5805
      Begin VB.CheckBox chkRefreshRND
         Caption         =   "Randomize"
         Height          =   195
         Left            =   150
         TabIndex        =   8
         Top             =   270
         Width           =   1125
      End
      Begin ComctlLib.Slider sldRefreshRate
         Height          =   330
         Left            =   2100
         TabIndex        =   4
         Top             =   210
         Width           =   2745
         _ExtentX        =   4842
         _ExtentY        =   582
         TickStyle       =   3
      End
      Begin VB.Label lblRefresh
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   5340
         TabIndex        =   22
         Top             =   270
         Width           =   360
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Fast"
         Height          =   195
         Index           =   2
         Left            =   4860
         TabIndex        =   6
         Top             =   300
         Width           =   300
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Slow"
         Height          =   195
         Index           =   1
         Left            =   1710
         TabIndex        =   5
         Top             =   300
         Width           =   345
      End
   End
   Begin VB.Frame fSettings
      Caption         =   "Sprites"
      Height          =   945
      Left            =   90
      TabIndex        =   2
      Top             =   0
      Width           =   1875
      Begin VB.PictureBox picCount
         BackColor       =   &H80000005&
         Height          =   315
         Left            =   720
         ScaleHeight     =   255
         ScaleWidth      =   525
         TabIndex        =   20
         Top             =   210
         Width           =   585
         Begin VB.TextBox txtSprites
            BorderStyle     =   0  'None
            Height          =   195
            Left            =   60
            Locked          =   -1  'True
            TabIndex        =   21
            Text            =   "10"
            Top             =   30
            Width           =   195
         End
         Begin ComCtl2.UpDown udCount
            Height          =   255
            Left            =   330
            TabIndex        =   25
            Top             =   0
            Width           =   195
            _ExtentX        =   344
            _ExtentY        =   450
            Value           =   1
            AutoBuddy       =   -1  'True
            BuddyControl    =   "txtSprites"
            BuddyDispid     =   196624
            OrigLeft        =   345
            OrigRight       =   540
            OrigBottom      =   255
            Min             =   1
            SyncBuddy       =   -1  'True
            BuddyProperty   =   65547
            Enabled         =   -1  'True
         End
      End
      Begin VB.CheckBox chkTracers
         Caption         =   "Show Tracers"
         Height          =   195
         Left            =   180
         TabIndex        =   19
         Top             =   630
         Width           =   1335
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Count:"
         Height          =   195
         Index           =   0
         Left            =   150
         TabIndex        =   7
         Top             =   270
         Width           =   465
      End
   End
   Begin VB.CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   5010
      TabIndex        =   1
      Top             =   540
      Width           =   915
   End
   Begin VB.CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   5010
      TabIndex        =   0
      Top             =   60
      Width           =   915
   End
Attribute VB_Name = "frmSSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub chkRefreshRND_Click()
    gRefreshRND = (chkRefreshRND.Value = vbChecked) ' Save rand refresh rate globally
    sldRefreshRate.Enabled = Not gRefreshRND
End Sub
Private Sub chkSizeRND_Click()
    gSizeRND = (chkSizeRND.Value = vbChecked)       ' Save rand sprite size globally
    sldSize.Enabled = Not gSizeRND
End Sub
Private Sub chkSpeedRND_Click()
    gSpeedRND = (chkSpeedRND.Value = vbChecked)     ' Save rand animation rate globally
    sldSpeed.Enabled = Not gSpeedRND
End Sub
Private Sub chkTracers_Click()
    gTracers = (chkTracers.Value = vbChecked)       ' Save use tracers option globally
End Sub
Private Sub cmdCancel_Click()
    Unload Me                                       ' Cancel screen saver setup dialog
End Sub
Private Sub cmdOK_Click()
    SaveSettings                                    ' Save current screen saver settings...
    Unload Me                                       ' Close setup dialog
End Sub
'------------------------------------------------------------
Private Sub Form_KeyPress(KeyAscii As Integer)
'------------------------------------------------------------
    ' Show the screensaver about box...
    If (KeyAscii = Asc("?")) Then AboutBox Me.hwnd
'------------------------------------------------------------
End Sub
'------------------------------------------------------------
'------------------------------------------------------------
Private Sub Form_Load()
'------------------------------------------------------------
    ' Load current screen saver registry settings...
    LoadSettings
    ' Get Sprite Count Value
    With udCount
        .Max = MAX_SPRITECOUNT
        .Min = MIN_SPRITECOUNT
        .Value = gSpriteCount
    End With
    ' Get Refresh Rate Value
    With sldRefreshRate
        .Max = MAX_REFRESHRATE
        .Min = MIN_REFRESHRATE
        .Value = gRefreshRate
        lblRefresh.Caption = CStr(gRefreshRate)
    End With
    ' Get Sprite Size Value
    With sldSize
        .Max = MAX_SPRITESIZE
        .Min = MIN_SPRITESIZE
        .Value = gSpriteSize
        lblSize.Caption = CStr(gSpriteSize)
    End With
    ' Get Sprite Speed Value
    With sldSpeed
        .Max = MAX_SPRITESPEED
        .Min = MIN_SPRITESPEED
        .Value = gSpriteSpeed
        lblSpeed.Caption = CStr(gSpriteSpeed)
    End With
    ' Get Tracers on Value
    If gTracers Then chkTracers.Value = vbChecked
    ' Get Rate Random Value
    If gRefreshRND Then chkRefreshRND.Value = vbChecked
    ' Get Size Random Value
    If gSizeRND Then chkSizeRND.Value = vbChecked
    ' Get Speed Random Value
    If gSpeedRND Then chkSpeedRND.Value = vbChecked
'------------------------------------------------------------
End Sub
'------------------------------------------------------------
Private Sub sldRefreshRate_Change()
    gRefreshRate = sldRefreshRate.Value             ' Save animation refresh rate globally
    lblRefresh.Caption = CStr(gRefreshRate)
End Sub
Private Sub sldRefreshRate_Scroll()
    gRefreshRate = sldRefreshRate.Value             ' Save animation refresh rate globally
    lblRefresh.Caption = CStr(gRefreshRate)
End Sub
Private Sub sldSize_Change()
    gSpriteSize = sldSize.Value                     ' Save active sprite size globally
    lblSize.Caption = CStr(gSpriteSize)
End Sub
Private Sub sldSize_Scroll()
    gSpriteSize = sldSize.Value                     ' Save active sprite size globally
    lblSize.Caption = CStr(gSpriteSize)
End Sub
Private Sub sldSpeed_Change()
    gSpriteSpeed = sldSpeed.Value                   ' Save active sprite speed globally
    lblSpeed.Caption = CStr(gSpriteSpeed)
End Sub
Private Sub sldSpeed_Scroll()
    gSpriteSpeed = sldSpeed.Value                   ' Save active sprite speed globally
    lblSpeed.Caption = CStr(gSpriteSpeed)
End Sub
Private Sub txtSprites_Change()
    gSpriteCount = Val(txtSprites.Text)             ' Save active sprite count globally
End Sub