home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / MultiGradi762724262002.psc / MultiGradient / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2002-04-27  |  56.0 KB  |  1,621 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form Form1 
  5.    AutoRedraw      =   -1  'True
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "  MultiGradient V1.0 - 
  8. 2002 by Stephan Swertvaegher"
  9.    ClientHeight    =   6435
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   7875
  13.    Icon            =   "Form1.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    Moveable        =   0   'False
  18.    ScaleHeight     =   429
  19.    ScaleMode       =   3  'Pixel
  20.    ScaleWidth      =   525
  21.    StartUpPosition =   1  'CenterOwner
  22.    Begin MSComctlLib.Toolbar Toolbar1 
  23.       Height          =   330
  24.       Left            =   135
  25.       TabIndex        =   40
  26.       Top             =   1935
  27.       Width           =   7740
  28.       _ExtentX        =   13653
  29.       _ExtentY        =   582
  30.       ButtonWidth     =   609
  31.       ButtonHeight    =   582
  32.       Style           =   1
  33.       ImageList       =   "ImageList1"
  34.       _Version        =   393216
  35.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  36.          NumButtons      =   23
  37.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  38.             Key             =   "keyNew"
  39.             Object.ToolTipText     =   "Make new gradient (reset)"
  40.             ImageIndex      =   1
  41.          EndProperty
  42.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  43.             Style           =   3
  44.          EndProperty
  45.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Key             =   "keySave"
  47.             Object.ToolTipText     =   "Save gradient"
  48.             ImageIndex      =   2
  49.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  50.                NumButtonMenus  =   1
  51.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  52.                EndProperty
  53.             EndProperty
  54.          EndProperty
  55.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  56.             Key             =   "keyKill"
  57.             Object.ToolTipText     =   "Delete gradient from file"
  58.             ImageIndex      =   6
  59.          EndProperty
  60.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  61.             Key             =   "keyRename"
  62.             Object.ToolTipText     =   "Rename gradient"
  63.             ImageIndex      =   7
  64.          EndProperty
  65.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  66.             Style           =   3
  67.          EndProperty
  68.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Key             =   "keyVB"
  70.             Object.ToolTipText     =   "Copy code"
  71.             ImageIndex      =   3
  72.          EndProperty
  73.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.             Style           =   3
  75.          EndProperty
  76.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  77.             Key             =   "keyShift"
  78.             Object.ToolTipText     =   "Shift colors"
  79.             ImageIndex      =   4
  80.          EndProperty
  81.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  82.             Key             =   "keyReverse"
  83.             Object.ToolTipText     =   "Reverse colors"
  84.             ImageIndex      =   8
  85.          EndProperty
  86.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  87.             Key             =   "keyNeg"
  88.             Object.ToolTipText     =   "Negative colors"
  89.             ImageIndex      =   9
  90.          EndProperty
  91.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  92.             Style           =   3
  93.          EndProperty
  94.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  95.             Key             =   "keyRed"
  96.             Object.ToolTipText     =   "Manipulate red component"
  97.             ImageIndex      =   13
  98.             Style           =   5
  99.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  100.                NumButtonMenus  =   3
  101.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  102.                   Key             =   "keyKillRed"
  103.                   Text            =   "Kill Red"
  104.                EndProperty
  105.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  106.                   Key             =   "keyHalfRed"
  107.                   Text            =   "Half Red"
  108.                EndProperty
  109.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  110.                   Key             =   "keyDoubleRed"
  111.                   Text            =   "Double Red"
  112.                EndProperty
  113.             EndProperty
  114.          EndProperty
  115.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  116.             Key             =   "keyGreen"
  117.             Object.ToolTipText     =   "Manipulate green component"
  118.             ImageIndex      =   14
  119.             Style           =   5
  120.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  121.                NumButtonMenus  =   3
  122.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  123.                   Key             =   "keyKillGreen"
  124.                   Text            =   "Kill Green"
  125.                EndProperty
  126.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  127.                   Key             =   "keyHalfGreen"
  128.                   Text            =   "Half Green"
  129.                EndProperty
  130.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  131.                   Key             =   "keyDoubleGreen"
  132.                   Text            =   "Double Green"
  133.                EndProperty
  134.             EndProperty
  135.          EndProperty
  136.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  137.             Key             =   "keyBlue"
  138.             Object.ToolTipText     =   "Manipulate blue component"
  139.             ImageIndex      =   15
  140.             Style           =   5
  141.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  142.                NumButtonMenus  =   3
  143.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  144.                   Key             =   "keyKillBlue"
  145.                   Text            =   "Kill Blue"
  146.                EndProperty
  147.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  148.                   Key             =   "keyHalfBlue"
  149.                   Text            =   "Half Blue"
  150.                EndProperty
  151.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  152.                   Key             =   "keyDoubleBlue"
  153.                   Text            =   "Double Blue"
  154.                EndProperty
  155.             EndProperty
  156.          EndProperty
  157.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  158.             Key             =   "keyRGB"
  159.             Object.ToolTipText     =   "Manipulate RGB"
  160.             ImageIndex      =   16
  161.             Style           =   5
  162.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  163.                NumButtonMenus  =   5
  164.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  165.                   Key             =   "keyRGBRBG"
  166.                   Text            =   "RGB ---> RBG"
  167.                EndProperty
  168.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  169.                   Key             =   "keyRGBGBR"
  170.                   Text            =   "RGB ---> GBR"
  171.                EndProperty
  172.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  173.                   Key             =   "keyRGBGRB"
  174.                   Text            =   "RGB ---> GRB"
  175.                EndProperty
  176.                BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  177.                   Key             =   "keyRGBBGR"
  178.                   Text            =   "RGB ---> BGR"
  179.                EndProperty
  180.                BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  181.                   Key             =   "keyRGBBRG"
  182.                   Text            =   "RGB ---> BRG"
  183.                EndProperty
  184.             EndProperty
  185.          EndProperty
  186.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  187.             Style           =   3
  188.          EndProperty
  189.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  190.             Key             =   "keySelect"
  191.             Object.ToolTipText     =   "Select all colors"
  192.             ImageIndex      =   10
  193.          EndProperty
  194.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  195.             Key             =   "keyDeselect"
  196.             Object.ToolTipText     =   "Deselect all colors"
  197.             ImageIndex      =   11
  198.          EndProperty
  199.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  200.             Style           =   3
  201.          EndProperty
  202.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  203.             Key             =   "keyFull"
  204.             Object.ToolTipText     =   "View gradient"
  205.             ImageIndex      =   12
  206.          EndProperty
  207.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  208.             Style           =   3
  209.          EndProperty
  210.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  211.             Key             =   "keyHelp"
  212.             Object.ToolTipText     =   "Show help"
  213.             ImageIndex      =   5
  214.          EndProperty
  215.       EndProperty
  216.    End
  217.    Begin MSComctlLib.ImageList ImageList1 
  218.       Left            =   810
  219.       Top             =   495
  220.       _ExtentX        =   1005
  221.       _ExtentY        =   1005
  222.       BackColor       =   -2147483643
  223.       ImageWidth      =   16
  224.       ImageHeight     =   16
  225.       MaskColor       =   12632256
  226.       _Version        =   393216
  227.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  228.          NumListImages   =   16
  229.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.             Picture         =   "Form1.frx":030A
  231.             Key             =   ""
  232.          EndProperty
  233.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.             Picture         =   "Form1.frx":0466
  235.             Key             =   ""
  236.          EndProperty
  237.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.             Picture         =   "Form1.frx":05C2
  239.             Key             =   ""
  240.          EndProperty
  241.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.             Picture         =   "Form1.frx":0A16
  243.             Key             =   ""
  244.          EndProperty
  245.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.             Picture         =   "Form1.frx":0B72
  247.             Key             =   ""
  248.          EndProperty
  249.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.             Picture         =   "Form1.frx":0CCE
  251.             Key             =   ""
  252.          EndProperty
  253.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.             Picture         =   "Form1.frx":0E2A
  255.             Key             =   ""
  256.          EndProperty
  257.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.             Picture         =   "Form1.frx":1C7E
  259.             Key             =   ""
  260.          EndProperty
  261.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.             Picture         =   "Form1.frx":1DDA
  263.             Key             =   ""
  264.          EndProperty
  265.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.             Picture         =   "Form1.frx":1F36
  267.             Key             =   ""
  268.          EndProperty
  269.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.             Picture         =   "Form1.frx":2092
  271.             Key             =   ""
  272.          EndProperty
  273.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.             Picture         =   "Form1.frx":21EE
  275.             Key             =   ""
  276.          EndProperty
  277.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.             Picture         =   "Form1.frx":234A
  279.             Key             =   ""
  280.          EndProperty
  281.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.             Picture         =   "Form1.frx":24A6
  283.             Key             =   ""
  284.          EndProperty
  285.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.             Picture         =   "Form1.frx":2602
  287.             Key             =   ""
  288.          EndProperty
  289.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.             Picture         =   "Form1.frx":275E
  291.             Key             =   ""
  292.          EndProperty
  293.       EndProperty
  294.    End
  295.    Begin VB.Frame Frame2 
  296.       Caption         =   "Gradients"
  297.       BeginProperty Font 
  298.          Name            =   "MS Sans Serif"
  299.          Size            =   9.75
  300.          Charset         =   0
  301.          Weight          =   700
  302.          Underline       =   0   'False
  303.          Italic          =   0   'False
  304.          Strikethrough   =   0   'False
  305.       EndProperty
  306.       ForeColor       =   &H000000C0&
  307.       Height          =   3345
  308.       Left            =   4140
  309.       TabIndex        =   38
  310.       Top             =   2520
  311.       Width           =   3660
  312.       Begin VB.FileListBox File1 
  313.          BackColor       =   &H00E0E0E0&
  314.          BeginProperty Font 
  315.             Name            =   "MS Sans Serif"
  316.             Size            =   8.25
  317.             Charset         =   0
  318.             Weight          =   700
  319.             Underline       =   0   'False
  320.             Italic          =   0   'False
  321.             Strikethrough   =   0   'False
  322.          EndProperty
  323.          ForeColor       =   &H00C00000&
  324.          Height          =   3015
  325.          Left            =   225
  326.          Pattern         =   "*.mgr"
  327.          TabIndex        =   39
  328.          Top             =   270
  329.          Width           =   3210
  330.       End
  331.    End
  332.    Begin VB.Frame Frame1 
  333.       Caption         =   "Pointer Info"
  334.       BeginProperty Font 
  335.          Name            =   "MS Sans Serif"
  336.          Size            =   9.75
  337.          Charset         =   0
  338.          Weight          =   700
  339.          Underline       =   0   'False
  340.          Italic          =   0   'False
  341.          Strikethrough   =   0   'False
  342.       EndProperty
  343.       ForeColor       =   &H000000C0&
  344.       Height          =   3345
  345.       Left            =   135
  346.       TabIndex        =   4
  347.       Top             =   2520
  348.       Width           =   3975
  349.       Begin VB.CheckBox Check1 
  350.          Caption         =   "Fix"
  351.          BeginProperty Font 
  352.             Name            =   "MS Sans Serif"
  353.             Size            =   8.25
  354.             Charset         =   0
  355.             Weight          =   700
  356.             Underline       =   0   'False
  357.             Italic          =   0   'False
  358.             Strikethrough   =   0   'False
  359.          EndProperty
  360.          ForeColor       =   &H000000C0&
  361.          Height          =   195
  362.          Index           =   9
  363.          Left            =   3240
  364.          TabIndex        =   53
  365.          Top             =   3060
  366.          Value           =   1  'Checked
  367.          Width           =   645
  368.       End
  369.       Begin VB.CheckBox Check1 
  370.          Caption         =   "Check1"
  371.          Height          =   195
  372.          Index           =   8
  373.          Left            =   3240
  374.          TabIndex        =   52
  375.          Top             =   2790
  376.          Value           =   1  'Checked
  377.          Width           =   195
  378.       End
  379.       Begin VB.CheckBox Check1 
  380.          Caption         =   "Check1"
  381.          Height          =   195
  382.          Index           =   7
  383.          Left            =   3240
  384.          TabIndex        =   51
  385.          Top             =   2520
  386.          Value           =   1  'Checked
  387.          Width           =   195
  388.       End
  389.       Begin VB.CheckBox Check1 
  390.          Caption         =   "Check1"
  391.          Height          =   195
  392.          Index           =   6
  393.          Left            =   3240
  394.          TabIndex        =   50
  395.          Top             =   2250
  396.          Value           =   1  'Checked
  397.          Width           =   195
  398.       End
  399.       Begin VB.CheckBox Check1 
  400.          Caption         =   "Check1"
  401.          Height          =   195
  402.          Index           =   5
  403.          Left            =   3240
  404.          TabIndex        =   49
  405.          Top             =   1980
  406.          Value           =   1  'Checked
  407.          Width           =   195
  408.       End
  409.       Begin VB.CheckBox Check1 
  410.          Caption         =   "Check1"
  411.          Height          =   195
  412.          Index           =   4
  413.          Left            =   3240
  414.          TabIndex        =   48
  415.          Top             =   1710
  416.          Value           =   1  'Checked
  417.          Width           =   195
  418.       End
  419.       Begin VB.CheckBox Check1 
  420.          Caption         =   "Check1"
  421.          Height          =   195
  422.          Index           =   3
  423.          Left            =   3240
  424.          TabIndex        =   47
  425.          Top             =   1440
  426.          Value           =   1  'Checked
  427.          Width           =   195
  428.       End
  429.       Begin VB.CheckBox Check1 
  430.          Caption         =   "Check1"
  431.          Height          =   195
  432.          Index           =   2
  433.          Left            =   3240
  434.          TabIndex        =   46
  435.          Top             =   1170
  436.          Value           =   1  'Checked
  437.          Width           =   195
  438.       End
  439.       Begin VB.CheckBox Check1 
  440.          Caption         =   "Check1"
  441.          Height          =   195
  442.          Index           =   1
  443.          Left            =   3240
  444.          TabIndex        =   45
  445.          Top             =   900
  446.          Value           =   1  'Checked
  447.          Width           =   195
  448.       End
  449.       Begin VB.CheckBox Check1 
  450.          Caption         =   "Fix"
  451.          BeginProperty Font 
  452.             Name            =   "MS Sans Serif"
  453.             Size            =   8.25
  454.             Charset         =   0
  455.             Weight          =   700
  456.             Underline       =   0   'False
  457.             Italic          =   0   'False
  458.             Strikethrough   =   0   'False
  459.          EndProperty
  460.          ForeColor       =   &H000000C0&
  461.          Height          =   195
  462.          Index           =   0
  463.          Left            =   3240
  464.          TabIndex        =   44
  465.          Top             =   630
  466.          Value           =   1  'Checked
  467.          Width           =   645
  468.       End
  469.       Begin VB.Label Label1 
  470.          Alignment       =   2  'Center
  471.          Caption         =   "Enabled"
  472.          BeginProperty Font 
  473.             Name            =   "MS Sans Serif"
  474.             Size            =   8.25
  475.             Charset         =   0
  476.             Weight          =   700
  477.             Underline       =   0   'False
  478.             Italic          =   0   'False
  479.             Strikethrough   =   0   'False
  480.          EndProperty
  481.          ForeColor       =   &H00C00000&
  482.          Height          =   240
  483.          Index           =   3
  484.          Left            =   3015
  485.          TabIndex        =   43
  486.          Top             =   315
  487.          Width           =   690
  488.       End
  489.       Begin VB.Image Image1 
  490.          Height          =   240
  491.          Left            =   90
  492.          Picture         =   "Form1.frx":28BA
  493.          Top             =   585
  494.          Width           =   240
  495.       End
  496.       Begin VB.Label Label1 
  497.          Alignment       =   2  'Center
  498.          Caption         =   "Slider"
  499.          BeginProperty Font 
  500.             Name            =   "MS Sans Serif"
  501.             Size            =   8.25
  502.             Charset         =   0
  503.             Weight          =   700
  504.             Underline       =   0   'False
  505.             Italic          =   0   'False
  506.             Strikethrough   =   0   'False
  507.          EndProperty
  508.          ForeColor       =   &H00C00000&
  509.          Height          =   240
  510.          Index           =   0
  511.          Left            =   360
  512.          TabIndex        =   37
  513.          Top             =   315
  514.          Width           =   600
  515.       End
  516.       Begin VB.Label Label1 
  517.          Alignment       =   2  'Center
  518.          Caption         =   "Backcolor"
  519.          BeginProperty Font 
  520.             Name            =   "MS Sans Serif"
  521.             Size            =   8.25
  522.             Charset         =   0
  523.             Weight          =   700
  524.             Underline       =   0   'False
  525.             Italic          =   0   'False
  526.             Strikethrough   =   0   'False
  527.          EndProperty
  528.          ForeColor       =   &H00C00000&
  529.          Height          =   240
  530.          Index           =   1
  531.          Left            =   1080
  532.          TabIndex        =   36
  533.          Top             =   315
  534.          Width           =   1005
  535.       End
  536.       Begin VB.Label Label1 
  537.          Alignment       =   2  'Center
  538.          Caption         =   "Position"
  539.          BeginProperty Font 
  540.             Name            =   "MS Sans Serif"
  541.             Size            =   8.25
  542.             Charset         =   0
  543.             Weight          =   700
  544.             Underline       =   0   'False
  545.             Italic          =   0   'False
  546.             Strikethrough   =   0   'False
  547.          EndProperty
  548.          ForeColor       =   &H00C00000&
  549.          Height          =   240
  550.          Index           =   2
  551.          Left            =   2205
  552.          TabIndex        =   35
  553.          Top             =   315
  554.          Width           =   690
  555.       End
  556.       Begin VB.Label Label2 
  557.          Alignment       =   2  'Center
  558.          BorderStyle     =   1  'Fixed Single
  559.          Caption         =   "0"
  560.          BeginProperty Font 
  561.             Name            =   "MS Sans Serif"
  562.             Size            =   8.25
  563.             Charset         =   0
  564.             Weight          =   700
  565.             Underline       =   0   'False
  566.             Italic          =   0   'False
  567.             Strikethrough   =   0   'False
  568.          EndProperty
  569.          ForeColor       =   &H00C00000&
  570.          Height          =   240
  571.          Index           =   0
  572.          Left            =   405
  573.          TabIndex        =   34
  574.          Top             =   585
  575.          Width           =   465
  576.       End
  577.       Begin VB.Label Label3 
  578.          BackColor       =   &H00000000&
  579.          BorderStyle     =   1  'Fixed Single
  580.          Height          =   240
  581.          Index           =   0
  582.          Left            =   1275
  583.          TabIndex        =   33
  584.          Top             =   585
  585.          Width           =   555
  586.       End
  587.       Begin VB.Label Label4 
  588.          Alignment       =   2  'Center
  589.          BackColor       =   &H00808080&
  590.          BorderStyle     =   1  'Fixed Single
  591.          Caption         =   "000"
  592.          BeginProperty Font 
  593.             Name            =   "MS Sans Serif"
  594.             Size            =   8.25
  595.             Charset         =   0
  596.             Weight          =   700
  597.             Underline       =   0   'False
  598.             Italic          =   0   'False
  599.             Strikethrough   =   0   'False
  600.          EndProperty
  601.          ForeColor       =   &H00FFFF00&
  602.          Height          =   240
  603.          Index           =   0
  604.          Left            =   2160
  605.          TabIndex        =   32
  606.          Top             =   585
  607.          Width           =   780
  608.       End
  609.       Begin VB.Label Label4 
  610.          Alignment       =   2  'Center
  611.          BorderStyle     =   1  'Fixed Single
  612.          Caption         =   "000"
  613.          BeginProperty Font 
  614.             Name            =   "MS Sans Serif"
  615.             Size            =   8.25
  616.             Charset         =   0
  617.             Weight          =   700
  618.             Underline       =   0   'False
  619.             Italic          =   0   'False
  620.             Strikethrough   =   0   'False
  621.          EndProperty
  622.          ForeColor       =   &H00C00000&
  623.          Height          =   240
  624.          Index           =   1
  625.          Left            =   2160
  626.          TabIndex        =   31
  627.          Top             =   855
  628.          Width           =   780
  629.       End
  630.       Begin VB.Label Label3 
  631.          BorderStyle     =   1  'Fixed Single
  632.          Height          =   240
  633.          Index           =   1
  634.          Left            =   1275
  635.          TabIndex        =   30
  636.          Top             =   855
  637.          Width           =   555
  638.       End
  639.       Begin VB.Label Label2 
  640.          Alignment       =   2  'Center
  641.          BorderStyle     =   1  'Fixed Single
  642.          Caption         =   "1"
  643.          BeginProperty Font 
  644.             Name            =   "MS Sans Serif"
  645.             Size            =   8.25
  646.             Charset         =   0
  647.             Weight          =   700
  648.             Underline       =   0   'False
  649.             Italic          =   0   'False
  650.             Strikethrough   =   0   'False
  651.          EndProperty
  652.          ForeColor       =   &H00C00000&
  653.          Height          =   240
  654.          Index           =   1
  655.          Left            =   405
  656.          TabIndex        =   29
  657.          Top             =   855
  658.          Width           =   465
  659.       End
  660.       Begin VB.Label Label4 
  661.          Alignment       =   2  'Center
  662.          BorderStyle     =   1  'Fixed Single
  663.          Caption         =   "000"
  664.          BeginProperty Font 
  665.             Name            =   "MS Sans Serif"
  666.             Size            =   8.25
  667.             Charset         =   0
  668.             Weight          =   700
  669.             Underline       =   0   'False
  670.             Italic          =   0   'False
  671.             Strikethrough   =   0   'False
  672.          EndProperty
  673.          ForeColor       =   &H00C00000&
  674.          Height          =   240
  675.          Index           =   2
  676.          Left            =   2160
  677.          TabIndex        =   28
  678.          Top             =   1125
  679.          Width           =   780
  680.       End
  681.       Begin VB.Label Label3 
  682.          BorderStyle     =   1  'Fixed Single
  683.          Height          =   240
  684.          Index           =   2
  685.          Left            =   1275
  686.          TabIndex        =   27
  687.          Top             =   1125
  688.          Width           =   555
  689.       End
  690.       Begin VB.Label Label2 
  691.          Alignment       =   2  'Center
  692.          BorderStyle     =   1  'Fixed Single
  693.          Caption         =   "2"
  694.          BeginProperty Font 
  695.             Name            =   "MS Sans Serif"
  696.             Size            =   8.25
  697.             Charset         =   0
  698.             Weight          =   700
  699.             Underline       =   0   'False
  700.             Italic          =   0   'False
  701.             Strikethrough   =   0   'False
  702.          EndProperty
  703.          ForeColor       =   &H00C00000&
  704.          Height          =   240
  705.          Index           =   2
  706.          Left            =   405
  707.          TabIndex        =   26
  708.          Top             =   1125
  709.          Width           =   465
  710.       End
  711.       Begin VB.Label Label4 
  712.          Alignment       =   2  'Center
  713.          BorderStyle     =   1  'Fixed Single
  714.          Caption         =   "000"
  715.          BeginProperty Font 
  716.             Name            =   "MS Sans Serif"
  717.             Size            =   8.25
  718.             Charset         =   0
  719.             Weight          =   700
  720.             Underline       =   0   'False
  721.             Italic          =   0   'False
  722.             Strikethrough   =   0   'False
  723.          EndProperty
  724.          ForeColor       =   &H00C00000&
  725.          Height          =   240
  726.          Index           =   3
  727.          Left            =   2160
  728.          TabIndex        =   25
  729.          Top             =   1395
  730.          Width           =   780
  731.       End
  732.       Begin VB.Label Label3 
  733.          BorderStyle     =   1  'Fixed Single
  734.          Height          =   240
  735.          Index           =   3
  736.          Left            =   1275
  737.          TabIndex        =   24
  738.          Top             =   1395
  739.          Width           =   555
  740.       End
  741.       Begin VB.Label Label2 
  742.          Alignment       =   2  'Center
  743.          BorderStyle     =   1  'Fixed Single
  744.          Caption         =   "3"
  745.          BeginProperty Font 
  746.             Name            =   "MS Sans Serif"
  747.             Size            =   8.25
  748.             Charset         =   0
  749.             Weight          =   700
  750.             Underline       =   0   'False
  751.             Italic          =   0   'False
  752.             Strikethrough   =   0   'False
  753.          EndProperty
  754.          ForeColor       =   &H00C00000&
  755.          Height          =   240
  756.          Index           =   3
  757.          Left            =   405
  758.          TabIndex        =   23
  759.          Top             =   1395
  760.          Width           =   465
  761.       End
  762.       Begin VB.Label Label4 
  763.          Alignment       =   2  'Center
  764.          BorderStyle     =   1  'Fixed Single
  765.          Caption         =   "000"
  766.          BeginProperty Font 
  767.             Name            =   "MS Sans Serif"
  768.             Size            =   8.25
  769.             Charset         =   0
  770.             Weight          =   700
  771.             Underline       =   0   'False
  772.             Italic          =   0   'False
  773.             Strikethrough   =   0   'False
  774.          EndProperty
  775.          ForeColor       =   &H00C00000&
  776.          Height          =   240
  777.          Index           =   4
  778.          Left            =   2160
  779.          TabIndex        =   22
  780.          Top             =   1665
  781.          Width           =   780
  782.       End
  783.       Begin VB.Label Label3 
  784.          BorderStyle     =   1  'Fixed Single
  785.          Height          =   240
  786.          Index           =   4
  787.          Left            =   1275
  788.          TabIndex        =   21
  789.          Top             =   1665
  790.          Width           =   555
  791.       End
  792.       Begin VB.Label Label2 
  793.          Alignment       =   2  'Center
  794.          BorderStyle     =   1  'Fixed Single
  795.          Caption         =   "4"
  796.          BeginProperty Font 
  797.             Name            =   "MS Sans Serif"
  798.             Size            =   8.25
  799.             Charset         =   0
  800.             Weight          =   700
  801.             Underline       =   0   'False
  802.             Italic          =   0   'False
  803.             Strikethrough   =   0   'False
  804.          EndProperty
  805.          ForeColor       =   &H00C00000&
  806.          Height          =   240
  807.          Index           =   4
  808.          Left            =   405
  809.          TabIndex        =   20
  810.          Top             =   1665
  811.          Width           =   465
  812.       End
  813.       Begin VB.Label Label4 
  814.          Alignment       =   2  'Center
  815.          BorderStyle     =   1  'Fixed Single
  816.          Caption         =   "000"
  817.          BeginProperty Font 
  818.             Name            =   "MS Sans Serif"
  819.             Size            =   8.25
  820.             Charset         =   0
  821.             Weight          =   700
  822.             Underline       =   0   'False
  823.             Italic          =   0   'False
  824.             Strikethrough   =   0   'False
  825.          EndProperty
  826.          ForeColor       =   &H00C00000&
  827.          Height          =   240
  828.          Index           =   5
  829.          Left            =   2160
  830.          TabIndex        =   19
  831.          Top             =   1935
  832.          Width           =   780
  833.       End
  834.       Begin VB.Label Label3 
  835.          BorderStyle     =   1  'Fixed Single
  836.          Height          =   240
  837.          Index           =   5
  838.          Left            =   1275
  839.          TabIndex        =   18
  840.          Top             =   1935
  841.          Width           =   555
  842.       End
  843.       Begin VB.Label Label2 
  844.          Alignment       =   2  'Center
  845.          BorderStyle     =   1  'Fixed Single
  846.          Caption         =   "5"
  847.          BeginProperty Font 
  848.             Name            =   "MS Sans Serif"
  849.             Size            =   8.25
  850.             Charset         =   0
  851.             Weight          =   700
  852.             Underline       =   0   'False
  853.             Italic          =   0   'False
  854.             Strikethrough   =   0   'False
  855.          EndProperty
  856.          ForeColor       =   &H00C00000&
  857.          Height          =   240
  858.          Index           =   5
  859.          Left            =   405
  860.          TabIndex        =   17
  861.          Top             =   1935
  862.          Width           =   465
  863.       End
  864.       Begin VB.Label Label4 
  865.          Alignment       =   2  'Center
  866.          BorderStyle     =   1  'Fixed Single
  867.          Caption         =   "000"
  868.          BeginProperty Font 
  869.             Name            =   "MS Sans Serif"
  870.             Size            =   8.25
  871.             Charset         =   0
  872.             Weight          =   700
  873.             Underline       =   0   'False
  874.             Italic          =   0   'False
  875.             Strikethrough   =   0   'False
  876.          EndProperty
  877.          ForeColor       =   &H00C00000&
  878.          Height          =   240
  879.          Index           =   6
  880.          Left            =   2160
  881.          TabIndex        =   16
  882.          Top             =   2205
  883.          Width           =   780
  884.       End
  885.       Begin VB.Label Label3 
  886.          BorderStyle     =   1  'Fixed Single
  887.          Height          =   240
  888.          Index           =   6
  889.          Left            =   1275
  890.          TabIndex        =   15
  891.          Top             =   2205
  892.          Width           =   555
  893.       End
  894.       Begin VB.Label Label2 
  895.          Alignment       =   2  'Center
  896.          BorderStyle     =   1  'Fixed Single
  897.          Caption         =   "6"
  898.          BeginProperty Font 
  899.             Name            =   "MS Sans Serif"
  900.             Size            =   8.25
  901.             Charset         =   0
  902.             Weight          =   700
  903.             Underline       =   0   'False
  904.             Italic          =   0   'False
  905.             Strikethrough   =   0   'False
  906.          EndProperty
  907.          ForeColor       =   &H00C00000&
  908.          Height          =   240
  909.          Index           =   6
  910.          Left            =   405
  911.          TabIndex        =   14
  912.          Top             =   2205
  913.          Width           =   465
  914.       End
  915.       Begin VB.Label Label4 
  916.          Alignment       =   2  'Center
  917.          BorderStyle     =   1  'Fixed Single
  918.          Caption         =   "000"
  919.          BeginProperty Font 
  920.             Name            =   "MS Sans Serif"
  921.             Size            =   8.25
  922.             Charset         =   0
  923.             Weight          =   700
  924.             Underline       =   0   'False
  925.             Italic          =   0   'False
  926.             Strikethrough   =   0   'False
  927.          EndProperty
  928.          ForeColor       =   &H00C00000&
  929.          Height          =   240
  930.          Index           =   7
  931.          Left            =   2160
  932.          TabIndex        =   13
  933.          Top             =   2475
  934.          Width           =   780
  935.       End
  936.       Begin VB.Label Label3 
  937.          BorderStyle     =   1  'Fixed Single
  938.          Height          =   240
  939.          Index           =   7
  940.          Left            =   1275
  941.          TabIndex        =   12
  942.          Top             =   2475
  943.          Width           =   555
  944.       End
  945.       Begin VB.Label Label2 
  946.          Alignment       =   2  'Center
  947.          BorderStyle     =   1  'Fixed Single
  948.          Caption         =   "7"
  949.          BeginProperty Font 
  950.             Name            =   "MS Sans Serif"
  951.             Size            =   8.25
  952.             Charset         =   0
  953.             Weight          =   700
  954.             Underline       =   0   'False
  955.             Italic          =   0   'False
  956.             Strikethrough   =   0   'False
  957.          EndProperty
  958.          ForeColor       =   &H00C00000&
  959.          Height          =   240
  960.          Index           =   7
  961.          Left            =   405
  962.          TabIndex        =   11
  963.          Top             =   2475
  964.          Width           =   465
  965.       End
  966.       Begin VB.Label Label4 
  967.          Alignment       =   2  'Center
  968.          BorderStyle     =   1  'Fixed Single
  969.          Caption         =   "000"
  970.          BeginProperty Font 
  971.             Name            =   "MS Sans Serif"
  972.             Size            =   8.25
  973.             Charset         =   0
  974.             Weight          =   700
  975.             Underline       =   0   'False
  976.             Italic          =   0   'False
  977.             Strikethrough   =   0   'False
  978.          EndProperty
  979.          ForeColor       =   &H00C00000&
  980.          Height          =   240
  981.          Index           =   8
  982.          Left            =   2160
  983.          TabIndex        =   10
  984.          Top             =   2745
  985.          Width           =   780
  986.       End
  987.       Begin VB.Label Label3 
  988.          BorderStyle     =   1  'Fixed Single
  989.          Height          =   240
  990.          Index           =   8
  991.          Left            =   1275
  992.          TabIndex        =   9
  993.          Top             =   2745
  994.          Width           =   555
  995.       End
  996.       Begin VB.Label Label2 
  997.          Alignment       =   2  'Center
  998.          BorderStyle     =   1  'Fixed Single
  999.          Caption         =   "8"
  1000.          BeginProperty Font 
  1001.             Name            =   "MS Sans Serif"
  1002.             Size            =   8.25
  1003.             Charset         =   0
  1004.             Weight          =   700
  1005.             Underline       =   0   'False
  1006.             Italic          =   0   'False
  1007.             Strikethrough   =   0   'False
  1008.          EndProperty
  1009.          ForeColor       =   &H00C00000&
  1010.          Height          =   240
  1011.          Index           =   8
  1012.          Left            =   405
  1013.          TabIndex        =   8
  1014.          Top             =   2745
  1015.          Width           =   465
  1016.       End
  1017.       Begin VB.Label Label4 
  1018.          Alignment       =   2  'Center
  1019.          BackColor       =   &H00808080&
  1020.          BorderStyle     =   1  'Fixed Single
  1021.          Caption         =   "000"
  1022.          BeginProperty Font 
  1023.             Name            =   "MS Sans Serif"
  1024.             Size            =   8.25
  1025.             Charset         =   0
  1026.             Weight          =   700
  1027.             Underline       =   0   'False
  1028.             Italic          =   0   'False
  1029.             Strikethrough   =   0   'False
  1030.          EndProperty
  1031.          ForeColor       =   &H00FFFF00&
  1032.          Height          =   240
  1033.          Index           =   9
  1034.          Left            =   2160
  1035.          TabIndex        =   7
  1036.          Top             =   3015
  1037.          Width           =   780
  1038.       End
  1039.       Begin VB.Label Label3 
  1040.          BorderStyle     =   1  'Fixed Single
  1041.          Height          =   240
  1042.          Index           =   9
  1043.          Left            =   1275
  1044.          TabIndex        =   6
  1045.          Top             =   3015
  1046.          Width           =   555
  1047.       End
  1048.       Begin VB.Label Label2 
  1049.          Alignment       =   2  'Center
  1050.          BorderStyle     =   1  'Fixed Single
  1051.          Caption         =   "9"
  1052.          BeginProperty Font 
  1053.             Name            =   "MS Sans Serif"
  1054.             Size            =   8.25
  1055.             Charset         =   0
  1056.             Weight          =   700
  1057.             Underline       =   0   'False
  1058.             Italic          =   0   'False
  1059.             Strikethrough   =   0   'False
  1060.          EndProperty
  1061.          ForeColor       =   &H00C00000&
  1062.          Height          =   240
  1063.          Index           =   9
  1064.          Left            =   405
  1065.          TabIndex        =   5
  1066.          Top             =   3015
  1067.          Width           =   465
  1068.       End
  1069.    End
  1070.    Begin VB.PictureBox Pic3 
  1071.       AutoRedraw      =   -1  'True
  1072.       BackColor       =   &H00C0C0C0&
  1073.       BorderStyle     =   0  'None
  1074.       Height          =   150
  1075.       Left            =   180
  1076.       ScaleHeight     =   10
  1077.       ScaleMode       =   3  'Pixel
  1078.       ScaleWidth      =   500
  1079.       TabIndex        =   2
  1080.       ToolTipText     =   "Move the sliders to have different positions of the gradient"
  1081.       Top             =   1530
  1082.       Width           =   7500
  1083.       Begin VB.PictureBox Sli 
  1084.          BackColor       =   &H00000000&
  1085.          BorderStyle     =   0  'None
  1086.          Height          =   150
  1087.          Index           =   0
  1088.          Left            =   0
  1089.          ScaleHeight     =   10
  1090.          ScaleMode       =   3  'Pixel
  1091.          ScaleWidth      =   5
  1092.          TabIndex        =   3
  1093.          Top             =   0
  1094.          Width           =   75
  1095.       End
  1096.    End
  1097.    Begin VB.PictureBox Pic2 
  1098.       AutoRedraw      =   -1  'True
  1099.       BackColor       =   &H00E0E0E0&
  1100.       BorderStyle     =   0  'None
  1101.       Height          =   150
  1102.       Left            =   180
  1103.       ScaleHeight     =   10
  1104.       ScaleMode       =   3  'Pixel
  1105.       ScaleWidth      =   500
  1106.       TabIndex        =   1
  1107.       Top             =   1350
  1108.       Width           =   7500
  1109.    End
  1110.    Begin VB.PictureBox Pic1 
  1111.       AutoRedraw      =   -1  'True
  1112.       BackColor       =   &H00000000&
  1113.       BorderStyle     =   0  'None
  1114.       Height          =   690
  1115.       Left            =   180
  1116.       ScaleHeight     =   46
  1117.       ScaleMode       =   3  'Pixel
  1118.       ScaleWidth      =   500
  1119.       TabIndex        =   0
  1120.       ToolTipText     =   "Gradient"
  1121.       Top             =   540
  1122.       Width           =   7500
  1123.       Begin MSComDlg.CommonDialog CD1 
  1124.          Left            =   1800
  1125.          Top             =   45
  1126.          _ExtentX        =   847
  1127.          _ExtentY        =   847
  1128.          _Version        =   393216
  1129.       End
  1130.    End
  1131.    Begin VB.Label Label7 
  1132.       Caption         =   "Last action:"
  1133.       BeginProperty Font 
  1134.          Name            =   "MS Sans Serif"
  1135.          Size            =   8.25
  1136.          Charset         =   0
  1137.          Weight          =   700
  1138.          Underline       =   0   'False
  1139.          Italic          =   0   'False
  1140.          Strikethrough   =   0   'False
  1141.       EndProperty
  1142.       ForeColor       =   &H00C00000&
  1143.       Height          =   195
  1144.       Left            =   270
  1145.       TabIndex        =   54
  1146.       Top             =   6075
  1147.       Width           =   6495
  1148.    End
  1149.    Begin VB.Label Label6 
  1150.       BackColor       =   &H00E0E0E0&
  1151.       BorderStyle     =   1  'Fixed Single
  1152.       Caption         =   "Label6"
  1153.       BeginProperty Font 
  1154.          Name            =   "MS Sans Serif"
  1155.          Size            =   8.25
  1156.          Charset         =   0
  1157.          Weight          =   700
  1158.          Underline       =   0   'False
  1159.          Italic          =   0   'False
  1160.          Strikethrough   =   0   'False
  1161.       EndProperty
  1162.       ForeColor       =   &H00000080&
  1163.       Height          =   285
  1164.       Left            =   1710
  1165.       TabIndex        =   42
  1166.       Top             =   105
  1167.       Width           =   4740
  1168.    End
  1169.    Begin VB.Label Label5 
  1170.       Caption         =   "Gradient Name:"
  1171.       BeginProperty Font 
  1172.          Name            =   "MS Sans Serif"
  1173.          Size            =   8.25
  1174.          Charset         =   0
  1175.          Weight          =   700
  1176.          Underline       =   0   'False
  1177.          Italic          =   0   'False
  1178.          Strikethrough   =   0   'False
  1179.       EndProperty
  1180.       ForeColor       =   &H00000080&
  1181.       Height          =   240
  1182.       Left            =   225
  1183.       TabIndex        =   41
  1184.       Top             =   135
  1185.       Width           =   1365
  1186.    End
  1187. Attribute VB_Name = "Form1"
  1188. Attribute VB_GlobalNameSpace = False
  1189. Attribute VB_Creatable = False
  1190. Attribute VB_PredeclaredId = True
  1191. Attribute VB_Exposed = False
  1192. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  1193. Private Declare Sub ReleaseCapture Lib "user32" ()
  1194. Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
  1195. Const WM_NCLBUTTONDOWN = &HA1
  1196. Const HTCAPTION = 2
  1197. Dim idx0%, Idx1%
  1198. Private Sub Check1_Click(Index As Integer)
  1199. Image1.Top = Label2(Index).Top + 1
  1200.     If Index = 0 Or Index = 9 Then
  1201.     Check1(0).Value = 1
  1202.     Check1(9).Value = 1
  1203.     Exit Sub
  1204.     End If
  1205. If Check1(Index).Value = 0 Then
  1206. Sli(Index).Visible = False
  1207. Label4(Index) = "***"
  1208. MGPct(Index) = -1
  1209. Sli(Index).Visible = True
  1210. GetNextIndex Index
  1211. MGPos(Index) = (MGPos(idx0) + MGPos(Idx1)) / 2
  1212. MGPct(Index) = (MGPos(Index) + 2) / Pic1.ScaleWidth
  1213. Label4(Index) = Format(MGPct(Index), "0.0000")
  1214. Sli(Index).Left = MGPos(Index) - 2
  1215. End If
  1216. Pic1.Cls
  1217. If LoadFile = False Then MultiGrad2 Pic1
  1218. If Check1(Index).Value = 0 Then
  1219. Label7 = "Last action: Deselect slider " & Index
  1220. Label7 = "Last action: Select slider " & Index
  1221. End If
  1222. If Start = True Then Label7 = "Welcome !"
  1223. End Sub
  1224. Private Sub File1_Click()
  1225. If KillFile = True Then
  1226.     KillFile = False
  1227.     MGFile = File1.List(File1.ListIndex)
  1228.     Temp = MsgBox("Do you want to delete the gradient " & File1.List(File1.ListIndex), vbOKCancel + vbQuestion, MGTitle)
  1229.     If Temp = vbCancel Then Exit Sub
  1230.     Kill File1.Path & "\" & MGFile
  1231.     Label7 = "Last action: Delete file " & MGFile
  1232.     File1.Refresh
  1233.     Exit Sub
  1234. End If
  1235. '-------------------------
  1236. LoadFile = True
  1237. Temp = MsgBox("Load the gradient: " & File1.List(File1.ListIndex), vbYesNo + vbQuestion, MGTitle)
  1238. If Temp = vbNo Then Exit Sub
  1239. On Error GoTo LoadError
  1240.     For xx = 0 To 9
  1241.     Check1(xx).Value = 1
  1242.     Sli(xx).Visible = True
  1243.     Next xx
  1244. ff = FreeFile
  1245. MGFile = File1.List(File1.ListIndex)
  1246. Open File1.Path & "\" & MGFile For Input As #ff
  1247. For xx = 0 To 9
  1248. Input #ff, MGrad(xx)
  1249. Label3(xx).BackColor = MGrad(xx)
  1250. Sli(xx).BackColor = MGrad(xx)
  1251. Input #ff, Mgpct2(xx)
  1252. MGPct(xx) = Mgpct2(xx) / 10000
  1253.     If MGPct(xx) = -1 Then
  1254.     Check1(xx).Value = 0
  1255.     Sli(xx).Visible = False
  1256.     End If
  1257. Next xx
  1258. For xx = 0 To 9
  1259. MGPos(xx) = (MGPct(xx) * Pic1.ScaleWidth) - 2
  1260. Sli(xx).Left = MGPos(xx)
  1261. Label4(xx) = Format(MGPct(xx), "0.0000")
  1262. If MGPct(xx) = -1 Then Label4(xx) = "***"
  1263. Next xx
  1264. Close #ff
  1265. LoadFile = False
  1266. MultiGrad2 Pic1
  1267. Image1.Top = Label2(0).Top + 1
  1268. Label6.Caption = MGFile
  1269. Label7 = "Last action: Load multigradient " & MGFile
  1270. Exit Sub
  1271. LoadError:
  1272. Close #ff
  1273. LoadFile = False
  1274. Image1.Top = Label2(0).Top + 1
  1275. MsgBox "Error " & Err.Number & vbCr & Err.Description, , MGTitle
  1276. End Sub
  1277. Private Sub Form_Activate()
  1278. Start = False
  1279. End Sub
  1280. Private Sub Form_Load()
  1281. MGTitle = "MultiGradient V1.0"
  1282. Start = True
  1283. Label7 = ""
  1284. Image1.Top = Label2(0).Top + 1
  1285. For xx = 0 To 49
  1286. Pic2.Line (xx * 10, 5)-(xx * 10, 10), &HA0
  1287. Next xx
  1288. For xx = 0 To 4
  1289. Pic2.Line (xx * 100, 0)-(xx * 100, 10), &HFF
  1290. Next xx
  1291. For xx = 1 To 9
  1292. Load Sli(xx)
  1293. Sli(xx).Visible = True
  1294. Sli(xx).ToolTipText = "Slider " & xx
  1295. Next xx
  1296. C1 = 200: C2 = 200: C3 = 222
  1297. For xx = 0 To 4
  1298. Pic3.Line (0, xx)-(499, xx), RGB(C1, C2, C3)
  1299. Pic3.Line (0, 9 - xx)-(499, 9 - xx), RGB(C1, C2, C3)
  1300. C1 = C1 - 10
  1301. C2 = C2 - 10
  1302. C3 = C3 - 10
  1303. Next xx
  1304. Form1.Line (0, 3)-(Form1.ScaleWidth, 3), &H808080
  1305. Form1.Line (0, 4)-(Form1.ScaleWidth, 4), &HE0E0E0
  1306. Form1.Line (0, 124)-(Form1.ScaleWidth, 124), &H808080
  1307. Form1.Line (0, 125)-(Form1.ScaleWidth, 125), &HE0E0E0
  1308. Form1.Line (0, 158)-(Form1.ScaleWidth, 158), &H808080
  1309. Form1.Line (0, 159)-(Form1.ScaleWidth, 159), &HE0E0E0
  1310. File1.Path = App.Path & "\Gradients"
  1311. NewGrad
  1312. MultiGrad2 Pic1
  1313. T3D Form1, Label7, 5, T3dRaiseInset
  1314. T3D Form1, Pic1, 5, T3dRaiseInset
  1315. Form1.Show
  1316. Form7.Show 1
  1317. End Sub
  1318. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1319. Cancel = True
  1320. Temp = MsgBox("Do you really want to leave ?", vbYesNo + vbQuestion, MGTitle)
  1321. If Temp = vbNo Then Exit Sub
  1322. End Sub
  1323. Private Sub Label2_Click(Index As Integer)
  1324. Image1.Top = Label2(Index).Top + 1
  1325. Label7 = "Last action: Select slider " & Index
  1326. End Sub
  1327. Private Sub Label3_Click(Index As Integer)
  1328. Image1.Top = Label2(Index).Top + 1
  1329. If Check1(Index).Value = 0 Then Exit Sub
  1330. CD1.Flags = 3
  1331. CD1.Color = Label3(Index).BackColor
  1332. CD1.ShowColor
  1333. Label3(Index).BackColor = CD1.Color
  1334. MGrad(Index) = CD1.Color
  1335. Sli(Index).BackColor = CD1.Color
  1336. Label7 = "Last action: change color of slider " & Index
  1337. Pic1.Cls
  1338. MultiGrad2 Pic1
  1339. End Sub
  1340. Private Sub Label4_Click(Index As Integer)
  1341. Image1.Top = Label2(Index).Top + 1
  1342. Label7 = "Last action: Select slider " & Index
  1343. End Sub
  1344. Private Sub Sli_Click(Index As Integer)
  1345. Image1.Top = Label2(Index).Top + 1
  1346. Label7 = "Last action: Select slider " & Index
  1347. End Sub
  1348. Private Sub Sli_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1349. Image1.Top = Label2(Index).Top + 1
  1350. End Sub
  1351. Private Sub Sli_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1352. If Index = 0 Or Index = 9 Then Exit Sub
  1353.     Dim lngReturnValue As Long
  1354.     If Button = 1 Then
  1355.         Call ReleaseCapture
  1356.         lngReturnValue = SendMessage(Sli(Index).hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  1357. Sli(Index).Top = 0
  1358. GetNextIndex Index
  1359. If Sli(Index).Left <= Sli(idx0).Left + 1 Then Sli(Index).Left = Sli(idx0).Left + 1
  1360. If Sli(Index).Left >= Sli(Idx1).Left - 1 Then Sli(Index).Left = Sli(Idx1).Left - 1
  1361. MGPos(Index) = Sli(Index).Left
  1362. MGPct(Index) = (MGPos(Index) + 2) / Pic1.ScaleWidth
  1363. Label4(Index) = Format(MGPct(Index), "0.0000")
  1364. DoEvents
  1365. Pic1.Cls
  1366. MultiGrad2 Pic1
  1367. Label7 = "Last action: Move slider " & Index
  1368. End If
  1369. End Sub
  1370. Private Sub GetNextIndex(idx%)
  1371.     'get first smaller pointer
  1372.     For qq = idx - 1 To 0 Step -1
  1373.     If Sli(qq).Visible = True Then
  1374.     idx0 = qq
  1375.     GoTo GetSecond
  1376.     Exit For
  1377.     End If
  1378.     Next qq
  1379. GetSecond:
  1380.     'get first bigger pointer
  1381.     For qq = idx + 1 To 9
  1382.     If Sli(qq).Visible = True Then
  1383.     Idx1 = qq
  1384.     GoTo Done
  1385.     End If
  1386.     Next qq
  1387. Done:
  1388. End Sub
  1389. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1390. Select Case Button.Key
  1391. Case "keyNew"
  1392.     Temp = MsgBox("Are you sure to begin a new gradient ?", vbYesNo + vbQuestion, MGTitle)
  1393.     If Temp = vbNo Then Exit Sub
  1394.     NewGrad
  1395.     MultiGrad2 Pic1
  1396.     Label7 = "Last action: Reset gradient (new gradient)"
  1397. Case "keySave"
  1398.     Form2.Show 1
  1399. Case "keyShift"
  1400.     TempCol = MGrad(9)
  1401.     For xx = 9 To 1 Step -1
  1402.     MGrad(xx) = MGrad(xx - 1)
  1403.     Next xx
  1404.     MGrad(0) = TempCol
  1405.     CopyColors
  1406.     Label7 = "Last action: Shift colors"
  1407. Case "keySelect"
  1408.     For xx = 0 To 9
  1409.     Check1(xx).Value = 1
  1410.     Next xx
  1411.     Label7 = "Last action: Select all sliders"
  1412. Case "keyDeselect"
  1413. For xx = 1 To 8
  1414.     Check1(xx).Value = 0
  1415.     Next xx
  1416.     Label7 = "Last action: Deselect all sliders"
  1417. Case "keyReverse"
  1418.     For xx = 0 To 4
  1419.     TempCol = MGrad(xx)
  1420.     MGrad(xx) = MGrad(9 - xx)
  1421.     MGrad(9 - xx) = TempCol
  1422.     Next xx
  1423.     CopyColors
  1424.     Label7 = "Last action: Reverse colors"
  1425. Case "keyNeg"
  1426.     For xx = 0 To 9
  1427.         If MGPct(xx) <> -1 Then
  1428.         R1 = MGrad(xx) Mod 256&
  1429.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1430.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1431.         R1 = R1 Xor 255
  1432.         G1 = G1 Xor 255
  1433.         B1 = B1 Xor 255
  1434.         MGrad(xx) = RGB(R1, G1, B1)
  1435.         End If
  1436.     Next xx
  1437.     CopyColors
  1438.     Label7 = "Last action: Negative colors"
  1439. Case "keyKill"
  1440.     KillFile = True
  1441.     Temp = MsgBox("Select gradient in the list", vbInformation + vbOKCancel, MGTitle)
  1442.         If Temp = vbCancel Then
  1443.         KillFile = False
  1444.         Exit Sub
  1445.         End If
  1446. Case "keyRename"
  1447.     Form3.Show 1
  1448. Case "keyFull"
  1449.     MultiGrad Form4.Pic1, 0, False
  1450.     Form4.Show 1
  1451. Case "keyVB"
  1452.     Form5.Show 1
  1453. Case "keyHelp"
  1454.     Form6.Show 1
  1455. End Select
  1456. End Sub
  1457. Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  1458. Select Case ButtonMenu.Key
  1459. Case "keyKillRed"
  1460.     For xx = 0 To 9
  1461.         If MGPct(xx) <> -1 Then
  1462.         R1 = MGrad(xx) Mod 256&
  1463.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1464.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1465.         R1 = 0
  1466.         MGrad(xx) = RGB(R1, G1, B1)
  1467.         End If
  1468.     Next xx
  1469.     Label7 = "Last action: kill red component"
  1470. Case "keyHalfRed"
  1471.     For xx = 0 To 9
  1472.         If MGPct(xx) <> -1 Then
  1473.         R1 = MGrad(xx) Mod 256&
  1474.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1475.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1476.         R1 = R1 / 2
  1477.         MGrad(xx) = RGB(R1, G1, B1)
  1478.         End If
  1479.     Next xx
  1480.     Label7 = "Last action: half red component"
  1481. Case "keyDoubleRed"
  1482.     For xx = 0 To 9
  1483.         If MGPct(xx) <> -1 Then
  1484.         R1 = MGrad(xx) Mod 256&
  1485.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1486.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1487.         R1 = R1 * 2
  1488.         If R1 > 255 Then R1 = 255
  1489.         MGrad(xx) = RGB(R1, G1, B1)
  1490.         End If
  1491.     Next xx
  1492.     Label7 = "Last action: double red component"
  1493. Case "keyKillGreen"
  1494.     For xx = 0 To 9
  1495.         If MGPct(xx) <> -1 Then
  1496.         R1 = MGrad(xx) Mod 256&
  1497.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1498.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1499.         G1 = 0
  1500.         MGrad(xx) = RGB(R1, G1, B1)
  1501.         End If
  1502.     Next xx
  1503.     Label7 = "Last action: kill green component"
  1504. Case "keyHalfGreen"
  1505.     For xx = 0 To 9
  1506.         If MGPct(xx) <> -1 Then
  1507.         R1 = MGrad(xx) Mod 256&
  1508.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1509.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1510.         G1 = G1 / 2
  1511.         MGrad(xx) = RGB(R1, G1, B1)
  1512.         End If
  1513.     Next xx
  1514.     Label7 = "Last action: half green component"
  1515. Case "keyDoubleGreen"
  1516.     For xx = 0 To 9
  1517.         If MGPct(xx) <> -1 Then
  1518.         R1 = MGrad(xx) Mod 256&
  1519.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1520.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1521.         G1 = G1 * 2
  1522.         If G1 > 255 Then G1 = 255
  1523.         MGrad(xx) = RGB(R1, G1, B1)
  1524.         End If
  1525.     Next xx
  1526.     Label7 = "Last action: double green component"
  1527. Case "keyKillBlue"
  1528.     For xx = 0 To 9
  1529.         If MGPct(xx) <> -1 Then
  1530.         R1 = MGrad(xx) Mod 256&
  1531.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1532.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1533.         B1 = 0
  1534.         MGrad(xx) = RGB(R1, G1, B1)
  1535.         End If
  1536.     Next xx
  1537.     Label7 = "Last action: kill blue component"
  1538. Case "keyHalfBlue"
  1539.     For xx = 0 To 9
  1540.         If MGPct(xx) <> -1 Then
  1541.         R1 = MGrad(xx) Mod 256&
  1542.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1543.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1544.         B1 = B1 / 2
  1545.         MGrad(xx) = RGB(R1, G1, B1)
  1546.         End If
  1547.     Next xx
  1548.     Label7 = "Last action: half blue component"
  1549. Case "keyDoubleBlue"
  1550.     For xx = 0 To 9
  1551.         If MGPct(xx) <> -1 Then
  1552.         R1 = MGrad(xx) Mod 256&
  1553.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1554.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1555.         B1 = B1 * 2
  1556.         If B1 > 255 Then B1 = 255
  1557.         MGrad(xx) = RGB(R1, G1, B1)
  1558.         End If
  1559.     Next xx
  1560.     Label7 = "Last action: double blue component"
  1561. Case "keyRGBRBG"
  1562.     For xx = 0 To 9
  1563.         If MGPct(xx) <> -1 Then
  1564.         R1 = MGrad(xx) Mod 256&
  1565.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1566.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1567.         MGrad(xx) = RGB(R1, B1, G1)
  1568.         End If
  1569.     Next xx
  1570.     Label7 = "Last action: RGB to RBG"
  1571. Case "keyRGBGBR"
  1572.     For xx = 0 To 9
  1573.         If MGPct(xx) <> -1 Then
  1574.         R1 = MGrad(xx) Mod 256&
  1575.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1576.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1577.         MGrad(xx) = RGB(G1, B1, R1)
  1578.         End If
  1579.     Next xx
  1580.     Label7 = "Last action: RGB to GBR"
  1581. Case "keyRGBGRB"
  1582.     For xx = 0 To 9
  1583.         If MGPct(xx) <> -1 Then
  1584.         R1 = MGrad(xx) Mod 256&
  1585.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1586.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1587.         MGrad(xx) = RGB(G1, R1, B1)
  1588.         End If
  1589.     Next xx
  1590.     Label7 = "Last action: RGB to GRB"
  1591. Case "keyRGBBGR"
  1592.     For xx = 0 To 9
  1593.         If MGPct(xx) <> -1 Then
  1594.         R1 = MGrad(xx) Mod 256&
  1595.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1596.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1597.         MGrad(xx) = RGB(B1, G1, R1)
  1598.         End If
  1599.     Next xx
  1600.     Label7 = "Last action: RGB to BGR"
  1601. Case "keyRGBBRG"
  1602.     For xx = 0 To 9
  1603.         If MGPct(xx) <> -1 Then
  1604.         R1 = MGrad(xx) Mod 256&
  1605.         G1 = ((MGrad(xx) And &HFF00) / 256&) Mod 256&
  1606.         B1 = (MGrad(xx) And &HFF0000) / 65536
  1607.         MGrad(xx) = RGB(B1, R1, G1)
  1608.         End If
  1609.     Next xx
  1610.     Label7 = "Last action: RGB to BRG"
  1611. End Select
  1612.     CopyColors
  1613. End Sub
  1614. Private Sub CopyColors()
  1615.     For xx = 0 To 9
  1616.     Label3(xx).BackColor = MGrad(xx)
  1617.     Sli(xx).BackColor = MGrad(xx)
  1618.     Next xx
  1619.     MultiGrad2 Pic1
  1620. End Sub
  1621.