Programming Tool Box/SIMS_2.iso/code/grafik/backgr/frmchoos.frm

Visual Basic Form | 1994-09-22 | 8.5 KB | 274 lines

VERSION 2.00
Begin Form frmChooser
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Chooser"
   ClientHeight    =   2352
   ClientLeft      =   1476
   ClientTop       =   2256
   ClientWidth     =   6372
   Height          =   2772
   KeyPreview      =   -1  'True
   Left            =   1428
   LinkTopic       =   "Form1"
   ScaleHeight     =   2352
   ScaleWidth      =   6372
   Top             =   1884
   Width           =   6468
   Begin TextBox txtGradiant
      Height          =   288
      Left            =   1296
      TabIndex        =   14
      Top             =   2004
      Width           =   1212
   End
   Begin CommandButton cmdOK
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   312
      Left            =   2556
      TabIndex        =   13
      Top             =   2004
      Width           =   1032
   End
   Begin Frame fraStyle
      BackColor       =   &H00C0C0C0&
      Caption         =   "Style"
      Height          =   1920
      Left            =   3060
      TabIndex        =   5
      Top             =   60
      Width           =   3072
      Begin CheckBox chkInvert
         BackColor       =   &H00C0C0C0&
         Caption         =   "Invert"
         ForeColor       =   &H00000080&
         Height          =   192
         Left            =   180
         TabIndex        =   11
         Top             =   1500
         Width           =   1332
      End
      Begin OptionButton optStyle
         BackColor       =   &H00C0C0C0&
         Caption         =   "Outer Edges to Center Circle"
         Height          =   252
         Index           =   4
         Left            =   180
         TabIndex        =   10
         Top             =   1200
         Width           =   2652
      End
      Begin OptionButton optStyle
         BackColor       =   &H00C0C0C0&
         Caption         =   "Outer Edges to Center Square"
         Height          =   252
         Index           =   3
         Left            =   180
         TabIndex        =   9
         Top             =   960
         Width           =   2832
      End
      Begin OptionButton optStyle
         BackColor       =   &H00C0C0C0&
         Caption         =   "Top Right to Center"
         Height          =   252
         Index           =   2
         Left            =   180
         TabIndex        =   8
         Top             =   720
         Width           =   2412
      End
      Begin OptionButton optStyle
         BackColor       =   &H00C0C0C0&
         Caption         =   "Top Left to Center"
         Height          =   252
         Index           =   1
         Left            =   180
         TabIndex        =   7
         Top             =   480
         Width           =   2412
      End
      Begin OptionButton optStyle
         BackColor       =   &H00C0C0C0&
         Caption         =   "Top to Bottom"
         Height          =   252
         Index           =   0
         Left            =   180
         TabIndex        =   6
         Top             =   240
         Width           =   2412
      End
   End
   Begin Frame fraColors
      BackColor       =   &H00C0C0C0&
      Caption         =   "Colors"
      Height          =   1908
      Left            =   72
      TabIndex        =   0
      Top             =   60
      Width           =   2952
      Begin CheckBox chkCustom
         BackColor       =   &H00C0C0C0&
         Caption         =   "Custom"
         ForeColor       =   &H00000080&
         Height          =   192
         Left            =   144
         TabIndex        =   18
         Top             =   1560
         Width           =   1944
      End
      Begin CheckBox chkPalette
         BackColor       =   &H00C0C0C0&
         Caption         =   "Use One Palette(59 Shades)"
         ForeColor       =   &H00000080&
         Height          =   192
         Left            =   120
         TabIndex        =   12
         Top             =   1320
         Width           =   2652
      End
      Begin OptionButton optColor
         BackColor       =   &H00C0C0C0&
         Caption         =   "Purple"
         Height          =   252
         Index           =   3
         Left            =   120
         TabIndex        =   4
         Top             =   1020
         Width           =   2412
      End
      Begin OptionButton optColor
         BackColor       =   &H00C0C0C0&
         Caption         =   "Green"
         Height          =   252
         Index           =   2
         Left            =   120
         TabIndex        =   3
         Top             =   780
         Width           =   1212
      End
      Begin OptionButton optColor
         BackColor       =   &H00C0C0C0&
         Caption         =   "Blue"
         Height          =   252
         Index           =   1
         Left            =   108
         TabIndex        =   2
         Top             =   552
         Width           =   1152
      End
      Begin OptionButton optColor
         BackColor       =   &H00C0C0C0&
         Caption         =   "Red"
         Height          =   252
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   300
         Width           =   1248
      End
      Begin Label lblCaption
         BackColor       =   &H00C0C0C0&
         Caption         =   "From:       To:"
         Height          =   252
         Left            =   588
         TabIndex        =   19
         Top             =   456
         Visible         =   0   'False
         Width           =   1284
      End
      Begin Label lblFrom
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         BorderStyle     =   1  'Fixed Single
         Height          =   576
         Left            =   564
         TabIndex        =   17
         Top             =   756
         Visible         =   0   'False
         Width           =   624
      End
      Begin Label lblTo
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Height          =   576
         Left            =   1260
         TabIndex        =   16
         Top             =   756
         Visible         =   0   'False
         Width           =   624
      End
   End
   Begin CommonDialog CMDialog1
      Left            =   0
      Top             =   0
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "# of Steps:"
      Height          =   252
      Left            =   156
      TabIndex        =   15
      Top             =   2064
      Width           =   1092
   End
Option Explicit
Dim mintColor%
Sub chkCustom_Click ()
optColor(0).Visible = chkCustom.Value - 1
optColor(1).Visible = chkCustom.Value - 1
optColor(2).Visible = chkCustom.Value - 1
optColor(3).Visible = chkCustom.Value - 1
chkPalette.Visible = chkCustom.Value - 1
lblFrom.Visible = chkCustom.Value
lblTo.Visible = chkCustom.Value
lblCaption.Visible = chkCustom.Value
If chkCustom.Value Then
    mintColor = fraColors.Tag
    fraColors.Tag = 4
    fraColors.Tag = mintColor
End If
End Sub
Sub cmdOK_Click ()
Dim i%
If Val(txtGradiant) > 236 Then
    If MsgBox("You have specified more than 236 colors, this will remove colors from the system palette, Are you Sure?", 36) <> 6 Then
        Exit Sub
    End If
End If
If fraColors.Tag = 4 Then
    i = CreateBitmap((txtGradiant), glngFrom, glngTo)
End If
Me.Hide
End Sub
Sub Form_KeyPress (keyascii As Integer)
If keyascii = 13 Then Me.Hide
End Sub
Sub Form_Load ()
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
lblFrom.BackColor = glngFrom
lblTo.BackColor = glngTo
End Sub
Sub lblFrom_Click ()
    cmdialog1.Color = glngFrom
    cmdialog1.Action = 3
    glngFrom = cmdialog1.Color
    lblFrom.BackColor = glngFrom
End Sub
Sub lblTo_Click ()
    cmdialog1.Color = glngTo
    cmdialog1.Action = 3
    glngTo = cmdialog1.Color
    lblTo.BackColor = glngTo
End Sub
Sub optColor_Click (index As Integer)
fraColors.Tag = index
End Sub
Sub optStyle_Click (index As Integer)
fraStyle.Tag = index
End Sub