QBasic & Borland Pascal & C/Delphi5.iso/Basic/Samples/GTTBAR01/GTTBAR01.ZIP/FORM1.FRM

Visual Basic Form | 1993-11-29 | 6.5 KB | 219 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00FFFFFF&
   Caption         =   "Form1"
   ClientHeight    =   2925
   ClientLeft      =   2055
   ClientTop       =   2955
   ClientWidth     =   5850
   Height          =   3615
   Left            =   1995
   LinkTopic       =   "Form1"
   ScaleHeight     =   195
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   390
   Top             =   2325
   Width           =   5970
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Left            =   615
      TabIndex        =   0
      Top             =   660
      Width           =   2805
   End
   Begin gtpnl pnl2
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   3  '3D Raised
      Caption         =   ""
      Height          =   390
      Left            =   0
      Top             =   2535
      Width           =   5850
      Begin gtpnl pnl3
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   4  '3D Recessed
         Caption         =   ""
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000080&
         Height          =   300
         Left            =   135
         Top             =   30
         Width           =   5535
      End
   End
   Begin gtpnl pnl1
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   3  '3D Raised
      Caption         =   ""
      Flags3D         =   10
      Height          =   435
      Left            =   0
      Top             =   0
      Width           =   5850
      Begin CommandButton cmd
         Caption         =   "Toggle"
         Height          =   345
         Index           =   0
         Left            =   3585
         TabIndex        =   1
         Top             =   30
         Width           =   1095
      End
      Begin tBar tBar
         Height          =   345
         Index           =   4
         Left            =   1860
         Offset          =   5
         Tag             =   "Print preview"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   3
         Left            =   1350
         Offset          =   4
         Tag             =   "Print current document"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   2
         Left            =   975
         Offset          =   3
         Tag             =   "Save current document"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   0
         Left            =   105
         Offset          =   1
         Tag             =   "Create a new document"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   1
         Left            =   480
         Offset          =   2
         Tag             =   "Open a saved document"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   5
         Left            =   2235
         Offset          =   6
         Tag             =   "Cut selection to clipboard"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   6
         Left            =   2610
         Offset          =   7
         Tag             =   "Paste clipboard data"
         Top             =   30
         Width           =   390
      End
      Begin tBar tBar
         Height          =   345
         Index           =   7
         Left            =   2985
         Offset          =   15
         Tag             =   "Quit program"
         Top             =   30
         Width           =   390
      End
   End
   Begin tBar tBar
      Height          =   330
      Index           =   8
      Left            =   150
      Offset          =   19
      Tag             =   "Bring up dialog box"
      Top             =   675
      Width           =   375
   End
   Begin Menu mnuMn
      Caption         =   "&File"
      Index           =   0
      Begin Menu mnuFile
         Caption         =   "&ToolBar"
         Checked         =   -1  'True
         Index           =   0
         Shortcut        =   ^T
      End
      Begin Menu mnuFile
         Caption         =   "&Status Bar"
         Checked         =   -1  'True
         Index           =   1
         Shortcut        =   ^S
      End
      Begin Menu mnuFile
         Caption         =   "E&xit"
         Index           =   2
         Shortcut        =   ^X
      End
   End
   DefInt A-Z
   Const DR3LEFT = &H1
   Const DR3TOP = &H2
   Const DR3RIGHT = &H4
   Const DR3BOT = &H8
   Const DR3ALL = &HF
Sub cmd_Click (Index As Integer)
   If Index = 0 Then
      For x = 0 To 7
         tbar(x).Enabled = Not tbar(x).Enabled
      Next
   End If
End Sub
Sub mnuFile_Click (Index As Integer)
   Select Case Index
      Case 0:
         mnuFile(Index).Checked = Not mnuFile(Index).Checked
         pnl1.Visible = mnuFile(Index).Checked

      Case 1:
         mnuFile(Index).Checked = Not mnuFile(Index).Checked
         pnl2.Visible = mnuFile(Index).Checked

      Case 2:
         Unload Me
   End Select
End Sub
Sub pnl2_Resize ()
   pnl3.Width = (((Me.ScaleWidth - 2) * screen.TwipsPerPixelX) - (pnl3.Left * 2))
End Sub
Sub tBar_Click (Index As Integer)
   If Index = 7 Then
      Unload Me
      Exit Sub
      End If
   Beep
   MsgBox "You clicked toolbar no. " & Index, 64, "GT ToolBar"
End Sub
Sub tbar_MouseOver (Index As Integer)
   pnl3.Caption = " " & tbar(Index).Tag
End Sub