home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / DBPUSH.ZIP / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-17  |  32.5 KB  |  947 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "DBPush v2.0 Demo"
  5.    ClientHeight    =   5370
  6.    ClientLeft      =   1305
  7.    ClientTop       =   1560
  8.    ClientWidth     =   7980
  9.    ClipControls    =   0   'False
  10.    Height          =   5775
  11.    Left            =   1245
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5370
  14.    ScaleWidth      =   7980
  15.    Top             =   1215
  16.    Width           =   8100
  17.    Begin DBPush DBPush4 
  18.       Alignment       =   2  'Center
  19.       AutoPictureDisabled=   0  'Off
  20.       BackColor       =   &H00C0C0C0&
  21.       BackColorDown   =   &H00E0E0E0&
  22.       BevelWidth      =   2
  23.       Caption         =   "DropShadow"
  24.       CornerColor     =   &H00000000&
  25.       DarkColor       =   &H00808080&
  26.       DropShadow      =   0   'False
  27.       FocusRect       =   0   'False
  28.       Font3D          =   0  'None
  29.       Font3DDisabled  =   0  'None
  30.       ForceDown       =   0   'False
  31.       ForceUp         =   0   'False
  32.       ForeColorDisabled=   &H00000000&
  33.       Height          =   255
  34.       Left            =   2880
  35.       LightColor      =   &H00FFFFFF&
  36.       Outline         =   -1  'True
  37.       OutlineSize     =   1
  38.       PaletteAware    =   0   'False
  39.       PictureFromEdge =   0
  40.       Placement       =   0  'Text below picture
  41.       PredefPicture   =   0  'None
  42.       Style           =   0  'Normal
  43.       TabIndex        =   24
  44.       Top             =   4260
  45.       TransColor      =   &H00000000&
  46.       Transparent     =   0   'False
  47.       VertAlignment   =   2  'Center
  48.       Width           =   1275
  49.    End
  50.    Begin DBPush DBPush3 
  51.       Alignment       =   2  'Center
  52.       AutoPictureDisabled=   0  'Off
  53.       BackColor       =   &H00C0C0C0&
  54.       BackColorDown   =   &H00E0E0E0&
  55.       BevelWidth      =   2
  56.       Caption         =   "Bevel"
  57.       CornerColor     =   &H00000000&
  58.       DarkColor       =   &H00808080&
  59.       DropShadow      =   0   'False
  60.       FocusRect       =   0   'False
  61.       Font3D          =   0  'None
  62.       Font3DDisabled  =   0  'None
  63.       ForceDown       =   0   'False
  64.       ForceUp         =   0   'False
  65.       ForeColorDisabled=   &H00000000&
  66.       Height          =   255
  67.       Left            =   4260
  68.       LightColor      =   &H00FFFFFF&
  69.       Outline         =   -1  'True
  70.       OutlineSize     =   1
  71.       PaletteAware    =   0   'False
  72.       PictureFromEdge =   0
  73.       Placement       =   0  'Text below picture
  74.       PredefPicture   =   0  'None
  75.       Style           =   0  'Normal
  76.       TabIndex        =   23
  77.       Top             =   4260
  78.       TransColor      =   &H00000000&
  79.       Transparent     =   0   'False
  80.       VertAlignment   =   2  'Center
  81.       Width           =   975
  82.    End
  83.    Begin DBPush DBPush23 
  84.       Alignment       =   2  'Center
  85.       AutoPictureDisabled=   0  'Off
  86.       BackColor       =   &H00C0C0C0&
  87.       BackColorDown   =   &H00C0C0C0&
  88.       BevelWidth      =   2
  89.       Caption         =   "Cool!"
  90.       CornerColor     =   &H00000000&
  91.       DarkColor       =   &H00808080&
  92.       DropShadow      =   0   'False
  93.       FocusRect       =   -1  'True
  94.       Font3D          =   0  'None
  95.       Font3DDisabled  =   0  'None
  96.       ForceDown       =   0   'False
  97.       ForceUp         =   0   'False
  98.       ForeColorDisabled=   &H00000000&
  99.       Height          =   1275
  100.       Left            =   2820
  101.       LightColor      =   &H00FFFFFF&
  102.       Outline         =   -1  'True
  103.       OutlineSize     =   1
  104.       PaletteAware    =   0   'False
  105.       Picture         =   FORM1.FRX:0000
  106.       PictureFromEdge =   0
  107.       Placement       =   1  'Text right of picture
  108.       PredefPicture   =   0  'None
  109.       Style           =   0  'Normal
  110.       TabIndex        =   22
  111.       Top             =   2940
  112.       TransColor      =   &H0000FFFF&
  113.       Transparent     =   -1  'True
  114.       VertAlignment   =   2  'Center
  115.       Width           =   2475
  116.    End
  117.    Begin DBPush DBPush2 
  118.       Alignment       =   2  'Center
  119.       AutoPictureDisabled=   0  'Off
  120.       BackColor       =   &H00C0C0C0&
  121.       BackColorDown   =   &H00C0C0C0&
  122.       BevelWidth      =   2
  123.       Caption         =   "Autodisable demo"
  124.       CornerColor     =   &H00000000&
  125.       DarkColor       =   &H00808080&
  126.       DropShadow      =   0   'False
  127.       FocusRect       =   -1  'True
  128.       Font3D          =   0  'None
  129.       Font3DDisabled  =   0  'None
  130.       ForceDown       =   0   'False
  131.       ForceUp         =   0   'False
  132.       ForeColorDisabled=   &H00000000&
  133.       Height          =   735
  134.       Left            =   5400
  135.       LightColor      =   &H00FFFFFF&
  136.       Outline         =   -1  'True
  137.       OutlineSize     =   1
  138.       PaletteAware    =   0   'False
  139.       Picture         =   FORM1.FRX:0A9A
  140.       PictureFromEdge =   0
  141.       Placement       =   1  'Text right of picture
  142.       PredefPicture   =   0  'None
  143.       Style           =   0  'Normal
  144.       TabIndex        =   21
  145.       Top             =   3780
  146.       TransColor      =   &H00000000&
  147.       Transparent     =   0   'False
  148.       VertAlignment   =   2  'Center
  149.       Width           =   2475
  150.    End
  151.    Begin DBPush DBPush1 
  152.       Alignment       =   2  'Center
  153.       AutoPictureDisabled=   0  'Off
  154.       BackColor       =   &H00C0C0C0&
  155.       BackColorDown   =   &H00E0E0E0&
  156.       BevelWidth      =   2
  157.       Caption         =   "Yellow"
  158.       CornerColor     =   &H00000000&
  159.       DarkColor       =   &H00808080&
  160.       DropShadow      =   0   'False
  161.       FocusRect       =   -1  'True
  162.       Font3D          =   0  'None
  163.       Font3DDisabled  =   0  'None
  164.       ForceDown       =   0   'False
  165.       ForceUp         =   0   'False
  166.       ForeColorDisabled=   &H00000000&
  167.       Height          =   315
  168.       Index           =   3
  169.       Left            =   1440
  170.       LightColor      =   &H00FFFFFF&
  171.       Outline         =   -1  'True
  172.       OutlineSize     =   1
  173.       PaletteAware    =   0   'False
  174.       PictureFromEdge =   0
  175.       Placement       =   0  'Text below picture
  176.       PredefPicture   =   0  'None
  177.       Style           =   0  'Normal
  178.       TabIndex        =   20
  179.       Top             =   4920
  180.       TransColor      =   &H00000000&
  181.       Transparent     =   0   'False
  182.       VertAlignment   =   2  'Center
  183.       Width           =   855
  184.    End
  185.    Begin DBPush DBPush1 
  186.       Alignment       =   2  'Center
  187.       AutoPictureDisabled=   0  'Off
  188.       BackColor       =   &H00C0C0C0&
  189.       BackColorDown   =   &H00E0E0E0&
  190.       BevelWidth      =   2
  191.       Caption         =   "White"
  192.       CornerColor     =   &H00000000&
  193.       DarkColor       =   &H00808080&
  194.       DropShadow      =   0   'False
  195.       FocusRect       =   -1  'True
  196.       Font3D          =   0  'None
  197.       Font3DDisabled  =   0  'None
  198.       ForceDown       =   0   'False
  199.       ForceUp         =   0   'False
  200.       ForeColorDisabled=   &H00000000&
  201.       Height          =   315
  202.       Index           =   2
  203.       Left            =   480
  204.       LightColor      =   &H00FFFFFF&
  205.       Outline         =   -1  'True
  206.       OutlineSize     =   1
  207.       PaletteAware    =   0   'False
  208.       PictureFromEdge =   0
  209.       Placement       =   0  'Text below picture
  210.       PredefPicture   =   0  'None
  211.       Style           =   0  'Normal
  212.       TabIndex        =   19
  213.       Top             =   4920
  214.       TransColor      =   &H00000000&
  215.       Transparent     =   0   'False
  216.       VertAlignment   =   2  'Center
  217.       Width           =   855
  218.    End
  219.    Begin DBPush DBPush1 
  220.       Alignment       =   2  'Center
  221.       AutoPictureDisabled=   0  'Off
  222.       BackColor       =   &H00C0C0C0&
  223.       BackColorDown   =   &H00E0E0E0&
  224.       BevelWidth      =   2
  225.       Caption         =   "Black"
  226.       CornerColor     =   &H00000000&
  227.       DarkColor       =   &H00808080&
  228.       DropShadow      =   0   'False
  229.       FocusRect       =   -1  'True
  230.       Font3D          =   0  'None
  231.       Font3DDisabled  =   0  'None
  232.       ForceDown       =   0   'False
  233.       ForceUp         =   0   'False
  234.       ForeColorDisabled=   &H00000000&
  235.       Height          =   315
  236.       Index           =   1
  237.       Left            =   1440
  238.       LightColor      =   &H00FFFFFF&
  239.       Outline         =   -1  'True
  240.       OutlineSize     =   1
  241.       PaletteAware    =   0   'False
  242.       PictureFromEdge =   0
  243.       Placement       =   0  'Text below picture
  244.       PredefPicture   =   0  'None
  245.       Style           =   0  'Normal
  246.       TabIndex        =   18
  247.       Top             =   4560
  248.       TransColor      =   &H00000000&
  249.       Transparent     =   0   'False
  250.       VertAlignment   =   2  'Center
  251.       Width           =   855
  252.    End
  253.    Begin DBPush DBPush13 
  254.       Alignment       =   2  'Center
  255.       AutoPictureDisabled=   0  'Off
  256.       BackColor       =   &H00C0C0C0&
  257.       BackColorDown   =   &H00E0E0E0&
  258.       BevelWidth      =   2
  259.       Caption         =   "Transparent picture demo"
  260.       CornerColor     =   &H00000000&
  261.       DarkColor       =   &H00808080&
  262.       DropShadow      =   0   'False
  263.       FocusRect       =   -1  'True
  264.       Font3D          =   0  'None
  265.       Font3DDisabled  =   0  'None
  266.       ForceDown       =   0   'False
  267.       ForceUp         =   0   'False
  268.       ForeColorDisabled=   &H00000000&
  269.       Height          =   1575
  270.       Left            =   240
  271.       LightColor      =   &H00FFFFFF&
  272.       Outline         =   -1  'True
  273.       OutlineSize     =   1
  274.       PaletteAware    =   0   'False
  275.       Picture         =   FORM1.FRX:0D9C
  276.       PictureFromEdge =   0
  277.       Placement       =   0  'Text below picture
  278.       PredefPicture   =   0  'None
  279.       Style           =   0  'Normal
  280.       TabIndex        =   13
  281.       Top             =   2940
  282.       TransColor      =   &H0000FFFF&
  283.       Transparent     =   0   'False
  284.       VertAlignment   =   1  'Bottom
  285.       Width           =   2475
  286.    End
  287.    Begin DBPush cmdHelp 
  288.       Alignment       =   2  'Center
  289.       AutoPictureDisabled=   0  'Off
  290.       BackColor       =   &H00C0C0C0&
  291.       BackColorDown   =   &H00C0C0C0&
  292.       BevelWidth      =   2
  293.       Caption         =   "Help"
  294.       CornerColor     =   &H00C0C0C0&
  295.       DarkColor       =   &H00808080&
  296.       DropShadow      =   0   'False
  297.       FocusRect       =   -1  'True
  298.       Font3D          =   0  'None
  299.       Font3DDisabled  =   0  'None
  300.       ForceDown       =   0   'False
  301.       ForceUp         =   0   'False
  302.       ForeColorDisabled=   &H00000000&
  303.       Height          =   492
  304.       Left            =   4740
  305.       LightColor      =   &H00FFFFFF&
  306.       Outline         =   -1  'True
  307.       OutlineSize     =   1
  308.       PaletteAware    =   0   'False
  309.       PictureFromEdge =   0
  310.       Placement       =   1  'Text right of picture
  311.       PredefPicture   =   3  'Help
  312.       Style           =   0  'Normal
  313.       TabIndex        =   15
  314.       Top             =   4740
  315.       TransColor      =   &H00000000&
  316.       Transparent     =   0   'False
  317.       VertAlignment   =   2  'Center
  318.       Width           =   1392
  319.    End
  320.    Begin DBPush DBPush1 
  321.       Alignment       =   2  'Center
  322.       AutoPictureDisabled=   0  'Off
  323.       BackColor       =   &H00C0C0C0&
  324.       BackColorDown   =   &H00E0E0E0&
  325.       BevelWidth      =   2
  326.       Caption         =   "None"
  327.       CornerColor     =   &H00000000&
  328.       DarkColor       =   &H00808080&
  329.       DropShadow      =   0   'False
  330.       FocusRect       =   -1  'True
  331.       Font3D          =   0  'None
  332.       Font3DDisabled  =   0  'None
  333.       ForceDown       =   -1  'True
  334.       ForceUp         =   0   'False
  335.       ForeColorDisabled=   &H00000000&
  336.       Height          =   315
  337.       Index           =   0
  338.       Left            =   480
  339.       LightColor      =   &H00FFFFFF&
  340.       Outline         =   -1  'True
  341.       OutlineSize     =   1
  342.       PaletteAware    =   0   'False
  343.       PictureFromEdge =   0
  344.       Placement       =   0  'Text below picture
  345.       PredefPicture   =   0  'None
  346.       Style           =   0  'Normal
  347.       TabIndex        =   14
  348.       Top             =   4560
  349.       TransColor      =   &H00000000&
  350.       Transparent     =   0   'False
  351.       VertAlignment   =   2  'Center
  352.       Width           =   855
  353.    End
  354.    Begin DBPush DBPush33 
  355.       Alignment       =   2  'Center
  356.       AutoPictureDisabled=   0  'Off
  357.       BackColor       =   &H00C0C0C0&
  358.       BackColorDown   =   &H00C0C0C0&
  359.       BevelWidth      =   1
  360.       Caption         =   "Even this panel||is a DBPush!"
  361.       CornerColor     =   &H00000000&
  362.       DarkColor       =   &H00808080&
  363.       DropShadow      =   0   'False
  364.       FocusRect       =   0   'False
  365.       Font3D          =   3  'Inset w/light shading
  366.       Font3DDisabled  =   0  'None
  367.       ForceDown       =   -1  'True
  368.       ForceUp         =   0   'False
  369.       ForeColor       =   &H00FF0000&
  370.       ForeColorDisabled=   &H00000000&
  371.       Height          =   675
  372.       Left            =   5400
  373.       LightColor      =   &H00FFFFFF&
  374.       Outline         =   0   'False
  375.       OutlineSize     =   0
  376.       PaletteAware    =   0   'False
  377.       PictureFromEdge =   0
  378.       Placement       =   0  'Text below picture
  379.       PredefPicture   =   0  'None
  380.       Style           =   1  'Sink deep
  381.       TabIndex        =   17
  382.       TabStop         =   0   'False
  383.       Top             =   2940
  384.       TransColor      =   &H00000000&
  385.       Transparent     =   0   'False
  386.       VertAlignment   =   2  'Center
  387.       Width           =   2475
  388.    End
  389.    Begin DBPush DBPush320 
  390.       Alignment       =   2  'Center
  391.       AutoPictureDisabled=   0  'Off
  392.       BackColor       =   &H00C0C0C0&
  393.       BackColorDown   =   &H00E0E0E0&
  394.       BevelWidth      =   2
  395.       Caption         =   "Next"
  396.       CornerColor     =   &H00000000&
  397.       DarkColor       =   &H00808080&
  398.       DropShadow      =   0   'False
  399.       FocusRect       =   0   'False
  400.       Font3D          =   0  'None
  401.       Font3DDisabled  =   0  'None
  402.       ForceDown       =   0   'False
  403.       ForceUp         =   0   'False
  404.       ForeColorDisabled=   &H00000000&
  405.       Height          =   252
  406.       Left            =   5520
  407.       LightColor      =   &H00FFFFFF&
  408.       Outline         =   -1  'True
  409.       OutlineSize     =   1
  410.       PaletteAware    =   0   'False
  411.       PictureFromEdge =   0
  412.       Placement       =   0  'Text below picture
  413.       PredefPicture   =   0  'None
  414.       Style           =   0  'Normal
  415.       TabIndex        =   11
  416.       Top             =   2520
  417.       TransColor      =   &H00000000&
  418.       Transparent     =   0   'False
  419.       VertAlignment   =   2  'Center
  420.       Width           =   1032
  421.    End
  422.    Begin DBPush DBPush321 
  423.       Alignment       =   2  'Center
  424.       AutoPictureDisabled=   0  'Off
  425.       BackColor       =   &H00C0C0C0&
  426.       BackColorDown   =   &H00E0E0E0&
  427.       BevelWidth      =   2
  428.       Caption         =   "Disable"
  429.       CornerColor     =   &H00000000&
  430.       DarkColor       =   &H00808080&
  431.       DropShadow      =   0   'False
  432.       FocusRect       =   0   'False
  433.       Font3D          =   0  'None
  434.       Font3DDisabled  =   0  'None
  435.       ForceDown       =   0   'False
  436.       ForceUp         =   0   'False
  437.       ForeColorDisabled=   &H00000000&
  438.       Height          =   252
  439.       Left            =   6720
  440.       LightColor      =   &H00FFFFFF&
  441.       Outline         =   -1  'True
  442.       OutlineSize     =   1
  443.       PaletteAware    =   0   'False
  444.       PictureFromEdge =   0
  445.       Placement       =   0  'Text below picture
  446.       PredefPicture   =   0  'None
  447.       Style           =   0  'Normal
  448.       TabIndex        =   12
  449.       Top             =   2520
  450.       TransColor      =   &H00000000&
  451.       Transparent     =   0   'False
  452.       VertAlignment   =   2  'Center
  453.       Width           =   1032
  454.    End
  455.    Begin DBPush cmdExit 
  456.       Alignment       =   2  'Center
  457.       AutoPictureDisabled=   0  'Off
  458.       BackColor       =   &H00C0C0C0&
  459.       BackColorDown   =   &H00C0C0C0&
  460.       BevelWidth      =   2
  461.       Caption         =   "Exit"
  462.       CornerColor     =   &H00C0C0C0&
  463.       DarkColor       =   &H00808080&
  464.       DropShadow      =   0   'False
  465.       FocusRect       =   -1  'True
  466.       Font3D          =   0  'None
  467.       Font3DDisabled  =   0  'None
  468.       ForceDown       =   0   'False
  469.       ForceUp         =   0   'False
  470.       ForeColorDisabled=   &H00000000&
  471.       Height          =   492
  472.       Left            =   6240
  473.       LightColor      =   &H00FFFFFF&
  474.       Outline         =   -1  'True
  475.       OutlineSize     =   1
  476.       PaletteAware    =   0   'False
  477.       PictureFromEdge =   0
  478.       Placement       =   1  'Text right of picture
  479.       PredefPicture   =   2  'Cancel
  480.       Style           =   0  'Normal
  481.       TabIndex        =   16
  482.       Top             =   4740
  483.       TransColor      =   &H00000000&
  484.       Transparent     =   0   'False
  485.       VertAlignment   =   2  'Center
  486.       Width           =   1392
  487.    End
  488.    Begin DBPush DBPush223 
  489.       Alignment       =   2  'Center
  490.       AutoPictureDisabled=   0  'Off
  491.       BackColor       =   &H00C0C0C0&
  492.       BackColorDown   =   &H00E0E0E0&
  493.       BevelWidth      =   2
  494.       Caption         =   "Bevel"
  495.       CornerColor     =   &H00000000&
  496.       DarkColor       =   &H00808080&
  497.       DropShadow      =   0   'False
  498.       FocusRect       =   0   'False
  499.       Font3D          =   0  'None
  500.       Font3DDisabled  =   0  'None
  501.       ForceDown       =   0   'False
  502.       ForceUp         =   0   'False
  503.       ForeColorDisabled=   &H00000000&
  504.       Height          =   252
  505.       Left            =   4140
  506.       LightColor      =   &H00FFFFFF&
  507.       Outline         =   -1  'True
  508.       OutlineSize     =   1
  509.       PaletteAware    =   0   'False
  510.       PictureFromEdge =   0
  511.       Placement       =   0  'Text below picture
  512.       PredefPicture   =   0  'None
  513.       Style           =   0  'Normal
  514.       TabIndex        =   9
  515.       Top             =   2520
  516.       TransColor      =   &H00000000&
  517.       Transparent     =   0   'False
  518.       VertAlignment   =   2  'Center
  519.       Width           =   1092
  520.    End
  521.    Begin DBPush DBPush222 
  522.       Alignment       =   2  'Center
  523.       AutoPictureDisabled=   0  'Off
  524.       BackColor       =   &H00C0C0C0&
  525.       BackColorDown   =   &H00E0E0E0&
  526.       BevelWidth      =   2
  527.       Caption         =   "Outline"
  528.       CornerColor     =   &H00000000&
  529.       DarkColor       =   &H00808080&
  530.       DropShadow      =   0   'False
  531.       FocusRect       =   0   'False
  532.       Font3D          =   0  'None
  533.       Font3DDisabled  =   0  'None
  534.       ForceDown       =   0   'False
  535.       ForceUp         =   0   'False
  536.       ForeColorDisabled=   &H00000000&
  537.       Height          =   252
  538.       Left            =   2940
  539.       LightColor      =   &H00FFFFFF&
  540.       Outline         =   -1  'True
  541.       OutlineSize     =   1
  542.       PaletteAware    =   0   'False
  543.       PictureFromEdge =   0
  544.       Placement       =   0  'Text below picture
  545.       PredefPicture   =   0  'None
  546.       Style           =   0  'Normal
  547.       TabIndex        =   8
  548.       Top             =   2520
  549.       TransColor      =   &H00000000&
  550.       Transparent     =   0   'False
  551.       VertAlignment   =   2  'Center
  552.       Width           =   1092
  553.    End
  554.    Begin DBPush DBPush221 
  555.       Alignment       =   2  'Center
  556.       AutoPictureDisabled=   0  'Off
  557.       BackColor       =   &H00C0C0C0&
  558.       BackColorDown   =   &H00E0E0E0&
  559.       BevelWidth      =   2
  560.       Caption         =   "Sink deep"
  561.       CornerColor     =   &H00000000&
  562.       DarkColor       =   &H00808080&
  563.       DropShadow      =   0   'False
  564.       FocusRect       =   0   'False
  565.       Font3D          =   0  'None
  566.       Font3DDisabled  =   0  'None
  567.       ForceDown       =   0   'False
  568.       ForceUp         =   0   'False
  569.       ForeColorDisabled=   &H00000000&
  570.       Height          =   252
  571.       Left            =   4140
  572.       LightColor      =   &H00FFFFFF&
  573.       Outline         =   -1  'True
  574.       OutlineSize     =   1
  575.       PaletteAware    =   0   'False
  576.       PictureFromEdge =   0
  577.       Placement       =   0  'Text below picture
  578.       PredefPicture   =   0  'None
  579.       Style           =   0  'Normal
  580.       TabIndex        =   7
  581.       Top             =   2220
  582.       TransColor      =   &H00000000&
  583.       Transparent     =   0   'False
  584.       VertAlignment   =   2  'Center
  585.       Width           =   1092
  586.    End
  587.    Begin DBPush DBPush220 
  588.       Alignment       =   2  'Center
  589.       AutoPictureDisabled=   0  'Off
  590.       BackColor       =   &H00C0C0C0&
  591.       BackColorDown   =   &H00E0E0E0&
  592.       BevelWidth      =   2
  593.       Caption         =   "Ellipse"
  594.       CornerColor     =   &H00000000&
  595.       DarkColor       =   &H00808080&
  596.       DropShadow      =   0   'False
  597.       FocusRect       =   0   'False
  598.       Font3D          =   0  'None
  599.       Font3DDisabled  =   0  'None
  600.       ForceDown       =   0   'False
  601.       ForceUp         =   0   'False
  602.       ForeColorDisabled=   &H00000000&
  603.       Height          =   252
  604.       Left            =   2940
  605.       LightColor      =   &H00FFFFFF&
  606.       Outline         =   -1  'True
  607.       OutlineSize     =   1
  608.       PaletteAware    =   0   'False
  609.       PictureFromEdge =   0
  610.       Placement       =   0  'Text below picture
  611.       PredefPicture   =   0  'None
  612.       Style           =   0  'Normal
  613.       TabIndex        =   6
  614.       Top             =   2220
  615.       TransColor      =   &H00000000&
  616.       Transparent     =   0   'False
  617.       VertAlignment   =   2  'Center
  618.       Width           =   1092
  619.    End
  620.    Begin DBPush DBPush110 
  621.       Alignment       =   2  'Center
  622.       AutoPictureDisabled=   0  'Off
  623.       BackColor       =   &H00C0C0C0&
  624.       BackColorDown   =   &H00E0E0E0&
  625.       BevelWidth      =   2
  626.       Caption         =   "Disable"
  627.       CornerColor     =   &H00000000&
  628.       DarkColor       =   &H00808080&
  629.       DropShadow      =   0   'False
  630.       FocusRect       =   0   'False
  631.       Font3D          =   0  'None
  632.       Font3DDisabled  =   0  'None
  633.       ForceDown       =   0   'False
  634.       ForceUp         =   0   'False
  635.       ForeColorDisabled=   &H00000000&
  636.       Height          =   252
  637.       Left            =   900
  638.       LightColor      =   &H00FFFFFF&
  639.       Outline         =   -1  'True
  640.       OutlineSize     =   1
  641.       PaletteAware    =   0   'False
  642.       PictureFromEdge =   0
  643.       Placement       =   0  'Text below picture
  644.       PredefPicture   =   0  'None
  645.       Style           =   0  'Normal
  646.       TabIndex        =   1
  647.       Top             =   1140
  648.       TransColor      =   &H00000000&
  649.       Transparent     =   0   'False
  650.       VertAlignment   =   2  'Center
  651.       Width           =   1152
  652.    End
  653.    Begin DBPush DBPush12 
  654.       Alignment       =   2  'Center
  655.       AutoPictureDisabled=   0  'Off
  656.       BackColor       =   &H00C0C0C0&
  657.       BackColorDown   =   &H00C0C0C0&
  658.       BevelWidth      =   2
  659.       Caption         =   "Alignment demo"
  660.       CornerColor     =   &H00000000&
  661.       DarkColor       =   &H00808080&
  662.       DropShadow      =   0   'False
  663.       FocusRect       =   -1  'True
  664.       Font3D          =   0  'None
  665.       Font3DDisabled  =   0  'None
  666.       ForceDown       =   0   'False
  667.       ForceUp         =   0   'False
  668.       ForeColorDisabled=   &H00000000&
  669.       Height          =   1275
  670.       Left            =   240
  671.       LightColor      =   &H00FFFFFF&
  672.       Outline         =   -1  'True
  673.       OutlineSize     =   1
  674.       PaletteAware    =   0   'False
  675.       PictureFromEdge =   0
  676.       Placement       =   0  'Text below picture
  677.       PredefPicture   =   0  'None
  678.       Style           =   0  'Normal
  679.       TabIndex        =   4
  680.       Top             =   1500
  681.       TransColor      =   &H00000000&
  682.       Transparent     =   0   'False
  683.       VertAlignment   =   2  'Center
  684.       Width           =   2475
  685.    End
  686.    Begin DBPush DBPush21 
  687.       Alignment       =   2  'Center
  688.       AutoPictureDisabled=   0  'Off
  689.       BackColor       =   &H00C0C0C0&
  690.       BackColorDown   =   &H00C0C0C0&
  691.       BevelWidth      =   2
  692.       Caption         =   "Different picture when depressed"
  693.       CornerColor     =   &H00000000&
  694.       DarkColor       =   &H00808080&
  695.       DropShadow      =   0   'False
  696.       FocusRect       =   -1  'True
  697.       Font3D          =   0  'None
  698.       Font3DDisabled  =   0  'None
  699.       ForceDown       =   0   'False
  700.       ForceUp         =   0   'False
  701.       ForeColorDisabled=   &H00000000&
  702.       Height          =   1215
  703.       Left            =   2820
  704.       LightColor      =   &H00FFFFFF&
  705.       Outline         =   -1  'True
  706.       OutlineSize     =   1
  707.       PaletteAware    =   0   'False
  708.       Picture         =   FORM1.FRX:1836
  709.       PictureDown     =   FORM1.FRX:1B38
  710.       PictureFromEdge =   0
  711.       Placement       =   0  'Text below picture
  712.       PredefPicture   =   0  'None
  713.       Style           =   0  'Normal
  714.       TabIndex        =   2
  715.       Top             =   180
  716.       TransColor      =   &H00000000&
  717.       Transparent     =   0   'False
  718.       VertAlignment   =   2  'Center
  719.       Width           =   2475
  720.    End
  721.    Begin DBPush DBPush22 
  722.       Alignment       =   2  'Center
  723.       AutoPictureDisabled=   0  'Off
  724.       BackColor       =   &H00C0C0C0&
  725.       BackColorDown   =   &H00C0C0C0&
  726.       BevelWidth      =   2
  727.       Caption         =   "Style demo"
  728.       CornerColor     =   &H00C0C0C0&
  729.       DarkColor       =   &H00808080&
  730.       DropShadow      =   0   'False
  731.       FocusRect       =   -1  'True
  732.       Font3D          =   0  'None
  733.       Font3DDisabled  =   0  'None
  734.       ForceDown       =   0   'False
  735.       ForceUp         =   0   'False
  736.       ForeColorDisabled=   &H00000000&
  737.       Height          =   675
  738.       Left            =   2820
  739.       LightColor      =   &H00FFFFFF&
  740.       Outline         =   0   'False
  741.       OutlineSize     =   0
  742.       PaletteAware    =   0   'False
  743.       PictureFromEdge =   0
  744.       Placement       =   0  'Text below picture
  745.       PredefPicture   =   0  'None
  746.       Style           =   0  'Normal
  747.       TabIndex        =   5
  748.       Top             =   1500
  749.       TransColor      =   &H00000000&
  750.       Transparent     =   0   'False
  751.       VertAlignment   =   2  'Center
  752.       Width           =   2475
  753.    End
  754.    Begin DBPush DBPush31 
  755.       Alignment       =   2  'Center
  756.       AutoPictureDisabled=   0  'Off
  757.       BackColor       =   &H00C0C0C0&
  758.       BackColorDown   =   &H00C0C0C0&
  759.       BevelWidth      =   2
  760.       Caption         =   "Custom cursor demo"
  761.       CornerColor     =   &H00000000&
  762.       CustomCursor    =   FORM1.FRX:1E3A
  763.       DarkColor       =   &H00808080&
  764.       DropShadow      =   0   'False
  765.       FocusRect       =   -1  'True
  766.       Font3D          =   2  'Raised w/heavy shading
  767.       Font3DDisabled  =   0  'None
  768.       FontBold        =   -1  'True
  769.       FontItalic      =   0   'False
  770.       FontName        =   "MS Sans Serif"
  771.       FontSize        =   13.5
  772.       FontStrikethru  =   0   'False
  773.       FontUnderline   =   0   'False
  774.       ForceDown       =   0   'False
  775.       ForceUp         =   0   'False
  776.       ForeColorDisabled=   &H00000000&
  777.       Height          =   1215
  778.       Left            =   5400
  779.       LightColor      =   &H00FFFFFF&
  780.       Outline         =   -1  'True
  781.       OutlineSize     =   1
  782.       PaletteAware    =   0   'False
  783.       PictureFromEdge =   0
  784.       Placement       =   0  'Text below picture
  785.       PredefPicture   =   0  'None
  786.       Style           =   0  'Normal
  787.       TabIndex        =   3
  788.       Top             =   180
  789.       TransColor      =   &H00000000&
  790.       Transparent     =   0   'False
  791.       VertAlignment   =   2  'Center
  792.       Width           =   2475
  793.    End
  794.    Begin DBPush DBPush32 
  795.       Alignment       =   2  'Center
  796.       AutoPictureDisabled=   0  'Off
  797.       BackColor       =   &H00C0C0C0&
  798.       BackColorDown   =   &H00C0C0C0&
  799.       BevelWidth      =   2
  800.       Caption         =   "Predefined picture demo"
  801.       CornerColor     =   &H00000000&
  802.       DarkColor       =   &H00808080&
  803.       DropShadow      =   0   'False
  804.       FocusRect       =   -1  'True
  805.       Font3D          =   0  'None
  806.       Font3DDisabled  =   3  'Inset w/light shading
  807.       ForceDown       =   0   'False
  808.       ForceUp         =   0   'False
  809.       ForeColorDisabled=   &H00808080&
  810.       Height          =   975
  811.       Left            =   5400
  812.       LightColor      =   &H00FFFFFF&
  813.       Outline         =   -1  'True
  814.       OutlineSize     =   1
  815.       PaletteAware    =   0   'False
  816.       PictureFromEdge =   0
  817.       Placement       =   1  'Text right of picture
  818.       PredefPicture   =   1  'OK
  819.       Style           =   0  'Normal
  820.       TabIndex        =   10
  821.       Top             =   1500
  822.       TransColor      =   &H00000000&
  823.       Transparent     =   0   'False
  824.       VertAlignment   =   2  'Center
  825.       Width           =   2475
  826.    End
  827.    Begin DBPush DBPush11 
  828.       Alignment       =   2  'Center
  829.       AutoPictureDisabled=   0  'Off
  830.       BackColor       =   &H00C0C0C0&
  831.       BackColorDown   =   &H00C0C0C0&
  832.       BevelWidth      =   2
  833.       Caption         =   "Placement demo"
  834.       CornerColor     =   &H00000000&
  835.       DarkColor       =   &H00808080&
  836.       DropShadow      =   0   'False
  837.       FocusRect       =   -1  'True
  838.       Font3D          =   0  'None
  839.       Font3DDisabled  =   3  'Inset w/light shading
  840.       ForceDown       =   0   'False
  841.       ForceUp         =   0   'False
  842.       ForeColorDisabled=   &H00808080&
  843.       Height          =   915
  844.       Left            =   240
  845.       LightColor      =   &H00FFFFFF&
  846.       Outline         =   -1  'True
  847.       OutlineSize     =   1
  848.       PaletteAware    =   0   'False
  849.       Picture         =   FORM1.FRX:213C
  850.       PictureDisabled =   FORM1.FRX:243E
  851.       PictureFromEdge =   0
  852.       Placement       =   0  'Text below picture
  853.       PredefPicture   =   0  'None
  854.       Style           =   0  'Normal
  855.       TabIndex        =   0
  856.       Top             =   180
  857.       TransColor      =   &H00000000&
  858.       Transparent     =   0   'False
  859.       VertAlignment   =   2  'Center
  860.       Width           =   2475
  861.    End
  862. Option Explicit
  863. Dim nCurrentButtonDown As Integer
  864. Sub cmdExit_Click ()
  865.   End
  866. End Sub
  867. Sub cmdHelp_Click ()
  868.   Dim S As String
  869.   S = "DBPush is an enhanced 3D command button control. Most "
  870.   S = S + "of its features my be tried out in this demo. For a "
  871.   S = S + "complete description, please refer to the document "
  872.   S = S + """DBPUSH.WRI.""" + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
  873.   S = S + "DBPush was written by Dan Bystr
  874. m." + Chr$(13) + Chr$(10)
  875.   S = S + "e-mail: ""dan.bystrom@adb-partner.se"""
  876.   MsgBox S, 0, "About DBPush"
  877. End Sub
  878. Sub DBPush1_Click (Index As Integer)
  879.   DBPush1(nCurrentButtonDown).ForceDown = False
  880.   DBPush1(Index).ForceDown = True
  881.   nCurrentButtonDown = Index
  882.   Select Case nCurrentButtonDown
  883.     Case 0:
  884.       DBPush13.Transparent = False
  885.     Case 1:
  886.       DBPush13.Transparent = True
  887.       DBPush13.TransColor = 0
  888.     Case 2:
  889.       DBPush13.Transparent = True
  890.       DBPush13.TransColor = &HFFFFFF
  891.     Case 3:
  892.       DBPush13.Transparent = True
  893.       DBPush13.TransColor = &HFFFF&
  894.   End Select
  895. End Sub
  896. Sub DBPush11_Click ()
  897.   DBPush11.Placement = (DBPush11.Placement + 1) Mod 5
  898.   Select Case DBPush11.Placement
  899.     Case 0: DBPush11.Caption = "Picture above text"
  900.     Case 1: DBPush11.Caption = "Picture left of text"
  901.     Case 2: DBPush11.Caption = "Picture below text"
  902.     Case 3: DBPush11.Caption = "Picture right of text"
  903.     Case 4: DBPush11.Caption = "Text on top of picture"
  904.   End Select
  905. End Sub
  906. Sub DBPush110_Click ()
  907.   DBPush11.Enabled = DBPush110.ForceDown
  908.   DBPush110.ForceDown = Not DBPush110.ForceDown
  909. End Sub
  910. Sub DBPush12_Click ()
  911.   DBPush12.Alignment = (DBPush12.Alignment + 1) Mod 3
  912.   If DBPush12.Alignment = 0 Then
  913.     DBPush12.VertAlignment = (DBPush12.VertAlignment + 1) Mod 3
  914.   End If
  915. End Sub
  916. Sub DBPush2_Click ()
  917.   frmAutoDisable.Show 1
  918. End Sub
  919. Sub DBPush220_Click ()
  920.   DBPush220.ForceDown = Not DBPush220.ForceDown
  921.   DBPush22.Style = (DBPush22.Style And 1) + IIf(DBPush220.ForceDown, 2, 0)
  922. End Sub
  923. Sub DBPush221_Click ()
  924.   DBPush221.ForceDown = Not DBPush221.ForceDown
  925.   DBPush22.Style = (DBPush22.Style And 2) + IIf(DBPush221.ForceDown, 1, 0)
  926. End Sub
  927. Sub DBPush222_Click ()
  928.   DBPush22.OutlineSize = (DBPush22.OutlineSize + 1) Mod 4
  929. End Sub
  930. Sub DBPush223_Click ()
  931.   DBPush22.BevelWidth = (DBPush22.BevelWidth + 1) Mod 5
  932. End Sub
  933. Sub DBPush3_Click ()
  934.   DBPush23.BevelWidth = (DBPush23.BevelWidth + 1) Mod 5
  935. End Sub
  936. Sub DBPush320_Click ()
  937.   DBPush32.PredefPicture = 1 + DBPush32.PredefPicture Mod 5
  938. End Sub
  939. Sub DBPush321_Click ()
  940.   DBPush32.Enabled = DBPush321.ForceDown
  941.   DBPush321.ForceDown = Not DBPush321.ForceDown
  942. End Sub
  943. Sub DBPush4_Click ()
  944.   DBPush4.ForceDown = Not DBPush4.ForceDown
  945.   DBPush23.DropShadow = Not DBPush23.DropShadow
  946. End Sub
  947.