home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / 3CTRLS / 3CTRLS.ZIP / FBUTTONS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-05  |  9.4 KB  |  274 lines
  1. VERSION 2.00
  2. Begin Form fButtons 
  3.    Caption         =   "Be original!!"
  4.    Height          =   5655
  5.    Left            =   630
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   5190
  8.    ScaleWidth      =   5145
  9.    Top             =   375
  10.    Width           =   5325
  11.    Begin VideoSoftElastic VSElastic4 
  12.       Align           =   5  'Fill Container
  13.       BackColor       =   &H00C0C0C0&
  14.       BevelOuter      =   1  'Raised
  15.       BevelOuterWidth =   1
  16.       Height          =   4605
  17.       Left            =   0
  18.       TabIndex        =   7
  19.       Top             =   0
  20.       Width           =   3015
  21.       Begin VideoSoftElastic VSElastic3 
  22.          BackColor       =   &H00C0C0C0&
  23.          BevelInnerWidth =   0
  24.          BevelOuterWidth =   4
  25.          Caption         =   "Push Button "
  26.          CaptionPos      =   7  'Right Center
  27.          Height          =   840
  28.          Index           =   1
  29.          Left            =   315
  30.          TabIndex        =   10
  31.          Top             =   1620
  32.          Width           =   2175
  33.          Begin Image Image2 
  34.             Height          =   480
  35.             Index           =   1
  36.             Left            =   225
  37.             Picture         =   FBUTTONS.FRX:0000
  38.             Top             =   180
  39.             Width           =   480
  40.          End
  41.       End
  42.       Begin VideoSoftElastic VSElastic3 
  43.          AutoSizeChildren=   7  'Proportional
  44.          BackColor       =   &H00C0C0C0&
  45.          BevelInnerWidth =   0
  46.          BevelOuterWidth =   4
  47.          CaptionPos      =   4  'Center Center
  48.          Height          =   840
  49.          Index           =   0
  50.          Left            =   315
  51.          TabIndex        =   1
  52.          TagWidth        =   1500
  53.          Top             =   630
  54.          Width           =   2190
  55.          Begin Image Image2 
  56.             Height          =   480
  57.             Index           =   0
  58.             Left            =   1485
  59.             Picture         =   FBUTTONS.FRX:0302
  60.             Tag             =   "Toggle Button"
  61.             Top             =   180
  62.             Width           =   480
  63.          End
  64.       End
  65.       Begin VideoSoftElastic VSElastic2 
  66.          BackColor       =   &H00C0C0C0&
  67.          BevelInner      =   0  'None
  68.          BevelOuterWidth =   4
  69.          Caption         =   "Multi-line Caption"
  70.          CaptionPos      =   5  'Center Bottom
  71.          Height          =   1185
  72.          Index           =   0
  73.          Left            =   540
  74.          TabIndex        =   8
  75.          Top             =   3015
  76.          Width           =   1320
  77.          Begin Image Image1 
  78.             Height          =   480
  79.             Index           =   0
  80.             Left            =   405
  81.             Picture         =   FBUTTONS.FRX:0604
  82.             Stretch         =   -1  'True
  83.             Top             =   180
  84.             Width           =   480
  85.          End
  86.       End
  87.    End
  88.    Begin VideoSoftElastic VSElastic1 
  89.       Align           =   4  'Align Right
  90.       AutoSizeChildren=   3  'Even Vertical
  91.       BackColor       =   &H00C0C0C0&
  92.       BevelInner      =   0  'None
  93.       BevelOuter      =   1  'Raised
  94.       BevelOuterWidth =   1
  95.       Height          =   4605
  96.       Left            =   3015
  97.       TabIndex        =   0
  98.       Top             =   0
  99.       Width           =   2130
  100.       Begin VideoSoftElastic VSElastic2 
  101.          AutoSizeChildren=   7  'Proportional
  102.          BackColor       =   &H00C0C0C0&
  103.          BevelInner      =   0  'None
  104.          BevelOuterWidth =   4
  105.          Caption         =   "Meals"
  106.          CaptionPos      =   7  'Right Center
  107.          Height          =   660
  108.          Index           =   3
  109.          Left            =   90
  110.          TabIndex        =   9
  111.          Top             =   1605
  112.          Width           =   1950
  113.          Begin Image Image1 
  114.             Height          =   450
  115.             Index           =   3
  116.             Left            =   135
  117.             Picture         =   FBUTTONS.FRX:0906
  118.             Stretch         =   -1  'True
  119.             Top             =   90
  120.             Width           =   480
  121.          End
  122.       End
  123.       Begin VideoSoftElastic VSElastic2 
  124.          AutoSizeChildren=   7  'Proportional
  125.          BackColor       =   &H00C0C0C0&
  126.          BevelInner      =   0  'None
  127.          BevelOuterWidth =   4
  128.          Caption         =   "Mail"
  129.          Height          =   660
  130.          Index           =   8
  131.          Left            =   90
  132.          TabIndex        =   6
  133.          Top             =   3105
  134.          Width           =   1950
  135.          Begin Image Image1 
  136.             Height          =   450
  137.             Index           =   8
  138.             Left            =   1395
  139.             Picture         =   FBUTTONS.FRX:0C08
  140.             Stretch         =   -1  'True
  141.             Top             =   90
  142.             Width           =   480
  143.          End
  144.       End
  145.       Begin VideoSoftElastic VSElastic2 
  146.          AutoSizeChildren=   7  'Proportional
  147.          BackColor       =   &H00C0C0C0&
  148.          BevelInner      =   0  'None
  149.          BevelOuterWidth =   4
  150.          Caption         =   "Phones"
  151.          Height          =   660
  152.          Index           =   6
  153.          Left            =   90
  154.          TabIndex        =   5
  155.          Top             =   3855
  156.          Width           =   1950
  157.          Begin Image Image1 
  158.             Height          =   450
  159.             Index           =   6
  160.             Left            =   1350
  161.             Picture         =   FBUTTONS.FRX:0F0A
  162.             Stretch         =   -1  'True
  163.             Top             =   90
  164.             Width           =   480
  165.          End
  166.       End
  167.       Begin VideoSoftElastic VSElastic2 
  168.          AutoSizeChildren=   7  'Proportional
  169.          BackColor       =   &H00C0C0C0&
  170.          BevelInner      =   0  'None
  171.          BevelOuterWidth =   4
  172.          Caption         =   "Restrooms"
  173.          Height          =   660
  174.          Index           =   5
  175.          Left            =   90
  176.          TabIndex        =   4
  177.          Top             =   2355
  178.          Width           =   1950
  179.          Begin Image Image1 
  180.             Height          =   450
  181.             Index           =   5
  182.             Left            =   1350
  183.             Picture         =   FBUTTONS.FRX:120C
  184.             Stretch         =   -1  'True
  185.             Top             =   120
  186.             Width           =   480
  187.          End
  188.       End
  189.       Begin VideoSoftElastic VSElastic2 
  190.          AutoSizeChildren=   7  'Proportional
  191.          BackColor       =   &H00C0C0C0&
  192.          BevelInner      =   0  'None
  193.          BevelOuterWidth =   4
  194.          Caption         =   "Information"
  195.          CaptionPos      =   7  'Right Center
  196.          Height          =   660
  197.          Index           =   2
  198.          Left            =   90
  199.          TabIndex        =   3
  200.          Top             =   855
  201.          Width           =   1950
  202.          Begin Image Image1 
  203.             Height          =   450
  204.             Index           =   2
  205.             Left            =   135
  206.             Picture         =   FBUTTONS.FRX:150E
  207.             Stretch         =   -1  'True
  208.             Top             =   90
  209.             Width           =   480
  210.          End
  211.       End
  212.       Begin VideoSoftElastic VSElastic2 
  213.          AutoSizeChildren=   7  'Proportional
  214.          BackColor       =   &H00C0C0C0&
  215.          BevelInner      =   0  'None
  216.          BevelOuterWidth =   4
  217.          Caption         =   "Hours"
  218.          CaptionPos      =   7  'Right Center
  219.          Height          =   675
  220.          Index           =   1
  221.          Left            =   90
  222.          TabIndex        =   2
  223.          Top             =   90
  224.          Width           =   1950
  225.          Begin Image Image1 
  226.             Height          =   450
  227.             Index           =   1
  228.             Left            =   135
  229.             Picture         =   FBUTTONS.FRX:1810
  230.             Stretch         =   -1  'True
  231.             Top             =   135
  232.             Width           =   480
  233.          End
  234.       End
  235.    End
  236.    Begin VideoSoftElastic VSElastic5 
  237.       Align           =   2  'Align Bottom
  238.       BackColor       =   &H00C0C0C0&
  239.       Caption         =   "Combination of Elastics and Image controls."
  240.       CaptionPos      =   4  'Center Center
  241.       Height          =   585
  242.       Left            =   0
  243.       TabIndex        =   11
  244.       Top             =   4605
  245.       Width           =   5145
  246.    End
  247. Option Explicit
  248. Sub Image1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  249.   VSElastic2(Index).BevelOuter = 4
  250. End Sub
  251. Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  252.   VSElastic2(Index).BevelOuter = 2
  253. End Sub
  254. Sub Image2_Click (Index As Integer)
  255.   If VSElastic3(Index).BevelOuter = 2 Then
  256.     VSElastic3(Index).BevelOuter = 4
  257.   Else
  258.     VSElastic3(Index).BevelOuter = 2
  259.   End If
  260. End Sub
  261. Sub VSElastic2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  262.   VSElastic2(Index).BevelOuter = 4
  263. End Sub
  264. Sub VSElastic2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  265.   VSElastic2(Index).BevelOuter = 2
  266. End Sub
  267. Sub VSElastic3_Click (Index As Integer)
  268.   If VSElastic3(Index).BevelOuter = 2 Then
  269.     VSElastic3(Index).BevelOuter = 4
  270.   Else
  271.     VSElastic3(Index).BevelOuter = 2
  272.   End If
  273. End Sub
  274.