home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / design / tbar / mdiform1.frm < prev    next >
Text File  |  1995-02-27  |  6KB  |  214 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "TBar Demo"
  4.    ClientHeight    =   3030
  5.    ClientLeft      =   150
  6.    ClientTop       =   825
  7.    ClientWidth     =   6525
  8.    Height          =   3960
  9.    Left            =   90
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   -45
  12.    Width           =   6645
  13.    Begin PictureBox Picture1 
  14.       Align           =   2  'Align Bottom
  15.       BackColor       =   &H00C0C0C0&
  16.       Height          =   384
  17.       Left            =   0
  18.       ScaleHeight     =   360
  19.       ScaleWidth      =   6495
  20.       TabIndex        =   0
  21.       Top             =   2640
  22.       Width           =   6528
  23.       Begin Label Label1 
  24.          BackColor       =   &H00C0C0C0&
  25.          Caption         =   "No Mouse Events Received Yet!"
  26.          Height          =   252
  27.          Left            =   96
  28.          TabIndex        =   1
  29.          Top             =   48
  30.          Width           =   7548
  31.       End
  32.    End
  33.    Begin TBar TBar1 
  34.       Align           =   1  'Align Top
  35.       AutoPlacement   =   0   'False
  36.       BackColor       =   &H00C0C0C0&
  37.       BevelWidth      =   2
  38.       Bitmap          =   MDIFORM1.FRX:0000
  39.       ButtonHeight    =   15      ButtonVisible   =   ""
  40.       ButtonWidth     =   16      Disabled        =   ";;;1;1;1"
  41.       EnableHelp      =   -1  'True
  42.       ForeColor       =   &H00000000&
  43.       Gap             =   "0;;8;;;8;8"
  44.       Group           =   "None;;;;;;None;8,9;7,9;7,8"
  45.       Height          =   348
  46.       HelpBackColor   =   &H0080FFFF&
  47.       HelpForeColor   =   &H00000000&
  48.       HelpInterval    =   1000
  49.       HelpPosition    =   0  'Below Cursor
  50.       HelpQuickInterval=   250
  51.       HelpStyle       =   0  'Box
  52.       HelpText        =   "Help Button 1\rLIne 2;Help Button 2;Help Button 3;Help Button 4;Help Button 5;Help Button 6;Help Button 7;Help Button 8;Help Button 9;Help Button 10"
  53.       Interval        =   0
  54.       LeadingInterval =   10
  55.       Left            =   0
  56.       Outline         =   -1  'True
  57.       OutlineColor    =   &H00000000&
  58.       PressedBevelWidth=   1
  59.       RoundedCorners  =   -1  'True
  60.       Sticky          =   "0;;;;;;1;1;1;1"
  61.       ToolbarStyle    =   0  'Horizontal
  62.       Top             =   0
  63.       Version         =   "02.40"
  64.       VisibileButtons =   10
  65.       Width           =   6528
  66.    End
  67.    Begin Menu mnuFile 
  68.       Caption         =   "&File"
  69.       Begin Menu mnuTest 
  70.          Caption         =   "&Test"
  71.       End
  72.    End
  73. End
  74. Const BS_IS_TOGGLED = 1
  75. Const BS_IS_ENABLED = 2
  76. Const BS_IS_NOTTOGGLED = 3
  77. Const BS_IS_NOTENABLED = 4
  78. Const BS_IS_VISIBLE = 5
  79. Const BS_IS_INVISIBLE = 6
  80.  
  81. Sub MDIForm_Load ()
  82.  
  83.   ' TBar1.Id(0) = 1
  84.   ' TBar1.Id(1) = 0
  85.  
  86.   TBar1.ButtonState(4) = BS_IS_ENABLED
  87.   TBar1.ButtonState(0) = BS_IS_NOTENABLED
  88.  
  89.   TBar1.ButtonState(7) = BS_IS_TOGGLED
  90.   ' TBar1.ButtonState(6) = BS_IS_TOGGLED
  91.   ' TBar1.ButtonState(6) = BS_IS_NOTTOGGLED
  92.  
  93.   ' TBar1.ButtonState(1) = BS_IS_INVISIBLE
  94.  
  95.   Form1.Show
  96.   Form2.Show
  97.  
  98.   Form1.SetFocus
  99.  
  100. End Sub
  101.  
  102. Sub mnuTest_Click ()
  103.  
  104.   Static A As Integer
  105.  
  106.   If A = 1 Then
  107.     A = 0
  108.     TBar1.ButtonState(7) = BS_IS_TOGGLED
  109.   Else
  110.     A = 1
  111.     TBar1.ButtonState(7) = BS_IS_NOTTOGGLED
  112.   End If
  113.  
  114.   TBar1.IdList = "2,1,0,3,4,5,6,7,8,9"
  115.   TBar1.Refresh
  116.  
  117. End Sub
  118.  
  119. Sub TBar1_Click (Button As Integer)
  120.  
  121.   Debug.Print "Button "; Button; " was clicked!"
  122.  
  123. End Sub
  124.  
  125. Sub TBar1_DoubleClick (Button As Integer)
  126.  
  127.   Debug.Print "Double click received for button "; Button
  128.  
  129. End Sub
  130.  
  131. Sub TBar1_MouseDown (MouseButton As Integer, Shift As Integer, X As Single, Y As Single, Button As Integer)
  132.  
  133.   If MouseButton And 1 Then Debug.Print "Left mouse button is pressed!  Button is "; Button
  134.   If MouseButton And 2 Then Debug.Print "Right mouse button is pressed!  Button is "; Button
  135.   If MouseButton And 4 Then Debug.Print "Middle mouse button is pressed! Button is "; Button
  136.   If Shift And 1 Then Debug.Print "Shift button is down"
  137.   If Shift And 2 Then Debug.Print "Control button is down"
  138.   If Shift And 4 Then Debug.Print "Alt button is down"
  139.  
  140. End Sub
  141.  
  142. Sub TBar1_MouseMove (MouseButton As Integer, Shift As Integer, X As Single, Y As Single, Button As Integer)
  143.  
  144.   Dim CurX As Integer, CurY As Integer
  145.  
  146.   CurX = -1
  147.   CurY = -1
  148.  
  149.   If Button <> -1 Then
  150.  
  151.     Select Case Button
  152.       Case 0:
  153.     Label1.Caption = "Open an empty document"
  154.       Case 1:
  155.     Label1.Caption = "Open existing document"
  156.       Case 2:
  157.     Label1.Caption = "Save current document"
  158.       Case 3:
  159.     Label1.Caption = "Cut currently selected text"
  160.       Case 4:
  161.     Label1.Caption = "Cut currently selected text to the clipboard"
  162.       Case 5:
  163.     Label1.Caption = "Insert text in clipboard into text"
  164.       Case 6:
  165.     Label1.Caption = "Change line styles"
  166.       Case 7:
  167.     Label1.Caption = "Print the current document"
  168.       Case 8:
  169.     Label1.Caption = "Open help"
  170.       Case 9:
  171.     Label1.Caption = "Open context sensitive help"
  172.     End Select
  173.   Else
  174.     Label1.Caption = "Mouse is moving"
  175.   End If
  176.  
  177.   ' Uncommenting this line doesn't allow other events to be processed
  178.   ' So uncomment it only for testing purposes
  179.   ' If CurX <> X Or CurY <> Y Then Debug.Print "Mouse is at:"; X; ","; Y
  180.  
  181.   'If MouseButton And 1 Then Debug.Print "Left mouse button is pressed!"
  182.   'If MouseButton And 2 Then Debug.Print "Right mouse button is pressed!"
  183.   'If MouseButton And 4 Then Debug.Print "Middle mouse button is pressed!"
  184.   'If Shift And 1 Then Debug.Print "Shift button is down"
  185.   'If Shift And 2 Then Debug.Print "Control button is down"
  186.  
  187. End Sub
  188.  
  189. Sub TBar1_MouseUp (MouseButton As Integer, Shift As Integer, X As Single, Y As Single, Button As Integer)
  190.  
  191.   'If MouseButton And 1 Then Debug.Print "Left mouse button is Up!  Button is "; Button
  192.   'If MouseButton And 2 Then Debug.Print "Right mouse button is Up!  Button is "; Button
  193.   'If MouseButton And 4 Then Debug.Print "Middle mouse button is Up! Button is "; Button
  194.   'If Shift And 1 Then Debug.Print "Shift button is down"
  195.   'If Shift And 2 Then Debug.Print "Control button is down"
  196.   'If Shift And 4 Then Debug.Print "Alt button is down"
  197.  
  198. End Sub
  199.  
  200. Sub TBar1_Toggle (Button As Integer, State As Integer)
  201.  
  202.   Dim aString
  203.  
  204.   If State Then
  205.     aString = "On."
  206.   Else
  207.     aString = "Off."
  208.   End If
  209.  
  210.   Debug.Print "Button "; Button; " toggled to "; aString
  211.  
  212. End Sub
  213.  
  214.