home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / pzdemo.zip / OPTIONS.FRM < prev    next >
Text File  |  1995-09-03  |  39KB  |  1,117 lines
  1. VERSION 2.00
  2. Begin Form BevelOptFrm 
  3.    BackColor       =   &H8000000F&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "3D Bevel Options"
  6.    ClientHeight    =   2430
  7.    ClientLeft      =   4470
  8.    ClientTop       =   3975
  9.    ClientWidth     =   4275
  10.    ControlBox      =   0   'False
  11.    Height          =   2835
  12.    KeyPreview      =   -1  'True
  13.    Left            =   4410
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2430
  18.    ScaleWidth      =   4275
  19.    Top             =   3630
  20.    Width           =   4395
  21.    Begin CommonDialog CD 
  22.       Left            =   2970
  23.       Top             =   2550
  24.    End
  25.    Begin PZPanel BackPan 
  26.       BackColor       =   &H00FF0000&
  27.       GradientColor   =   &H00400000&
  28.       GradientStyle   =   1  'Vertical
  29.       Height          =   2475
  30.       Left            =   0
  31.       TabIndex        =   0
  32.       Top             =   0
  33.       Width           =   4335
  34.       Begin PZLabel PanCmd 
  35.          AutoClick       =   1  'Command
  36.          BackColor       =   &H00C0C0C0&
  37.          BevelInnerWidth =   3
  38.          BevelOuter      =   2  'Raised
  39.          BevelOuterShading=   5  '3D Button
  40.          BorderOuter     =   1  'Solid
  41.          Caption         =   "&Apply"
  42.          CaptionPrefix   =   -1  'True
  43.          CornerSize      =   4
  44.          Font3D          =   2  'Block Right
  45.          FontBold        =   -1  'True
  46.          FontItalic      =   0   'False
  47.          FontName        =   "MS Sans Serif"
  48.          FontSize        =   9.75
  49.          FontStrikethru  =   0   'False
  50.          FontUnderline   =   0   'False
  51.          ForeColor       =   &H00800000&
  52.          GradientColor   =   &H00808080&
  53.          GradientStyle   =   1  'Vertical
  54.          Height          =   405
  55.          Index           =   1
  56.          Left            =   1590
  57.          ShowFocus       =   8
  58.          TabIndex        =   33
  59.          Top             =   1890
  60.          Width           =   1125
  61.       End
  62.       Begin PZLabel ColorOpt 
  63.          Alignment       =   1  'Left Justify - MIDDLE
  64.          BackColor       =   &H00C0C0C0&
  65.          BevelOuter      =   1  'Inset
  66.          BevelOuterWidth =   1
  67.          Caption         =   "Set Color..."
  68.          CaptionMargin   =   25
  69.          DirectDraw      =   0   'False
  70.          Font3D          =   2  'Block Right
  71.          FontBold        =   -1  'True
  72.          FontItalic      =   0   'False
  73.          FontName        =   "MS Sans Serif"
  74.          FontSize        =   9.75
  75.          FontStrikethru  =   0   'False
  76.          FontUnderline   =   0   'False
  77.          ForeColor       =   &H00800000&
  78.          Height          =   315
  79.          IconLeft        =   -4
  80.          IconTop         =   -6
  81.          Index           =   7
  82.          Left            =   2220
  83.          TabIndex        =   32
  84.          Top             =   1110
  85.          Width           =   1905
  86.       End
  87.       Begin PZLabel ColorOpt 
  88.          Alignment       =   1  'Left Justify - MIDDLE
  89.          BackColor       =   &H00C0C0C0&
  90.          BevelOuter      =   1  'Inset
  91.          BevelOuterWidth =   1
  92.          Caption         =   "Faded"
  93.          CaptionMargin   =   25
  94.          DirectDraw      =   0   'False
  95.          Font3D          =   2  'Block Right
  96.          FontBold        =   -1  'True
  97.          FontItalic      =   0   'False
  98.          FontName        =   "MS Sans Serif"
  99.          FontSize        =   9.75
  100.          FontStrikethru  =   0   'False
  101.          FontUnderline   =   0   'False
  102.          ForeColor       =   &H00800000&
  103.          Height          =   315
  104.          IconLeft        =   -4
  105.          IconTop         =   -6
  106.          Index           =   6
  107.          Left            =   2220
  108.          TabIndex        =   31
  109.          Top             =   720
  110.          Width           =   1905
  111.       End
  112.       Begin PZLabel ColorOpt 
  113.          Alignment       =   1  'Left Justify - MIDDLE
  114.          BackColor       =   &H00C0C0C0&
  115.          BevelOuter      =   1  'Inset
  116.          BevelOuterWidth =   1
  117.          Caption         =   "Set Color..."
  118.          CaptionMargin   =   25
  119.          DirectDraw      =   0   'False
  120.          Font3D          =   2  'Block Right
  121.          FontBold        =   -1  'True
  122.          FontItalic      =   0   'False
  123.          FontName        =   "MS Sans Serif"
  124.          FontSize        =   9.75
  125.          FontStrikethru  =   0   'False
  126.          FontUnderline   =   0   'False
  127.          ForeColor       =   &H00800000&
  128.          Height          =   315
  129.          IconLeft        =   -4
  130.          IconTop         =   -6
  131.          Index           =   5
  132.          Left            =   2220
  133.          TabIndex        =   30
  134.          Top             =   1110
  135.          Width           =   1905
  136.       End
  137.       Begin PZLabel ColorOpt 
  138.          Alignment       =   1  'Left Justify - MIDDLE
  139.          BackColor       =   &H00C0C0C0&
  140.          BevelOuter      =   1  'Inset
  141.          BevelOuterWidth =   1
  142.          Caption         =   "Faded"
  143.          CaptionMargin   =   25
  144.          DirectDraw      =   0   'False
  145.          Font3D          =   2  'Block Right
  146.          FontBold        =   -1  'True
  147.          FontItalic      =   0   'False
  148.          FontName        =   "MS Sans Serif"
  149.          FontSize        =   9.75
  150.          FontStrikethru  =   0   'False
  151.          FontUnderline   =   0   'False
  152.          ForeColor       =   &H00800000&
  153.          Height          =   315
  154.          IconLeft        =   -4
  155.          IconTop         =   -6
  156.          Index           =   4
  157.          Left            =   2220
  158.          TabIndex        =   29
  159.          Top             =   720
  160.          Width           =   1905
  161.       End
  162.       Begin PZLabel ColorOpt 
  163.          Alignment       =   1  'Left Justify - MIDDLE
  164.          BackColor       =   &H00C0C0C0&
  165.          BevelOuter      =   1  'Inset
  166.          BevelOuterWidth =   1
  167.          Caption         =   "Black Shade"
  168.          CaptionMargin   =   25
  169.          DirectDraw      =   0   'False
  170.          Font3D          =   2  'Block Right
  171.          FontBold        =   -1  'True
  172.          FontItalic      =   0   'False
  173.          FontName        =   "MS Sans Serif"
  174.          FontSize        =   9.75
  175.          FontStrikethru  =   0   'False
  176.          FontUnderline   =   0   'False
  177.          ForeColor       =   &H00800000&
  178.          Height          =   315
  179.          IconLeft        =   -4
  180.          IconTop         =   -6
  181.          Index           =   3
  182.          Left            =   2220
  183.          TabIndex        =   28
  184.          Top             =   1110
  185.          Width           =   1905
  186.       End
  187.       Begin PZLabel ColorOpt 
  188.          Alignment       =   1  'Left Justify - MIDDLE
  189.          BackColor       =   &H00C0C0C0&
  190.          BevelOuter      =   1  'Inset
  191.          BevelOuterWidth =   1
  192.          Caption         =   "White Light"
  193.          CaptionMargin   =   25
  194.          DirectDraw      =   0   'False
  195.          Font3D          =   2  'Block Right
  196.          FontBold        =   -1  'True
  197.          FontItalic      =   0   'False
  198.          FontName        =   "MS Sans Serif"
  199.          FontSize        =   9.75
  200.          FontStrikethru  =   0   'False
  201.          FontUnderline   =   0   'False
  202.          ForeColor       =   &H00800000&
  203.          Height          =   315
  204.          IconLeft        =   -4
  205.          IconTop         =   -6
  206.          Index           =   2
  207.          Left            =   2220
  208.          TabIndex        =   27
  209.          Top             =   720
  210.          Width           =   1905
  211.       End
  212.       Begin PZLabel WidthLab 
  213.          BorderOuter     =   1  'Solid
  214.          Caption         =   "5"
  215.          DirectDraw      =   0   'False
  216.          ForeColor       =   &H00800000&
  217.          Height          =   255
  218.          Index           =   3
  219.          Left            =   2250
  220.          TabIndex        =   26
  221.          Top             =   1530
  222.          Width           =   435
  223.       End
  224.       Begin PZLabel WidthLab 
  225.          BorderOuter     =   1  'Solid
  226.          Caption         =   "5"
  227.          DirectDraw      =   0   'False
  228.          ForeColor       =   &H00800000&
  229.          Height          =   255
  230.          Index           =   2
  231.          Left            =   2250
  232.          TabIndex        =   25
  233.          Top             =   1530
  234.          Width           =   435
  235.       End
  236.       Begin PZLabel WidthLab 
  237.          BorderOuter     =   1  'Solid
  238.          Caption         =   "5"
  239.          DirectDraw      =   0   'False
  240.          ForeColor       =   &H00800000&
  241.          Height          =   255
  242.          Index           =   1
  243.          Left            =   2250
  244.          TabIndex        =   24
  245.          Top             =   1530
  246.          Width           =   435
  247.       End
  248.       Begin PZLabel WidthLab 
  249.          BorderOuter     =   1  'Solid
  250.          Caption         =   "5"
  251.          ForeColor       =   &H00800000&
  252.          Height          =   255
  253.          Index           =   0
  254.          Left            =   2250
  255.          TabIndex        =   2
  256.          Top             =   1530
  257.          Width           =   435
  258.       End
  259.       Begin PZLabel PanCmd 
  260.          AutoClick       =   1  'Command
  261.          BackColor       =   &H00C0C0C0&
  262.          BevelInnerWidth =   3
  263.          BevelOuter      =   2  'Raised
  264.          BevelOuterShading=   5  '3D Button
  265.          BorderOuter     =   1  'Solid
  266.          Caption         =   "&Cancel"
  267.          CaptionPrefix   =   -1  'True
  268.          CornerSize      =   4
  269.          Font3D          =   2  'Block Right
  270.          FontBold        =   -1  'True
  271.          FontItalic      =   0   'False
  272.          FontName        =   "MS Sans Serif"
  273.          FontSize        =   9.75
  274.          FontStrikethru  =   0   'False
  275.          FontUnderline   =   0   'False
  276.          ForeColor       =   &H00800000&
  277.          GradientColor   =   &H00808080&
  278.          GradientStyle   =   1  'Vertical
  279.          Height          =   405
  280.          Index           =   0
  281.          Left            =   270
  282.          ShowFocus       =   8
  283.          TabIndex        =   3
  284.          Top             =   1890
  285.          Width           =   1125
  286.       End
  287.       Begin PZLabel PanCmd 
  288.          AutoClick       =   1  'Command
  289.          BackColor       =   &H00C0C0C0&
  290.          BevelInnerWidth =   3
  291.          BevelOuter      =   2  'Raised
  292.          BevelOuterShading=   5  '3D Button
  293.          BorderOuter     =   1  'Solid
  294.          Caption         =   "&OK"
  295.          CaptionPrefix   =   -1  'True
  296.          CornerSize      =   4
  297.          Font3D          =   2  'Block Right
  298.          FontBold        =   -1  'True
  299.          FontItalic      =   0   'False
  300.          FontName        =   "MS Sans Serif"
  301.          FontSize        =   9.75
  302.          FontStrikethru  =   0   'False
  303.          FontUnderline   =   0   'False
  304.          ForeColor       =   &H00800000&
  305.          GradientColor   =   &H00808080&
  306.          GradientStyle   =   1  'Vertical
  307.          Height          =   405
  308.          Index           =   2
  309.          Left            =   2910
  310.          ShowFocus       =   8
  311.          TabIndex        =   4
  312.          Top             =   1890
  313.          Width           =   1125
  314.       End
  315.       Begin PZLabel WidthPan 
  316.          Alignment       =   1  'Left Justify - MIDDLE
  317.          BackColor       =   &H00C0C0C0&
  318.          BevelOuter      =   1  'Inset
  319.          BevelOuterWidth =   1
  320.          Caption         =   "Width"
  321.          CaptionMargin   =   68
  322.          DirectDraw      =   0   'False
  323.          Font3D          =   2  'Block Right
  324.          FontBold        =   -1  'True
  325.          FontItalic      =   0   'False
  326.          FontName        =   "MS Sans Serif"
  327.          FontSize        =   9.75
  328.          FontStrikethru  =   0   'False
  329.          FontUnderline   =   0   'False
  330.          ForeColor       =   &H00800000&
  331.          Height          =   315
  332.          IconLeft        =   32
  333.          IconTop         =   -7
  334.          Left            =   2220
  335.          TabIndex        =   5
  336.          Top             =   1500
  337.          Width           =   1905
  338.       End
  339.       Begin PZLabel ColorOpt 
  340.          Alignment       =   1  'Left Justify - MIDDLE
  341.          BackColor       =   &H00C0C0C0&
  342.          BevelOuter      =   1  'Inset
  343.          BevelOuterWidth =   1
  344.          Caption         =   "White Light"
  345.          CaptionMargin   =   25
  346.          DirectDraw      =   0   'False
  347.          Font3D          =   2  'Block Right
  348.          FontBold        =   -1  'True
  349.          FontItalic      =   0   'False
  350.          FontName        =   "MS Sans Serif"
  351.          FontSize        =   9.75
  352.          FontStrikethru  =   0   'False
  353.          FontUnderline   =   0   'False
  354.          ForeColor       =   &H00800000&
  355.          Height          =   315
  356.          IconLeft        =   -4
  357.          IconTop         =   -6
  358.          Index           =   0
  359.          Left            =   2220
  360.          TabIndex        =   6
  361.          Top             =   720
  362.          Width           =   1905
  363.       End
  364.       Begin PZLabel BevelOpt 
  365.          Alignment       =   1  'Left Justify - MIDDLE
  366.          BackColor       =   &H00C0C0C0&
  367.          BevelOuter      =   1  'Inset
  368.          BevelOuterWidth =   1
  369.          Caption         =   "None"
  370.          CaptionMargin   =   25
  371.          DirectDraw      =   0   'False
  372.          Font3D          =   2  'Block Right
  373.          FontBold        =   -1  'True
  374.          FontItalic      =   0   'False
  375.          FontName        =   "MS Sans Serif"
  376.          FontSize        =   9.75
  377.          FontStrikethru  =   0   'False
  378.          FontUnderline   =   0   'False
  379.          ForeColor       =   &H00800000&
  380.          Height          =   315
  381.          IconLeft        =   -4
  382.          IconTop         =   -6
  383.          Index           =   0
  384.          Left            =   180
  385.          TabIndex        =   7
  386.          Top             =   720
  387.          Width           =   1905
  388.       End
  389.       Begin PZLabel BevelOpt 
  390.          Alignment       =   1  'Left Justify - MIDDLE
  391.          BackColor       =   &H00C0C0C0&
  392.          BevelOuter      =   1  'Inset
  393.          BevelOuterWidth =   1
  394.          Caption         =   "Inset"
  395.          CaptionMargin   =   25
  396.          DirectDraw      =   0   'False
  397.          Font3D          =   2  'Block Right
  398.          FontBold        =   -1  'True
  399.          FontItalic      =   0   'False
  400.          FontName        =   "MS Sans Serif"
  401.          FontSize        =   9.75
  402.          FontStrikethru  =   0   'False
  403.          FontUnderline   =   0   'False
  404.          ForeColor       =   &H00800000&
  405.          Height          =   315
  406.          IconLeft        =   -4
  407.          IconTop         =   -6
  408.          Index           =   1
  409.          Left            =   180
  410.          TabIndex        =   8
  411.          Top             =   1110
  412.          Width           =   1905
  413.       End
  414.       Begin PZLabel BevelOpt 
  415.          Alignment       =   1  'Left Justify - MIDDLE
  416.          BackColor       =   &H00C0C0C0&
  417.          BevelOuter      =   1  'Inset
  418.          BevelOuterWidth =   1
  419.          Caption         =   "Raised"
  420.          CaptionMargin   =   25
  421.          DirectDraw      =   0   'False
  422.          Font3D          =   2  'Block Right
  423.          FontBold        =   -1  'True
  424.          FontItalic      =   0   'False
  425.          FontName        =   "MS Sans Serif"
  426.          FontSize        =   9.75
  427.          FontStrikethru  =   0   'False
  428.          FontUnderline   =   0   'False
  429.          ForeColor       =   &H00800000&
  430.          Height          =   315
  431.          IconLeft        =   -4
  432.          IconTop         =   -6
  433.          Index           =   2
  434.          Left            =   180
  435.          TabIndex        =   9
  436.          Top             =   1500
  437.          Width           =   1905
  438.       End
  439.       Begin PZLabel BevelOpt 
  440.          Alignment       =   1  'Left Justify - MIDDLE
  441.          BackColor       =   &H00C0C0C0&
  442.          BevelOuter      =   1  'Inset
  443.          BevelOuterWidth =   1
  444.          Caption         =   "None"
  445.          CaptionMargin   =   25
  446.          DirectDraw      =   0   'False
  447.          Font3D          =   2  'Block Right
  448.          FontBold        =   -1  'True
  449.          FontItalic      =   0   'False
  450.          FontName        =   "MS Sans Serif"
  451.          FontSize        =   9.75
  452.          FontStrikethru  =   0   'False
  453.          FontUnderline   =   0   'False
  454.          ForeColor       =   &H00800000&
  455.          Height          =   315
  456.          IconLeft        =   -4
  457.          IconTop         =   -6
  458.          Index           =   3
  459.          Left            =   180
  460.          TabIndex        =   17
  461.          Top             =   720
  462.          Width           =   1905
  463.       End
  464.       Begin PZLabel BevelOpt 
  465.          Alignment       =   1  'Left Justify - MIDDLE
  466.          BackColor       =   &H00C0C0C0&
  467.          BevelOuter      =   1  'Inset
  468.          BevelOuterWidth =   1
  469.          Caption         =   "Inset"
  470.          CaptionMargin   =   25
  471.          DirectDraw      =   0   'False
  472.          Font3D          =   2  'Block Right
  473.          FontBold        =   -1  'True
  474.          FontItalic      =   0   'False
  475.          FontName        =   "MS Sans Serif"
  476.          FontSize        =   9.75
  477.          FontStrikethru  =   0   'False
  478.          FontUnderline   =   0   'False
  479.          ForeColor       =   &H00800000&
  480.          Height          =   315
  481.          IconLeft        =   -4
  482.          IconTop         =   -6
  483.          Index           =   4
  484.          Left            =   180
  485.          TabIndex        =   16
  486.          Top             =   1110
  487.          Width           =   1905
  488.       End
  489.       Begin PZLabel BevelOpt 
  490.          Alignment       =   1  'Left Justify - MIDDLE
  491.          BackColor       =   &H00C0C0C0&
  492.          BevelOuter      =   1  'Inset
  493.          BevelOuterWidth =   1
  494.          Caption         =   "Raised"
  495.          CaptionMargin   =   25
  496.          DirectDraw      =   0   'False
  497.          Font3D          =   2  'Block Right
  498.          FontBold        =   -1  'True
  499.          FontItalic      =   0   'False
  500.          FontName        =   "MS Sans Serif"
  501.          FontSize        =   9.75
  502.          FontStrikethru  =   0   'False
  503.          FontUnderline   =   0   'False
  504.          ForeColor       =   &H00800000&
  505.          Height          =   315
  506.          IconLeft        =   -4
  507.          IconTop         =   -6
  508.          Index           =   5
  509.          Left            =   180
  510.          TabIndex        =   15
  511.          Top             =   1500
  512.          Width           =   1905
  513.       End
  514.       Begin PZLabel BevelOpt 
  515.          Alignment       =   1  'Left Justify - MIDDLE
  516.          BackColor       =   &H00C0C0C0&
  517.          BevelOuter      =   1  'Inset
  518.          BevelOuterWidth =   1
  519.          Caption         =   "None"
  520.          CaptionMargin   =   25
  521.          DirectDraw      =   0   'False
  522.          Font3D          =   2  'Block Right
  523.          FontBold        =   -1  'True
  524.          FontItalic      =   0   'False
  525.          FontName        =   "MS Sans Serif"
  526.          FontSize        =   9.75
  527.          FontStrikethru  =   0   'False
  528.          FontUnderline   =   0   'False
  529.          ForeColor       =   &H00800000&
  530.          Height          =   315
  531.          IconLeft        =   -4
  532.          IconTop         =   -6
  533.          Index           =   6
  534.          Left            =   180
  535.          TabIndex        =   18
  536.          Top             =   720
  537.          Width           =   1905
  538.       End
  539.       Begin PZLabel BevelOpt 
  540.          Alignment       =   1  'Left Justify - MIDDLE
  541.          BackColor       =   &H00C0C0C0&
  542.          BevelOuter      =   1  'Inset
  543.          BevelOuterWidth =   1
  544.          Caption         =   "Solid"
  545.          CaptionMargin   =   25
  546.          DirectDraw      =   0   'False
  547.          Font3D          =   2  'Block Right
  548.          FontBold        =   -1  'True
  549.          FontItalic      =   0   'False
  550.          FontName        =   "MS Sans Serif"
  551.          FontSize        =   9.75
  552.          FontStrikethru  =   0   'False
  553.          FontUnderline   =   0   'False
  554.          ForeColor       =   &H00800000&
  555.          Height          =   315
  556.          IconLeft        =   -4
  557.          IconTop         =   -6
  558.          Index           =   7
  559.          Left            =   180
  560.          TabIndex        =   19
  561.          Top             =   1110
  562.          Width           =   1905
  563.       End
  564.       Begin PZLabel BevelOpt 
  565.          Alignment       =   1  'Left Justify - MIDDLE
  566.          BackColor       =   &H00C0C0C0&
  567.          BevelOuter      =   1  'Inset
  568.          BevelOuterWidth =   1
  569.          Caption         =   "Filled"
  570.          CaptionMargin   =   25
  571.          DirectDraw      =   0   'False
  572.          Font3D          =   2  'Block Right
  573.          FontBold        =   -1  'True
  574.          FontItalic      =   0   'False
  575.          FontName        =   "MS Sans Serif"
  576.          FontSize        =   9.75
  577.          FontStrikethru  =   0   'False
  578.          FontUnderline   =   0   'False
  579.          ForeColor       =   &H00800000&
  580.          Height          =   315
  581.          IconLeft        =   -4
  582.          IconTop         =   -6
  583.          Index           =   8
  584.          Left            =   180
  585.          TabIndex        =   20
  586.          Top             =   1500
  587.          Width           =   1905
  588.       End
  589.       Begin PZLabel BevelOpt 
  590.          Alignment       =   1  'Left Justify - MIDDLE
  591.          BackColor       =   &H00C0C0C0&
  592.          BevelOuter      =   1  'Inset
  593.          BevelOuterWidth =   1
  594.          Caption         =   "None"
  595.          CaptionMargin   =   25
  596.          DirectDraw      =   0   'False
  597.          Font3D          =   2  'Block Right
  598.          FontBold        =   -1  'True
  599.          FontItalic      =   0   'False
  600.          FontName        =   "MS Sans Serif"
  601.          FontSize        =   9.75
  602.          FontStrikethru  =   0   'False
  603.          FontUnderline   =   0   'False
  604.          ForeColor       =   &H00800000&
  605.          Height          =   315
  606.          IconLeft        =   -4
  607.          IconTop         =   -6
  608.          Index           =   9
  609.          Left            =   180
  610.          TabIndex        =   21
  611.          Top             =   720
  612.          Width           =   1905
  613.       End
  614.       Begin PZLabel BevelOpt 
  615.          Alignment       =   1  'Left Justify - MIDDLE
  616.          BackColor       =   &H00C0C0C0&
  617.          BevelOuter      =   1  'Inset
  618.          BevelOuterWidth =   1
  619.          Caption         =   "Solid"
  620.          CaptionMargin   =   25
  621.          DirectDraw      =   0   'False
  622.          Font3D          =   2  'Block Right
  623.          FontBold        =   -1  'True
  624.          FontItalic      =   0   'False
  625.          FontName        =   "MS Sans Serif"
  626.          FontSize        =   9.75
  627.          FontStrikethru  =   0   'False
  628.          FontUnderline   =   0   'False
  629.          ForeColor       =   &H00800000&
  630.          Height          =   315
  631.          IconLeft        =   -4
  632.          IconTop         =   -6
  633.          Index           =   10
  634.          Left            =   180
  635.          TabIndex        =   22
  636.          Top             =   1110
  637.          Width           =   1905
  638.       End
  639.       Begin PZLabel BevelOpt 
  640.          Alignment       =   1  'Left Justify - MIDDLE
  641.          BackColor       =   &H00C0C0C0&
  642.          BevelOuter      =   1  'Inset
  643.          BevelOuterWidth =   1
  644.          Caption         =   "Filled"
  645.          CaptionMargin   =   25
  646.          DirectDraw      =   0   'False
  647.          Font3D          =   2  'Block Right
  648.          FontBold        =   -1  'True
  649.          FontItalic      =   0   'False
  650.          FontName        =   "MS Sans Serif"
  651.          FontSize        =   9.75
  652.          FontStrikethru  =   0   'False
  653.          FontUnderline   =   0   'False
  654.          ForeColor       =   &H00800000&
  655.          Height          =   315
  656.          IconLeft        =   -4
  657.          IconTop         =   -6
  658.          Index           =   11
  659.          Left            =   180
  660.          TabIndex        =   23
  661.          Top             =   1500
  662.          Width           =   1905
  663.       End
  664.       Begin PZLabel ColorOpt 
  665.          Alignment       =   1  'Left Justify - MIDDLE
  666.          BackColor       =   &H00C0C0C0&
  667.          BevelOuter      =   1  'Inset
  668.          BevelOuterWidth =   1
  669.          Caption         =   "Black Shade"
  670.          CaptionMargin   =   25
  671.          DirectDraw      =   0   'False
  672.          Font3D          =   2  'Block Right
  673.          FontBold        =   -1  'True
  674.          FontItalic      =   0   'False
  675.          FontName        =   "MS Sans Serif"
  676.          FontSize        =   9.75
  677.          FontStrikethru  =   0   'False
  678.          FontUnderline   =   0   'False
  679.          ForeColor       =   &H00800000&
  680.          Height          =   315
  681.          IconLeft        =   -4
  682.          IconTop         =   -6
  683.          Index           =   1
  684.          Left            =   2220
  685.          TabIndex        =   10
  686.          Top             =   1110
  687.          Width           =   1905
  688.       End
  689.       Begin PZLabel TabPan 
  690.          Alignment       =   6  'Center - TOP
  691.          BackColor       =   &H00C0C0C0&
  692.          BevelInnerWidth =   1
  693.          BevelOuter      =   2  'Raised
  694.          BevelOuterShading=   6  '3D Frame
  695.          Font3D          =   2  'Block Right
  696.          FontBold        =   -1  'True
  697.          FontItalic      =   0   'False
  698.          FontName        =   "MS Sans Serif"
  699.          FontSize        =   9.75
  700.          FontStrikethru  =   0   'False
  701.          FontUnderline   =   0   'False
  702.          ForeColor       =   &H00800000&
  703.          GradientColor   =   &H00808080&
  704.          GradientStyle   =   1  'Vertical
  705.          Height          =   1755
  706.          Left            =   60
  707.          TabIndex        =   11
  708.          Top             =   600
  709.          Width           =   4170
  710.       End
  711.       Begin PZLabel Tabs 
  712.          Alignment       =   6  'Center - TOP
  713.          AutoClick       =   5  'Tab
  714.          BackColor       =   &H00FFFFFF&
  715.          BevelInnerWidth =   1
  716.          BevelOuter      =   2  'Raised
  717.          BevelOuterShading=   6  '3D Frame
  718.          Caption         =   "Outer Border"
  719.          CornerSize      =   4
  720.          Font3D          =   2  'Block Right
  721.          FontBold        =   -1  'True
  722.          FontItalic      =   0   'False
  723.          FontName        =   "MS Sans Serif"
  724.          FontSize        =   9.75
  725.          FontStrikethru  =   0   'False
  726.          FontUnderline   =   0   'False
  727.          ForeColor       =   &H00800000&
  728.          Height          =   585
  729.          Index           =   2
  730.          Left            =   2160
  731.          TabIndex        =   12
  732.          TabStyle        =   1  'Top Tab
  733.          Top             =   60
  734.          Width           =   1035
  735.          WordWrap        =   -1  'True
  736.       End
  737.       Begin PZLabel Tabs 
  738.          Alignment       =   6  'Center - TOP
  739.          AutoClick       =   5  'Tab
  740.          BackColor       =   &H00FFFFFF&
  741.          BevelInnerWidth =   1
  742.          BevelOuter      =   2  'Raised
  743.          BevelOuterShading=   6  '3D Frame
  744.          Caption         =   "Inner Border"
  745.          CornerSize      =   4
  746.          Font3D          =   2  'Block Right
  747.          FontBold        =   -1  'True
  748.          FontItalic      =   0   'False
  749.          FontName        =   "MS Sans Serif"
  750.          FontSize        =   9.75
  751.          FontStrikethru  =   0   'False
  752.          FontUnderline   =   0   'False
  753.          ForeColor       =   &H00800000&
  754.          Height          =   585
  755.          Index           =   3
  756.          Left            =   3195
  757.          TabIndex        =   13
  758.          TabStyle        =   1  'Top Tab
  759.          Top             =   60
  760.          Width           =   1035
  761.          WordWrap        =   -1  'True
  762.       End
  763.       Begin PZLabel Tabs 
  764.          Alignment       =   6  'Center - TOP
  765.          AutoClick       =   5  'Tab
  766.          BackColor       =   &H00FFFFFF&
  767.          BevelInnerWidth =   1
  768.          BevelOuter      =   2  'Raised
  769.          BevelOuterShading=   6  '3D Frame
  770.          Caption         =   "Inner Bevel"
  771.          CornerSize      =   4
  772.          Font3D          =   2  'Block Right
  773.          FontBold        =   -1  'True
  774.          FontItalic      =   0   'False
  775.          FontName        =   "MS Sans Serif"
  776.          FontSize        =   9.75
  777.          FontStrikethru  =   0   'False
  778.          FontUnderline   =   0   'False
  779.          ForeColor       =   &H00800000&
  780.          Height          =   585
  781.          Index           =   1
  782.          Left            =   1125
  783.          TabIndex        =   14
  784.          TabStyle        =   1  'Top Tab
  785.          Top             =   60
  786.          Width           =   1035
  787.          WordWrap        =   -1  'True
  788.       End
  789.       Begin PZLabel Tabs 
  790.          Alignment       =   6  'Center - TOP
  791.          AutoClick       =   5  'Tab
  792.          BackColor       =   &H00FFFFFF&
  793.          BevelInnerWidth =   1
  794.          BevelOuter      =   2  'Raised
  795.          BevelOuterShading=   6  '3D Frame
  796.          Caption         =   "Outer Bevel"
  797.          CornerSize      =   4
  798.          Font3D          =   2  'Block Right
  799.          FontBold        =   -1  'True
  800.          FontItalic      =   0   'False
  801.          FontName        =   "MS Sans Serif"
  802.          FontSize        =   9.75
  803.          FontStrikethru  =   0   'False
  804.          FontUnderline   =   0   'False
  805.          ForeColor       =   &H00800000&
  806.          Height          =   585
  807.          Index           =   0
  808.          Left            =   60
  809.          TabIndex        =   1
  810.          TabStyle        =   1  'Top Tab
  811.          Top             =   60
  812.          Width           =   1065
  813.          WordWrap        =   -1  'True
  814.       End
  815.    End
  816.    Begin Image IconImg 
  817.       Height          =   480
  818.       Index           =   5
  819.       Left            =   2520
  820.       Picture         =   OPTIONS.FRX:0000
  821.       Top             =   2580
  822.       Width           =   480
  823.    End
  824.    Begin Image IconImg 
  825.       Height          =   480
  826.       Index           =   4
  827.       Left            =   2070
  828.       Picture         =   OPTIONS.FRX:0302
  829.       Top             =   2610
  830.       Width           =   480
  831.    End
  832.    Begin Image IconImg 
  833.       Height          =   480
  834.       Index           =   3
  835.       Left            =   1590
  836.       Picture         =   OPTIONS.FRX:0604
  837.       Top             =   2580
  838.       Width           =   480
  839.    End
  840.    Begin Image IconImg 
  841.       Height          =   480
  842.       Index           =   2
  843.       Left            =   1080
  844.       Picture         =   OPTIONS.FRX:0906
  845.       Top             =   2550
  846.       Width           =   480
  847.    End
  848.    Begin Image IconImg 
  849.       Height          =   480
  850.       Index           =   1
  851.       Left            =   570
  852.       Picture         =   OPTIONS.FRX:0C08
  853.       Top             =   2520
  854.       Width           =   480
  855.    End
  856.    Begin Image IconImg 
  857.       Height          =   480
  858.       Index           =   0
  859.       Left            =   60
  860.       Picture         =   OPTIONS.FRX:0F0A
  861.       Top             =   2520
  862.       Width           =   480
  863.    End
  864. End
  865. Option Explicit
  866. '*******************************************************
  867. '*                                                     *
  868. '*   Demo program for Pizazz 1.5 Custom Control.       *
  869. '*   Written by Visual Bits                            *
  870. '*   Copyright ⌐ 1995                                  *
  871. '*                                                     *
  872. '*   This software and documentation are supplied      *
  873. '*   "AS IS".  The author makes no warranty of any     *
  874. '*   kind, either express or implied, with respect to  *
  875. '*   this software and accompanying documentation.  In *
  876. '*   no event shall the author of this software be     *
  877. '*   liable for any damages arising out of the use of  *
  878. '*   this product. Your use of this software indicates *
  879. '*   that you have read and agreed to these terms.     *
  880. '*                                                     *
  881. '*   Other then that, you may use this demo program    *
  882. '*   source code in any way you find useful.           *
  883. '*                                                     *
  884. '*******************************************************
  885.  
  886. ' This form is used to demonstrate tabs, spinners, and
  887. ' options using Pizazz
  888.  
  889. Dim KeyIn(3) As Integer
  890. Dim Spinning As Integer
  891. Dim zTab As Integer
  892. Dim Activating As Integer
  893.  
  894. Sub BevelOpt_Click (index As Integer)
  895.     Dim i As Integer
  896.     i = index \ 3
  897.     Tabs(i).Tag = Str$(index - i * 3)
  898.     ShowOptions
  899. End Sub
  900.  
  901. Sub ColorOpt_Click (index As Integer)
  902.     Dim i As Integer
  903.     If index < 4 Then
  904.         i = (index And 1) + 1 Xor Val(ColorOpt(index).Tag)
  905.         ColorOpt(index).Tag = Str$(i)
  906.     ElseIf (index And 1) = 0 Then
  907.         i = index \ 2
  908.         Tabs(i).Tag = "4"
  909.     Else
  910.         CD.Flags = CC_RGBINIT
  911.         CD.Color = Val(ColorOpt(index).Tag)
  912.         CD.Action = DLG_COLOR
  913.         ColorOpt(index).Tag = Str$(CD.Color)
  914.         Exit Sub
  915.     End If
  916.     ShowOptions
  917. End Sub
  918.  
  919. Sub Form_Activate ()
  920.     Activating = True
  921.     Tabs(0).ButtonState = True
  922.     Activating = False
  923. End Sub
  924.  
  925. Sub Form_KeyPress (keyascii As Integer)
  926.     Dim i As Integer
  927.     Dim key As String
  928.     Dim Value As Integer
  929.     
  930.     Value = Val(WidthLab(zTab))
  931.     key = Chr$(keyascii)
  932.     Select Case key
  933.     Case "0" To "9"
  934.         If KeyIn(zTab) Then
  935.             Value = Value * 10 + keyascii - &H30
  936.         Else
  937.              KeyIn(zTab) = True
  938.              Value = keyascii - &H30
  939.         End If
  940.     Case Chr$(8) ' backspace
  941.         Value = Value \ 10
  942.     End Select
  943.     If Value > 30 Then
  944.         Value = 30
  945.     End If
  946.     WidthLab(zTab) = Str$(Value)
  947.     ShowOptions
  948. End Sub
  949.  
  950. Sub PanCmd_Click (index As Integer)
  951.     Tag = Str$(index)
  952.     If index = 1 Then
  953.         SetBevelOptions Me, Pzdemo!BigPan
  954.     Else
  955.         Me.Hide
  956.     End If
  957.  
  958. End Sub
  959.  
  960. Sub ShowOptions ()
  961.     Dim i As Integer, j As Integer, k As Integer, z As Integer
  962.     Dim numopts As Integer
  963.     Dim hicon As Integer
  964.  
  965.     ' After the form has been shown, the backpanel doesn't need
  966.     ' to be painted when updating other controls - this prevents
  967.     ' flashing.
  968.     ' Note! This is only neccessary when using graphical controls like
  969.     ' PZLabels layered on top of other graphical controls.  I'm doing
  970.     ' this to save resources and show how it's done.
  971.     'BackPan.EnablePainting = ToBeShown
  972.  
  973.     ' the TabPan tag represents which tab is "up"
  974.     z = Val(TabPan.Tag)
  975.     'If zTab <> z Then
  976.     '    ' reorder the tabs - KeyIn is used to remember if
  977.     '    ' a value has been typed into the width label for this
  978.     '    ' tab
  979.     '    KeyIn(z) = False
  980.     '    For i = 0 To 3
  981.     '        If i = z Then
  982.     '            Tabs(i).BackColor = &HC0C0C0
  983.     '            Tabs(i).ZOrder
  984.     '        Else
  985.     '            Tabs(i).BackColor = &HFFFFFF
  986.     '            Tabs(i).ZOrder 1
  987.     '        End If
  988.     '
  989.     '    Next
  990.     '    ' allow the tabs to paint
  991.     '    If Not ToBeShown Then DoEvents
  992.     'End If
  993.  
  994.     ' the tab panel doesn't need to paint any more
  995.     TabPan.EnablePainting = Activating
  996.  
  997.     ' show the options that correspond to the "up" tab
  998.     ' note that there is a set of three Bevel options per tab
  999.     ' and each set occupies the same space
  1000.     For j = 0 To 11
  1001.         BevelOpt(j).Visible = False
  1002.         If j < 4 Then WidthLab(j).Visible = False
  1003.         If j < 8 Then ColorOpt(j).Visible = False
  1004.     Next
  1005.     
  1006.     For j = 0 To 2
  1007.         ' set the bevel options
  1008.         k = z * 3 + j
  1009.         hicon = 3
  1010.         If j = Val(Tabs(z).Tag) Then
  1011.             hicon = 4
  1012.         End If
  1013.         BevelOpt(k).Icon = IconImg(hicon).Picture
  1014.         BevelOpt(k).Visible = True
  1015.  
  1016.         ' set the color options also
  1017.         If j < 2 Then
  1018.         
  1019.             k = z * 2 + j
  1020.             hicon = 0 ' this means no icon
  1021.             If z < 2 Then
  1022.                 hicon = 3 ' for tabs 0 and 1 option off by default
  1023.                 If Val(ColorOpt(k).Tag) Then
  1024.                     hicon = 4
  1025.                 End If
  1026.             ElseIf j = 0 Then
  1027.                 hicon = 3
  1028.                 If Val(Tabs(z).Tag) = 4 Then hicon = 4
  1029.             ElseIf j = 1 Then
  1030.                 hicon = 5 ' for tabs 2 and 3 a little green button
  1031.             End If
  1032.             If hicon Then ColorOpt(k).Icon = IconImg(hicon).Picture
  1033.             ColorOpt(k).Visible = True
  1034.         End If
  1035.     Next
  1036.     
  1037.     'WidthLab(z) = WidthLab(z).Tag
  1038.     WidthLab(z).Visible = True
  1039.  
  1040.     ' clip out the width spinner labels (since they all occupy the same
  1041.     ' location you only need to clip the first one
  1042.     WidthLab(0).ClipCtl = WidthPan.hCtl
  1043.  
  1044.     ' stop all that spinning...
  1045.     If Not Spinning Then WidthPan.Icon = IconImg(0).Picture
  1046.  
  1047.     ' now let everybody finish painting before restoring the
  1048.     ' background painting
  1049.     DoEvents
  1050.     zTab = z
  1051.     TabPan.EnablePainting = True
  1052.     BackPan.EnablePainting = True
  1053. End Sub
  1054.  
  1055. Sub Tabs_Click (index As Integer)
  1056.     If Tabs(index).ButtonState Then
  1057.         KeyIn(index) = False
  1058.         Tabs(index).BackColor = &HC0C0C0
  1059.         TabPan.Tag = Str$(index)
  1060.         ShowOptions
  1061.     Else
  1062.         Tabs(index).BackColor = &HFFFFFF
  1063.     End If
  1064. End Sub
  1065.  
  1066. Sub WidthPan_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  1067.     Dim i As Integer, n As Integer
  1068.     Dim ix As Integer, iy As Integer
  1069.     Dim t As Single
  1070.     
  1071.     ' the following spinner index values were derived by subtracting
  1072.     ' an offset and dividing by the size of the spin hot spots
  1073.     ' if iy = 1 and ix = 1 or 2 then we got a click
  1074.     ix = (x \ Screen.TwipsPerPixelX - 23) \ 13
  1075.     iy = (y \ Screen.TwipsPerPixelY + 10) \ 14
  1076.     
  1077.     ' uncomment the next two statements to test the values in real time
  1078.     'Debug.Print ix, iy
  1079.     'Exit Sub
  1080.     
  1081.     If iy = 1 Then
  1082.         Spinning = True
  1083.         If ix = 1 Then
  1084.             i = -1
  1085.         ElseIf ix = 2 Then
  1086.             i = 1
  1087.         Else
  1088.             Exit Sub
  1089.         End If
  1090.         Do While Spinning
  1091.             ' holding down the mouse button spins the spinner
  1092.             ' change the value every .5 seconds
  1093.             If Timer - t > .5 Then
  1094.                 t = Timer
  1095.                 n = Val(WidthLab(zTab)) + i
  1096.                 If n < 0 Then
  1097.                     n = 0
  1098.                 ElseIf n > 30 Then
  1099.                     n = 30
  1100.                 End If
  1101.                 TabPan.EnablePainting = False
  1102.                 BackPan.EnablePainting = False
  1103.                 WidthPan.Icon = IconImg(ix).Picture
  1104.                 WidthLab(zTab) = Str$(n)
  1105.             End If
  1106.             ShowOptions
  1107.         Loop
  1108.     End If
  1109. End Sub
  1110.  
  1111. Sub WidthPan_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
  1112.     ' stop spinning
  1113.     Spinning = False
  1114.     ShowOptions
  1115. End Sub
  1116.  
  1117.