Visual Basic Graphics Programming (2nd Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH8 / SRC / JULIACLR.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-03-08 | 9.6 KB | 324 lines

VERSION 4.00 Begin VB.Form ColorForm Caption = "Colors" ClientHeight = 4920 ClientLeft = 2625 ClientTop = 840 ClientWidth = 3495 Height = 5325 Left = 2565 LinkTopic = "Form1" ScaleHeight = 4920 ScaleWidth = 3495 Top = 495 Width = 3615 Begin VB.CommandButton CmdNone Caption = "None" Height = 375 Left = 1320 TabIndex = 24 Top = 3720 Width = 855 End Begin VB.CommandButton CmdAll Caption = "All" Height = 375 Left = 120 TabIndex = 23 Top = 3720 Width = 855 End Begin VB.CheckBox ColorCheck BackColor = &H00FFFFFF& Caption = "White" Height = 255 Index = 255 Left = 1800 TabIndex = 22 Top = 3360 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00FFFF00& Caption = "Cyan" Height = 255 Index = 254 Left = 1800 TabIndex = 21 Top = 3000 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00FF00FF& Caption = "Magenta" Height = 255 Index = 253 Left = 1800 TabIndex = 20 Top = 2640 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H0000FFFF& Caption = "Yellow" Height = 255 Index = 251 Left = 1800 TabIndex = 19 Top = 1920 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00FF0000& Caption = "Blue" ForeColor = &H00FFFFFF& Height = 255 Index = 252 Left = 1800 TabIndex = 18 Top = 2280 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H0000FF00& Caption = "Green" Height = 255 Index = 250 Left = 1800 TabIndex = 17 Top = 1560 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H000000FF& Caption = "Red" ForeColor = &H00FFFFFF& Height = 255 Index = 249 Left = 1800 TabIndex = 16 Top = 1200 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00808080& Caption = "Dark Gray" ForeColor = &H00FFFFFF& Height = 255 Index = 248 Left = 1800 TabIndex = 15 Top = 840 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00A4A0A0& Caption = "Medium Gray" Height = 255 Index = 247 Left = 1800 TabIndex = 14 Top = 480 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00F0FBFF& Caption = "Cream" Height = 255 Index = 246 Left = 1800 TabIndex = 13 Top = 120 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00F0CAA6& Caption = "Sky Blue" Height = 255 Index = 9 Left = 120 TabIndex = 12 Top = 3360 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00C0DCC0& Caption = "Money Green" Height = 255 Index = 8 Left = 120 TabIndex = 11 Top = 3000 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00C0C0C0& Caption = "Light Gray" Height = 255 Index = 7 Left = 120 TabIndex = 10 Top = 2640 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00808000& Caption = "Dark Cyan" ForeColor = &H00FFFFFF& Height = 255 Index = 6 Left = 120 TabIndex = 9 Top = 2280 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00800080& Caption = "Dark Magenta" ForeColor = &H00FFFFFF& Height = 255 Index = 5 Left = 120 TabIndex = 8 Top = 1920 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00800000& Caption = "Dark Blue" ForeColor = &H00FFFFFF& Height = 255 Index = 4 Left = 120 TabIndex = 7 Top = 1560 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00008080& Caption = "Dark Yellow" ForeColor = &H00FFFFFF& Height = 255 Index = 3 Left = 120 TabIndex = 6 Top = 1200 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00008000& Caption = "Dark Green" ForeColor = &H00FFFFFF& Height = 255 Index = 2 Left = 120 TabIndex = 5 Top = 840 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00000080& Caption = "Dark Red" ForeColor = &H00FFFFFF& Height = 255 Index = 1 Left = 120 TabIndex = 4 Top = 480 Width = 1575 End Begin VB.CheckBox ColorCheck BackColor = &H00000000& Caption = "Black" ForeColor = &H00FFFFFF& Height = 255 Index = 0 Left = 120 TabIndex = 3 Top = 120 Width = 1575 End Begin VB.CommandButton CmdCancel Cancel = -1 'True Caption = "Cancel" Height = 495 Left = 1920 TabIndex = 2 Top = 4320 Width = 855 End Begin VB.CommandButton CmdOk Caption = "Ok" Default = -1 'True Height = 495 Left = 720 TabIndex = 1 Top = 4320 Width = 855 End Begin VB.CommandButton CmdDefault Caption = "Default" Height = 375 Left = 2520 TabIndex = 0 Top = 3720 Width = 855 End Attribute VB_Name = "ColorForm" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Public Canceled As Boolean ' ************************************************ ' Check all colors. ' ************************************************ Private Sub CmdAll_Click() Dim i As Integer For i = 0 To 9 ColorCheck(i).value = vbChecked Next i For i = 246 To 255 ColorCheck(i).value = vbChecked Next i End Sub Private Sub CmdCancel_Click() Me.Hide End Sub ' ************************************************ ' Check default colors. ' ************************************************ Private Sub CmdDefault_Click() ' Start with them all checked. CmdAll_Click ' Uncheck a few. ColorCheck(7).value = vbUnchecked ' Light gray. ColorCheck(8).value = vbUnchecked ' Money green. ColorCheck(247).value = vbUnchecked ' Medium gray. ColorCheck(248).value = vbUnchecked ' Dark gray. End Sub ' ************************************************ ' Uncheck all colors. ' ************************************************ Private Sub CmdNone_Click() Dim i As Integer For i = 0 To 9 ColorCheck(i).value = vbUnchecked Next i For i = 246 To 255 ColorCheck(i).value = vbUnchecked Next i End Sub Private Sub CmdOk_Click() Canceled = False Me.Hide End Sub Private Sub Form_Load() Dim i As Integer ' Assume we will cancel. Canceled = True ' Load the initial color values. For i = 0 To JuliaForm.NumColors - 1 ColorCheck(JuliaForm.OkClr(i)).value = vbChecked Next i End Sub