home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / pzdemo.zip / PZDEMO.FRM < prev    next >
Text File  |  1995-09-08  |  35KB  |  941 lines
  1. VERSION 2.00
  2. Begin Form PZDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Demo of Pizazz 1.55 Custom Control"
  6.    ClientHeight    =   4680
  7.    ClientLeft      =   3570
  8.    ClientTop       =   1725
  9.    ClientWidth     =   8025
  10.    FillStyle       =   0  'Solid
  11.    Height          =   5085
  12.    Left            =   3510
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4680
  17.    ScaleWidth      =   8025
  18.    Top             =   1380
  19.    Width           =   8145
  20.    Begin PZPanel MainPan 
  21.       BackColor       =   &H00FF0000&
  22.       BevelOuter      =   1  'Inset
  23.       BevelOuterShading=   3  'Frame
  24.       BevelOuterWidth =   1
  25.       CornerBackColor =   &H00800000&
  26.       GradientStyle   =   1  'Vertical
  27.       Height          =   3945
  28.       Left            =   0
  29.       Picture         =   PZDEMO.FRX:0000
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   8085
  33.       Begin PZPanel BigPan 
  34.          Alignment       =   6  'Center - TOP
  35.          BackColor       =   &H00808080&
  36.          BevelInner      =   2  'Raised
  37.          BevelOuter      =   1  'Inset
  38.          BorderOuter     =   1  'Solid
  39.          Caption         =   "Pizazz controls can have gradients or textures"
  40.          CornerBackColor =   &H00800000&
  41.          Font3D          =   2  'Block Right
  42.          Font3DColor     =   &H00404040&
  43.          Font3DSize      =   2
  44.          FontBold        =   -1  'True
  45.          FontItalic      =   0   'False
  46.          FontName        =   "Times New Roman"
  47.          FontSize        =   17.25
  48.          FontStrikethru  =   0   'False
  49.          FontUnderline   =   0   'False
  50.          ForeColor       =   &H00C0C0C0&
  51.          GradientColor   =   &H000080FF&
  52.          GradientStyle   =   5  'Vertical Centered
  53.          Height          =   3765
  54.          Icon            =   PZDEMO.FRX:007E
  55.          IconLeft        =   148
  56.          IconTop         =   122
  57.          Left            =   90
  58.          Picture         =   PZDEMO.FRX:0380
  59.          TabIndex        =   19
  60.          Top             =   10060
  61.          Width           =   7845
  62.          WordWrap        =   -1  'True
  63.          Begin PZPanel PZTab 
  64.             AutoClick       =   2  'Combo
  65.             BackColor       =   &H00C0C0C0&
  66.             BevelInner      =   1  'Inset
  67.             BevelInnerWidth =   1
  68.             BevelOuter      =   2  'Raised
  69.             BevelOuterShading=   5  '3D Button
  70.             BevelOuterWidth =   3
  71.             BorderInner     =   1  'Solid
  72.             BorderInnerColor=   &H00808000&
  73.             BorderInnerWidth=   4
  74.             BorderOuter     =   3  'Shadow
  75.             BorderOuterColor=   &H00404040&
  76.             BorderOuterWidth=   4
  77.             Caption         =   "and tabs"
  78.             CornerBackColor =   &H00004080&
  79.             CornerSize      =   3
  80.             Font3D          =   1  'Block Left
  81.             Font3DSize      =   2
  82.             FontBold        =   -1  'True
  83.             FontItalic      =   0   'False
  84.             FontName        =   "Times New Roman"
  85.             FontSize        =   15
  86.             FontStrikethru  =   0   'False
  87.             FontUnderline   =   0   'False
  88.             ForeColor       =   &H00800000&
  89.             Height          =   675
  90.             Left            =   2850
  91.             PictureStyle    =   3  'Tiled
  92.             TabIndex        =   2
  93.             TabStyle        =   3  'Bottom Tab
  94.             Top             =   1830
  95.             Width           =   2115
  96.             WordWrap        =   -1  'True
  97.          End
  98.          Begin PZPanel PZBut 
  99.             Alignment       =   9  'Center Offset - TOP
  100.             AutoClick       =   2  'Combo
  101.             BackColor       =   &H00C0C0C0&
  102.             BevelInner      =   1  'Inset
  103.             BevelInnerWidth =   1
  104.             BevelOuter      =   2  'Raised
  105.             BevelOuterShading=   5  '3D Button
  106.             BevelOuterWidth =   3
  107.             BorderInner     =   1  'Solid
  108.             BorderInnerColor=   &H00808000&
  109.             BorderInnerWidth=   4
  110.             BorderOuter     =   5  'Faded Shadow
  111.             BorderOuterColor=   &H00404040&
  112.             BorderOuterWidth=   4
  113.             Caption         =   "&Make buttons with labels"
  114.             CaptionMargin   =   10
  115.             CaptionPrefix   =   -1  'True
  116.             CornerBackColor =   &H00004080&
  117.             CornerSize      =   4
  118.             Font3D          =   1  'Block Left
  119.             Font3DSize      =   2
  120.             FontBold        =   -1  'True
  121.             FontItalic      =   0   'False
  122.             FontName        =   "Times New Roman"
  123.             FontSize        =   22.5
  124.             FontStrikethru  =   0   'False
  125.             FontUnderline   =   0   'False
  126.             ForeColor       =   &H00800000&
  127.             Height          =   1395
  128.             Left            =   2160
  129.             Picture         =   PZDEMO.FRX:03FE
  130.             PictureStyle    =   3  'Tiled
  131.             ShowFocus       =   8
  132.             TabIndex        =   1
  133.             Top             =   510
  134.             Width           =   3390
  135.             WordWrap        =   -1  'True
  136.          End
  137.          Begin PZLabel PZLabel1 
  138.             Alignment       =   0  'Left Justify - TOP
  139.             BackStyle       =   0  'Transparent
  140.             Caption         =   "Click here to change panel settings ........"
  141.             FontBold        =   -1  'True
  142.             FontItalic      =   -1  'True
  143.             FontName        =   "MS Sans Serif"
  144.             FontSize        =   8.25
  145.             FontStrikethru  =   0   'False
  146.             FontUnderline   =   0   'False
  147.             ForeColor       =   &H00FF0000&
  148.             Height          =   405
  149.             Left            =   390
  150.             TabIndex        =   21
  151.             Top             =   1950
  152.             Width           =   1875
  153.             WordWrap        =   -1  'True
  154.          End
  155.          Begin PZLabel SignLab 
  156.             BackColor       =   &H0000FFFF&
  157.             BevelInner      =   2  'Raised
  158.             BevelOuter      =   2  'Raised
  159.             BevelOuterShading=   2  'Dark
  160.             BevelOuterWidth =   1
  161.             Caption         =   " MAKE SIGNS"
  162.             CornerSize      =   45
  163.             FontBold        =   -1  'True
  164.             FontItalic      =   0   'False
  165.             FontName        =   "Times New Roman"
  166.             FontSize        =   12
  167.             FontStrikethru  =   0   'False
  168.             FontUnderline   =   0   'False
  169.             ForeColor       =   &H00004000&
  170.             Height          =   1365
  171.             Index           =   0
  172.             Left            =   420
  173.             TabIndex        =   3
  174.             Top             =   570
  175.             Width           =   1395
  176.             WordWrap        =   -1  'True
  177.          End
  178.          Begin PZLabel SignLab 
  179.             Alignment       =   10  'Center Offset - MIDDLE
  180.             BackColor       =   &H000000FF&
  181.             BevelInner      =   2  'Raised
  182.             BevelOuter      =   2  'Raised
  183.             BevelOuterShading=   2  'Dark
  184.             BevelOuterWidth =   1
  185.             Caption         =   "DON'T STOP!"
  186.             CaptionMargin   =   8
  187.             CornerSize      =   24
  188.             FontBold        =   -1  'True
  189.             FontItalic      =   0   'False
  190.             FontName        =   "MS Sans Serif"
  191.             FontSize        =   13.5
  192.             FontStrikethru  =   0   'False
  193.             FontUnderline   =   0   'False
  194.             ForeColor       =   &H00FFFFFF&
  195.             Height          =   1305
  196.             Index           =   1
  197.             Left            =   6000
  198.             TabIndex        =   4
  199.             Top             =   570
  200.             Width           =   1395
  201.             WordWrap        =   -1  'True
  202.          End
  203.          Begin PZLabel VCRLab 
  204.             Alignment       =   6  'Center - TOP
  205.             AutoClick       =   4  'Radio
  206.             BackColor       =   &H00C0C0C0&
  207.             BevelInner      =   2  'Raised
  208.             BevelInnerShading=   5  '3D Button
  209.             BevelOuter      =   2  'Raised
  210.             BevelOuterShading=   1  'Light
  211.             BevelOuterWidth =   3
  212.             BorderInner     =   1  'Solid
  213.             BorderOuter     =   1  'Solid
  214.             Caption         =   "&VCR"
  215.             CaptionPrefix   =   -1  'True
  216.             CornerSize      =   4
  217.             DirectDraw      =   0   'False
  218.             Font3D          =   4  'Drop Right
  219.             FontBold        =   -1  'True
  220.             FontItalic      =   0   'False
  221.             FontName        =   "MS Sans Serif"
  222.             FontSize        =   9.75
  223.             FontStrikethru  =   0   'False
  224.             FontUnderline   =   0   'False
  225.             ForeColor       =   &H00800080&
  226.             Height          =   915
  227.             Icon            =   PZDEMO.FRX:09F0
  228.             IconLeft        =   22
  229.             IconTop         =   10
  230.             Index           =   1
  231.             Left            =   2580
  232.             PictureStyle    =   3  'Tiled
  233.             ShowFocus       =   8
  234.             TabIndex        =   6
  235.             TabStyle        =   9  'No Horz. Side
  236.             Top             =   2610
  237.             Width           =   1335
  238.          End
  239.          Begin PZLabel VCRLab 
  240.             Alignment       =   6  'Center - TOP
  241.             AutoClick       =   4  'Radio
  242.             BackColor       =   &H00C0C0C0&
  243.             BevelInner      =   2  'Raised
  244.             BevelInnerShading=   5  '3D Button
  245.             BevelOuter      =   2  'Raised
  246.             BevelOuterShading=   1  'Light
  247.             BevelOuterWidth =   3
  248.             BorderInner     =   1  'Solid
  249.             BorderOuter     =   1  'Solid
  250.             Caption         =   "&Create"
  251.             CaptionPrefix   =   -1  'True
  252.             CornerSize      =   4
  253.             DirectDraw      =   0   'False
  254.             Font3D          =   4  'Drop Right
  255.             FontBold        =   -1  'True
  256.             FontItalic      =   0   'False
  257.             FontName        =   "MS Sans Serif"
  258.             FontSize        =   9.75
  259.             FontStrikethru  =   0   'False
  260.             FontUnderline   =   0   'False
  261.             ForeColor       =   &H00800080&
  262.             Height          =   915
  263.             Icon            =   PZDEMO.FRX:0CF2
  264.             IconLeft        =   20
  265.             IconTop         =   10
  266.             Index           =   0
  267.             Left            =   1260
  268.             PictureStyle    =   3  'Tiled
  269.             ShowFocus       =   8
  270.             TabIndex        =   10
  271.             TabStyle        =   8  'Left Button
  272.             Top             =   2610
  273.             Width           =   1335
  274.          End
  275.          Begin PZLabel VCRLab 
  276.             Alignment       =   6  'Center - TOP
  277.             AutoClick       =   4  'Radio
  278.             BackColor       =   &H00C0C0C0&
  279.             BevelInner      =   2  'Raised
  280.             BevelInnerShading=   5  '3D Button
  281.             BevelOuter      =   2  'Raised
  282.             BevelOuterShading=   1  'Light
  283.             BevelOuterWidth =   3
  284.             BorderInner     =   1  'Solid
  285.             BorderOuter     =   1  'Solid
  286.             Caption         =   "&Like"
  287.             CaptionPrefix   =   -1  'True
  288.             CornerSize      =   4
  289.             DirectDraw      =   0   'False
  290.             Font3D          =   4  'Drop Right
  291.             FontBold        =   -1  'True
  292.             FontItalic      =   0   'False
  293.             FontName        =   "MS Sans Serif"
  294.             FontSize        =   9.75
  295.             FontStrikethru  =   0   'False
  296.             FontUnderline   =   0   'False
  297.             ForeColor       =   &H00800080&
  298.             Height          =   915
  299.             Icon            =   PZDEMO.FRX:0FF4
  300.             IconLeft        =   20
  301.             IconTop         =   10
  302.             Index           =   2
  303.             Left            =   3900
  304.             PictureStyle    =   3  'Tiled
  305.             ShowFocus       =   8
  306.             TabIndex        =   11
  307.             TabStyle        =   9  'No Horz. Side
  308.             Top             =   2610
  309.             Width           =   1335
  310.          End
  311.          Begin PZLabel VCRLab 
  312.             Alignment       =   6  'Center - TOP
  313.             AutoClick       =   4  'Radio
  314.             BackColor       =   &H00C0C0C0&
  315.             BevelInner      =   2  'Raised
  316.             BevelInnerShading=   5  '3D Button
  317.             BevelOuter      =   2  'Raised
  318.             BevelOuterShading=   1  'Light
  319.             BevelOuterWidth =   3
  320.             BorderInner     =   1  'Solid
  321.             BorderOuter     =   1  'Solid
  322.             Caption         =   "&Buttons"
  323.             CaptionPrefix   =   -1  'True
  324.             CornerSize      =   4
  325.             DirectDraw      =   0   'False
  326.             Font3D          =   4  'Drop Right
  327.             FontBold        =   -1  'True
  328.             FontItalic      =   0   'False
  329.             FontName        =   "MS Sans Serif"
  330.             FontSize        =   9.75
  331.             FontStrikethru  =   0   'False
  332.             FontUnderline   =   0   'False
  333.             ForeColor       =   &H00800080&
  334.             Height          =   915
  335.             Icon            =   PZDEMO.FRX:12F6
  336.             IconLeft        =   20
  337.             IconTop         =   10
  338.             Index           =   3
  339.             Left            =   5220
  340.             PictureStyle    =   3  'Tiled
  341.             ShowFocus       =   8
  342.             TabIndex        =   12
  343.             TabStyle        =   6  'Right Button
  344.             Top             =   2610
  345.             Width           =   1335
  346.          End
  347.       End
  348.       Begin PZLabel SubLab 
  349.          AutoSize        =   -1  'True
  350.          BackStyle       =   0  'Transparent
  351.          Caption         =   "(Click &Here for more info...)"
  352.          CaptionPrefix   =   -1  'True
  353.          FontBold        =   -1  'True
  354.          FontItalic      =   -1  'True
  355.          FontName        =   "MS Sans Serif"
  356.          FontSize        =   8.25
  357.          FontStrikethru  =   0   'False
  358.          FontUnderline   =   0   'False
  359.          ForeColor       =   &H00C00000&
  360.          Height          =   195
  361.          Left            =   1950
  362.          ShowFocus       =   8
  363.          TabIndex        =   20
  364.          Top             =   930
  365.          Width           =   2415
  366.       End
  367.       Begin PZLabel TitleLab 
  368.          Alignment       =   6  'Center - TOP
  369.          BackColor       =   &H0080C0FF&
  370.          BevelInner      =   1  'Inset
  371.          BevelInnerWidth =   1
  372.          BevelOuter      =   2  'Raised
  373.          BevelOuterWidth =   4
  374.          BorderInner     =   1  'Solid
  375.          BorderInnerColor=   &H00C0C0C0&
  376.          BorderInnerWidth=   4
  377.          BorderOuter     =   5  'Faded Shadow
  378.          BorderOuterWidth=   10
  379.          Caption         =   " Introducing Pizazz 1.55"
  380.          CaptionMargin   =   30
  381.          CornerBackColor =   &H00C00000&
  382.          CornerSize      =   4
  383.          Font3D          =   4  'Drop Right
  384.          Font3DColor     =   &H00800000&
  385.          Font3DSize      =   3
  386.          FontBold        =   -1  'True
  387.          FontItalic      =   0   'False
  388.          FontName        =   "Times New Roman"
  389.          FontSize        =   27.75
  390.          FontStrikethru  =   0   'False
  391.          FontUnderline   =   -1  'True
  392.          ForeColor       =   &H00FF00FF&
  393.          GradientColor   =   &H00C0C0C0&
  394.          GradientStyle   =   5  'Vertical Centered
  395.          Height          =   1335
  396.          Left            =   510
  397.          Picture         =   PZDEMO.FRX:15F8
  398.          TabIndex        =   17
  399.          Top             =   90
  400.          Width           =   7155
  401.       End
  402.       Begin PZLabel TapeLab 
  403.          Alignment       =   1  'Left Justify - MIDDLE
  404.          BackColor       =   &H00400000&
  405.          BevelInnerWidth =   3
  406.          BevelOuter      =   1  'Inset
  407.          BorderInner     =   1  'Solid
  408.          Caption         =   "You'll really like adjustable margins"
  409.          CaptionMargin   =   300
  410.          CornerSize      =   4
  411.          DirectDraw      =   0   'False
  412.          FontBold        =   -1  'True
  413.          FontItalic      =   0   'False
  414.          FontName        =   "Times New Roman"
  415.          FontSize        =   24
  416.          FontStrikethru  =   0   'False
  417.          FontUnderline   =   0   'False
  418.          ForeColor       =   &H0000FF00&
  419.          Height          =   795
  420.          Icon            =   PZDEMO.FRX:1676
  421.          IconLeft        =   -50
  422.          IconTop         =   8
  423.          Left            =   3750
  424.          TabIndex        =   7
  425.          Top             =   2820
  426.          Width           =   4095
  427.       End
  428.       Begin PZLabel FlickLab 
  429.          Alignment       =   1  'Left Justify - MIDDLE
  430.          BackColor       =   &H00E0FFFF&
  431.          BevelInnerWidth =   3
  432.          BevelOuter      =   1  'Inset
  433.          BorderInner     =   1  'Solid
  434.          Caption         =   "Without Flicker:"
  435.          CaptionMargin   =   10
  436.          CornerSize      =   4
  437.          DirectDraw      =   0   'False
  438.          FontBold        =   -1  'True
  439.          FontItalic      =   0   'False
  440.          FontName        =   "Times New Roman"
  441.          FontSize        =   22.5
  442.          FontStrikethru  =   0   'False
  443.          FontUnderline   =   0   'False
  444.          ForeColor       =   &H00800000&
  445.          Height          =   795
  446.          Left            =   3720
  447.          TabIndex        =   8
  448.          Top             =   1770
  449.          Width           =   4095
  450.       End
  451.       Begin PZLabel TabsLab 
  452.          BackColor       =   &H00C0C0C0&
  453.          BevelOuter      =   2  'Raised
  454.          BevelOuterShading=   4  'Outlined Button
  455.          BevelOuterWidth =   3
  456.          BorderInnerWidth=   2
  457.          Caption         =   "An amazing variety of 3D effects..."
  458.          CaptionMargin   =   10
  459.          CornerSize      =   8
  460.          Font3D          =   4  'Drop Right
  461.          FontBold        =   -1  'True
  462.          FontItalic      =   0   'False
  463.          FontName        =   "Times New Roman"
  464.          FontSize        =   24
  465.          FontStrikethru  =   0   'False
  466.          FontUnderline   =   0   'False
  467.          ForeColor       =   &H00800000&
  468.          Height          =   1755
  469.          Icon            =   PZDEMO.FRX:1978
  470.          IconLeft        =   160
  471.          IconTop         =   74
  472.          Left            =   210
  473.          Picture         =   PZDEMO.FRX:1C7A
  474.          PictureStyle    =   3  'Tiled
  475.          TabIndex        =   9
  476.          Top             =   2040
  477.          Width           =   3315
  478.          WordWrap        =   -1  'True
  479.       End
  480.       Begin PZLabel TabLab 
  481.          Alignment       =   6  'Center - TOP
  482.          AutoClick       =   5  'Tab
  483.          BackColor       =   &H00C0C0C0&
  484.          BevelOuter      =   2  'Raised
  485.          BevelOuterShading=   4  'Outlined Button
  486.          BevelOuterWidth =   3
  487.          Caption         =   "&Or here"
  488.          CaptionPrefix   =   -1  'True
  489.          CornerSize      =   4
  490.          Font3D          =   4  'Drop Right
  491.          FontBold        =   -1  'True
  492.          FontItalic      =   0   'False
  493.          FontName        =   "Times New Roman"
  494.          FontSize        =   9.75
  495.          FontStrikethru  =   0   'False
  496.          FontUnderline   =   0   'False
  497.          ForeColor       =   &H00800000&
  498.          Height          =   555
  499.          Index           =   1
  500.          Left            =   1755
  501.          PictureStyle    =   3  'Tiled
  502.          ShowFocus       =   8
  503.          TabIndex        =   5
  504.          TabStyle        =   1  'Top Tab
  505.          Top             =   1560
  506.          Width           =   1275
  507.          WordWrap        =   -1  'True
  508.       End
  509.       Begin PZLabel TabLab 
  510.          Alignment       =   6  'Center - TOP
  511.          AutoClick       =   5  'Tab
  512.          BackColor       =   &H00C0C0C0&
  513.          BevelOuter      =   2  'Raised
  514.          BevelOuterShading=   4  'Outlined Button
  515.          BevelOuterWidth =   3
  516.          Caption         =   "&You can click here"
  517.          CaptionPrefix   =   -1  'True
  518.          CornerSize      =   4
  519.          Font3D          =   4  'Drop Right
  520.          FontBold        =   -1  'True
  521.          FontItalic      =   0   'False
  522.          FontName        =   "Times New Roman"
  523.          FontSize        =   9.75
  524.          FontStrikethru  =   0   'False
  525.          FontUnderline   =   0   'False
  526.          ForeColor       =   &H00800000&
  527.          Height          =   555
  528.          Index           =   0
  529.          Left            =   495
  530.          PictureStyle    =   3  'Tiled
  531.          ShowFocus       =   8
  532.          TabIndex        =   18
  533.          TabStyle        =   1  'Top Tab
  534.          Top             =   1560
  535.          Width           =   1275
  536.          WordWrap        =   -1  'True
  537.       End
  538.    End
  539.    Begin Timer Timer1 
  540.       Enabled         =   0   'False
  541.       Interval        =   50
  542.       Left            =   30
  543.       Top             =   30
  544.    End
  545.    Begin PZLabel MoreBut 
  546.       Alignment       =   4  'Right Justify - MIDDLE
  547.       AutoClick       =   1  'Command
  548.       BackColor       =   &H00808080&
  549.       BackStyle       =   2  'Opaque (paint corners)
  550.       BevelInnerShading=   3  'Frame
  551.       BevelInnerWidth =   1
  552.       BevelOuter      =   2  'Raised
  553.       BevelOuterShading=   5  '3D Button
  554.       BevelOuterWidth =   3
  555.       BorderOuter     =   1  'Solid
  556.       Caption         =   "&Blah Blah"
  557.       CaptionMargin   =   46
  558.       CaptionPrefix   =   -1  'True
  559.       CornerBackColor =   &H00C0C0C0&
  560.       CornerSize      =   1
  561.       DirectDraw      =   0   'False
  562.       Font3D          =   2  'Block Right
  563.       ForeColor       =   &H00000080&
  564.       GradientColor   =   &H00C0C0C0&
  565.       GradientStyle   =   1  'Vertical
  566.       Height          =   645
  567.       IconLeft        =   60
  568.       IconTop         =   2
  569.       Left            =   6360
  570.       Picture         =   PZDEMO.FRX:226C
  571.       ShowFocus       =   8
  572.       TabIndex        =   13
  573.       Top             =   3990
  574.       Width           =   1605
  575.       WordWrap        =   -1  'True
  576.    End
  577.    Begin PZLabel ComboLab 
  578.       BackColor       =   &H00808080&
  579.       BevelInner      =   2  'Raised
  580.       BevelInnerWidth =   1
  581.       BevelOuter      =   1  'Inset
  582.       BevelOuterShading=   6  '3D Frame
  583.       BorderInner     =   2  'Filled
  584.       BorderInnerWidth=   5
  585.       Caption         =   "three Pizazz labels"
  586.       DirectDraw      =   0   'False
  587.       Font3D          =   2  'Block Right
  588.       Font3DColor     =   &H00E0E0E0&
  589.       FontBold        =   -1  'True
  590.       FontItalic      =   0   'False
  591.       FontName        =   "MS Sans Serif"
  592.       FontSize        =   9.75
  593.       FontStrikethru  =   0   'False
  594.       FontUnderline   =   0   'False
  595.       ForeColor       =   &H00000080&
  596.       GradientColor   =   &H00C0C0C0&
  597.       GradientStyle   =   1  'Vertical
  598.       Height          =   645
  599.       Index           =   2
  600.       Left            =   4020
  601.       TabIndex        =   14
  602.       TabStyle        =   2  'Right Tab
  603.       Top             =   3990
  604.       Width           =   2265
  605.    End
  606.    Begin PZLabel ComboLab 
  607.       BackColor       =   &H00808080&
  608.       BevelInner      =   2  'Raised
  609.       BevelInnerWidth =   1
  610.       BevelOuter      =   1  'Inset
  611.       BevelOuterShading=   6  '3D Frame
  612.       BorderInner     =   2  'Filled
  613.       BorderInnerWidth=   5
  614.       Caption         =   "using just"
  615.       DirectDraw      =   0   'False
  616.       Font3D          =   2  'Block Right
  617.       Font3DColor     =   &H00E0E0E0&
  618.       FontBold        =   -1  'True
  619.       FontItalic      =   0   'False
  620.       FontName        =   "MS Sans Serif"
  621.       FontSize        =   9.75
  622.       FontStrikethru  =   0   'False
  623.       FontUnderline   =   0   'False
  624.       ForeColor       =   &H00000080&
  625.       GradientColor   =   &H00C0C0C0&
  626.       GradientStyle   =   1  'Vertical
  627.       Height          =   645
  628.       Index           =   1
  629.       Left            =   2370
  630.       TabIndex        =   15
  631.       TabStyle        =   9  'No Horz. Side
  632.       Top             =   3990
  633.       Width           =   1695
  634.    End
  635.    Begin PZLabel ComboLab 
  636.       BackColor       =   &H00808080&
  637.       BevelInner      =   2  'Raised
  638.       BevelInnerWidth =   1
  639.       BevelOuter      =   1  'Inset
  640.       BevelOuterShading=   6  '3D Frame
  641.       BorderInner     =   2  'Filled
  642.       BorderInnerWidth=   5
  643.       Caption         =   "This panel made"
  644.       DirectDraw      =   0   'False
  645.       Font3D          =   2  'Block Right
  646.       Font3DColor     =   &H00E0E0E0&
  647.       FontBold        =   -1  'True
  648.       FontItalic      =   0   'False
  649.       FontName        =   "MS Sans Serif"
  650.       FontSize        =   9.75
  651.       FontStrikethru  =   0   'False
  652.       FontUnderline   =   0   'False
  653.       ForeColor       =   &H00000080&
  654.       GradientColor   =   &H00C0C0C0&
  655.       GradientStyle   =   1  'Vertical
  656.       Height          =   645
  657.       Index           =   0
  658.       Left            =   60
  659.       TabIndex        =   16
  660.       TabStyle        =   4  'Left Tab
  661.       Top             =   3990
  662.       Width           =   2355
  663.    End
  664. End
  665. Option Explicit
  666. '*******************************************************
  667. '*                                                     *
  668. '*   Demo program for Pizazz 1.5 Custom Control.       *
  669. '*   Written by Visual Bits                            *
  670. '*   Copyright ⌐ 1995                                  *
  671. '*                                                     *
  672. '*   This software and documentation are supplied      *
  673. '*   "AS IS".  The author makes no warranty of any     *
  674. '*   kind, either express or implied, with respect to  *
  675. '*   this software and accompanying documentation.  In *
  676. '*   no event shall the author of this software be     *
  677. '*   liable for any damages arising out of the use of  *
  678. '*   this product. Your use of this software indicates *
  679. '*   that you have read and agreed to these terms.     *
  680. '*                                                     *
  681. '*   Other then that, you may use this demo program    *
  682. '*   source code in any way you find useful.           *
  683. '*                                                     *
  684. '*                                                     *
  685. '*******************************************************
  686.  
  687. ' form wide variables
  688. Dim ticks As Integer
  689. Dim Cap As String
  690. Dim ColorShift As Long
  691.  
  692. Sub Form_Load ()
  693.     Dim i As Integer
  694.     Dim s As String
  695.  
  696.     ' center the form
  697.     CenterForm Me
  698.     CenterForm NewBut
  699.     CenterForm GradientFrm
  700.     
  701.     MainPan.Move 0, 0, scalewidth
  702.     BigPan.Move 60, 60
  703.  
  704.     ' spread around the texture bitmaps
  705.     PZTab.Picture = PZBut.Picture
  706.  
  707.     For i = 0 To 3
  708.         VCRLab(i).Picture = PZBut.Picture
  709.     Next i
  710.  
  711.     ' set PZTab to clip PZBut - this makes the
  712.     ' two buttons appear as one unit
  713.     PZTab.ClipCtl = PZBut.hCtl
  714.  
  715.     ' clip out these controls so painting the background
  716.     ' avoids the dreaded flash
  717.     FlickLab.ClipCtl = MainPan.hCtl
  718.     TapeLab.ClipCtl = MainPan.hCtl
  719.  
  720.     Cap = FlickLab.Caption
  721.     TabLab(0).Tag = TabsLab.Caption
  722.     TabLab(1).Tag = "At your finger" & Chr$(13) & Chr$(10) & "tips!"
  723.     
  724.     NewBut.Show 1
  725.  
  726.     ' if this is a 256 color system then we can load
  727.     ' into any controls that have a gradient
  728.     ' a bmp with a specail palette so the gradients look better
  729.     ' *NOTE* this is optional (but works real nice)!
  730.     If GetDeviceCaps(hDC, BITSPIXEL) = 8 Then
  731.         s = "Hi there!  Your system currently displays 256 colors. "
  732.         s = s & "Pizazz can do gradient fills which look terrific "
  733.         s = s & "on systems that support more colors. "
  734.         s = s & "You might try running this demo with a setup "
  735.         s = s & "that supports more colors just to see how it looks. "
  736.         s = s & "But even with only 256 colors available Pizazz can "
  737.         s = s & "load palettes to improve the look dramatically.  "
  738.         s = s & "I'll do that now..."
  739.         MsgBox s, 64
  740.         GradientFrm!GradPan.Picture = MainPan.Picture
  741.         GradientFrm!GradLab(0).Picture = TitleLab.Picture
  742.         For i = 0 To 2
  743.             ComboLab(i).Picture = MoreBut.Picture
  744.         Next
  745.  
  746.         ' don't change the colors
  747.         ColorShift = 1
  748.     Else
  749.         ' Palettes? We don't need no stinking palattes!
  750.         ' (this isn't necessary, I'm doing it to save some trivial
  751.         '  amount of memory and show that it can be done)
  752.         MainPan.Picture = LoadPicture("")
  753.         BigPan.Picture = LoadPicture("")
  754.         MoreBut.Picture = LoadPicture("")
  755.         TitleLab.Picture = LoadPicture("")
  756.         ColorShift = 8
  757.     End If
  758.     
  759.     ' Setup MoreBut
  760.     MoreBut_Click
  761.  
  762.     ' Put this tab on top
  763.     TabLab(0).ButtonState = True
  764.  
  765.     GradientFrm.Show 1
  766. End Sub
  767.  
  768. Sub Form_Unload (Cancel As Integer)
  769.     End
  770. End Sub
  771.  
  772. Sub MoreBut_Click ()
  773.     ' this routine demonstrates some techniques to reduce flicker while
  774.     ' using graphical PZLabel controls
  775.     If Timer1.Enabled Then
  776.         MoreBut.Caption = "  &Go Back"
  777.         MoreBut.Alignment = 1
  778.         MoreBut.Icon = TabsLab.Icon
  779.         MoreBut.IconLeft = 10
  780.         
  781.         BigPan.Visible = True
  782.         
  783.         Timer1.Enabled = False
  784.     Else
  785.         MoreBut.Caption = "&There's More!"
  786.         MoreBut.Alignment = 4
  787.         MoreBut.Icon = BigPan.Icon
  788.         MoreBut.IconLeft = 60
  789.         
  790.         BigPan.Visible = False
  791.         
  792.         Timer1.Enabled = Visible
  793.     End If
  794. End Sub
  795.  
  796. Sub PZBut_Click ()
  797.     'use the DoEvnts to allow this button to finish painting
  798.     DoEvents
  799.     ShowBevelOptFrm
  800. End Sub
  801.  
  802. Sub PZTab_Click ()
  803.     PZBut_Click
  804. End Sub
  805.  
  806. Function ShiftGradientColor (ByVal color As Long) As Long
  807.     ' shift around the colors
  808.     color = color * ColorShift
  809.     ' take the byte the shifts off the end of the color and rotate
  810.     ' it back into the low byte
  811.     ShiftGradientColor = (color Or ((color And &HF000000) \ &H1000000)) And &HFFFFFF
  812.  
  813. End Function
  814.  
  815. Function ShiftGradientStyle (ByVal style As Integer) As Integer
  816.     Dim centered As Integer
  817.     centered = style And 4
  818.     style = style + 1 And 3
  819.     If style = 0 Then style = 1
  820.     ShiftGradientStyle = style Or centered
  821. End Function
  822.  
  823. Sub ShowBevelOptFrm ()
  824. '*******************************************************
  825. '*                                                     *
  826. '*   Now for something completely different.  Show a   *
  827. '*   dialog box that is almost entirely created out of *
  828. '*   PZLabels and has tabs, spinners, and option       *
  829. '*   buttons.                                          *
  830. '*                                                     *
  831. '*******************************************************
  832.     
  833.     Dim F As Form, T As PZPanel
  834.     Dim i As Integer
  835.     
  836.     ' use object variables to make my typing easier!
  837.     Set F = BevelOptFrm
  838.     Set T = BigPan
  839.     
  840.     CenterForm F
  841.     
  842.     ' Load the gradient palette
  843.     F!TabPan.Picture = MoreBut.Picture
  844.     For i = 0 To 2
  845.         F!PanCmd(i).Picture = MoreBut.Picture
  846.     Next
  847.  
  848.     ' pass properties using tags
  849.     ShowBevelOptions F, T
  850.     F.Show 1
  851.  
  852.     If Trim$(F.Tag) = "2" Then
  853.         ' OK was pressed
  854.         SetBevelOptions F, T
  855.     End If
  856.  
  857.     Unload BevelOptFrm
  858. End Sub
  859.  
  860. Sub SubLab_Click ()
  861.     TitleLab_Click
  862. End Sub
  863.  
  864. Sub TabLab_Click (Index As Integer)
  865.     If TabLab(Index).ButtonState Then
  866.         TabsLab.Caption = TabLab(Index).Tag
  867.         TabsLab.IconTop = 74 \ (Index + 1)
  868.         TabLab(Index).Picture = TabsLab.Picture
  869.     Else
  870.         TabLab(Index).Picture = LoadPicture("")
  871.     End If
  872. End Sub
  873.  
  874. Sub TabLab_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  875.     ' Disable these controls from painting when they have a palette loaded.
  876.     ' When a tab-like control changes it's zorder, windows sends
  877.     ' a palette change message that repaints these controls.
  878.     ' However by disabling painting the resulting flash is avoided.
  879.     ' Note - this is totally optional!!
  880.     If Visible And MainPan.Picture Then
  881.         MainPan.EnablePainting = False
  882.         TitleLab.EnablePainting = False
  883.     End If
  884.     ' the Timer event automatically enable their painting
  885. End Sub
  886.  
  887. Sub Timer1_Timer ()
  888.     Dim i As Integer, j As Integer, secs As Integer
  889.     Dim clr As Long
  890.     
  891.     secs = ticks Mod 20
  892.     If Me.Visible Then
  893.         ' update the counter and the moving caption
  894.         i = TapeLab.CaptionMargin
  895.         If i < -500 Then i = 300
  896.         TapeLab.CaptionMargin = i - 3
  897.         TapeLab.IconLeft = i - 40
  898.         
  899.         secs = ticks Mod 20
  900.         If secs = 0 Then
  901.             FlickLab.Caption = Cap & Str$(ticks \ 20)
  902.         End If
  903.     ElseIf GradientFrm.Visible And secs = 0 Then
  904.         ' do something fancy
  905.         ' FlashWindow GradientFrm.hWnd, True
  906.         For i = 0 To 2
  907.             ' change the colors in the gradients
  908.             clr = ShiftGradientColor(GradientFrm!GradLab(i).BackColor)
  909.             GradientFrm!GradLab(i).BackColor = GradientFrm!GradLab(i).GradientColor
  910.             GradientFrm!GradLab(i).GradientColor = clr
  911.             ' also change the gradient style for better effect
  912.             If ticks Mod 40 Then
  913.                 GradientFrm!GradLab(i).GradientStyle = ShiftGradientStyle(GradientFrm!GradLab(i).GradientStyle)
  914.             End If
  915.         Next
  916.     End If
  917.         
  918.     ticks = ticks + 1
  919.     If ticks = 2000 Then ticks = 0
  920.  
  921.     ' enable painting for these controls in case this
  922.     ' is a palette system and we disabled painting because
  923.     ' we hate flashing controls in demos
  924.     MainPan.EnablePainting = True
  925.     TitleLab.EnablePainting = True
  926. End Sub
  927.  
  928. Sub TitleLab_Click ()
  929.     ' This should fire up help for topic context ID #1
  930.     WinHelp hWnd, App.Path & "\" & "pizazz.hlp", 1, 3
  931. End Sub
  932.  
  933. Sub VCRLab_Click (Index As Integer)
  934.     If VCRLab(Index).ButtonState Then
  935.         VCRLab(Index).ForeColor = &HC0
  936.     Else
  937.         VCRLab(Index).ForeColor = &H800080
  938.     End If
  939. End Sub
  940.  
  941.