← Back to branch summary

~ubuntu-branches/ubuntu/precise/kompozer/precise

« back to all changes in this revision

Viewing changes to mozilla/embedding/browser/activex/tests/vbrowse/frmToolBar.frm

  • Committer: Bazaar Package Importer
  • Author(s): Anthony Yarusso
  • Date: 2007-08-27 01:11:03 UTC
  • Revision ID: james.westby@ubuntu.com-20070827011103-2jgf4s6532gqu2ka
Tags: upstream-0.7.10
Import upstream version 0.7.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
mozilla/embedding/browser/activex/tests/vbrowse/frmToolBar.frm
 
1
VERSION 5.00
 
2
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "comctl32.ocx"
 
3
Begin VB.Form frmToolBar 
 
4
   Caption         =   "Control Bar"
 
5
   ClientHeight    =   1215
 
6
   ClientLeft      =   165
 
7
   ClientTop       =   735
 
8
   ClientWidth     =   7965
 
9
   LinkTopic       =   "Form2"
 
10
   ScaleHeight     =   81
 
11
   ScaleMode       =   3  'Pixel
 
12
   ScaleWidth      =   531
 
13
   StartUpPosition =   3  'Windows Default
 
14
   Begin ComctlLib.Toolbar Toolbar1 
 
15
      Align           =   1  'Align Top
 
16
      Height          =   660
 
17
      Left            =   0
 
18
      TabIndex        =   0
 
19
      Top             =   0
 
20
      Width           =   7965
 
21
      _ExtentX        =   14049
 
22
      _ExtentY        =   1164
 
23
      ButtonWidth     =   1032
 
24
      ButtonHeight    =   1005
 
25
      AllowCustomize  =   0   'False
 
26
      Appearance      =   1
 
27
      ImageList       =   "ImageList1"
 
28
      _Version        =   327682
 
29
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
 
30
         NumButtons      =   10
 
31
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
32
            Key             =   "goback"
 
33
            Object.ToolTipText     =   "Go Back"
 
34
            Object.Tag             =   ""
 
35
            ImageIndex      =   1
 
36
         EndProperty
 
37
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
38
            Key             =   "goforward"
 
39
            Object.ToolTipText     =   "Go Forward"
 
40
            Object.Tag             =   ""
 
41
            ImageIndex      =   5
 
42
         EndProperty
 
43
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
44
            Key             =   "reload"
 
45
            Object.ToolTipText     =   "Reload Page"
 
46
            Object.Tag             =   ""
 
47
            ImageIndex      =   6
 
48
         EndProperty
 
49
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
50
            Object.Tag             =   ""
 
51
            Style           =   3
 
52
            MixedState      =   -1  'True
 
53
         EndProperty
 
54
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
55
            Key             =   "gohome"
 
56
            Object.ToolTipText     =   "Go Home"
 
57
            Object.Tag             =   ""
 
58
            ImageIndex      =   3
 
59
         EndProperty
 
60
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
61
            Key             =   "gosearch"
 
62
            Object.ToolTipText     =   "Search Web"
 
63
            Object.Tag             =   ""
 
64
            ImageIndex      =   8
 
65
         EndProperty
 
66
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
67
            Key             =   "ph"
 
68
            Object.Tag             =   ""
 
69
            Style           =   4
 
70
            Object.Width           =   200
 
71
            MixedState      =   -1  'True
 
72
         EndProperty
 
73
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
74
            Key             =   "loadpage"
 
75
            Object.ToolTipText     =   "Load this URL"
 
76
            Object.Tag             =   ""
 
77
            ImageIndex      =   4
 
78
         EndProperty
 
79
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
80
            Object.Tag             =   ""
 
81
            Style           =   3
 
82
            MixedState      =   -1  'True
 
83
         EndProperty
 
84
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
 
85
            Key             =   "stop"
 
86
            Object.ToolTipText     =   "Stop Loading"
 
87
            Object.Tag             =   ""
 
88
            ImageIndex      =   2
 
89
         EndProperty
 
90
      EndProperty
 
91
      Begin VB.ComboBox cmbUrl 
 
92
         BeginProperty Font 
 
93
            Name            =   "MS Sans Serif"
 
94
            Size            =   12
 
95
            Charset         =   0
 
96
            Weight          =   400
 
97
            Underline       =   0   'False
 
98
            Italic          =   0   'False
 
99
            Strikethrough   =   0   'False
 
100
         EndProperty
 
101
         Height          =   420
 
102
         ItemData        =   "frmToolBar.frx":0000
 
103
         Left            =   3120
 
104
         List            =   "frmToolBar.frx":0016
 
105
         TabIndex        =   1
 
106
         Text            =   "http://www.mozilla.com"
 
107
         Top             =   120
 
108
         Width           =   2895
 
109
      End
 
110
   End
 
111
   Begin VB.OptionButton rbExplorer 
 
112
      Caption         =   "InternetExplorer"
 
113
      Height          =   255
 
114
      Left            =   2160
 
115
      TabIndex        =   4
 
116
      Top             =   720
 
117
      Width           =   1575
 
118
   End
 
119
   Begin VB.OptionButton rbMozilla 
 
120
      Caption         =   "Mozilla"
 
121
      Height          =   255
 
122
      Left            =   960
 
123
      TabIndex        =   3
 
124
      Top             =   720
 
125
      Value           =   -1  'True
 
126
      Width           =   1215
 
127
   End
 
128
   Begin ComctlLib.StatusBar StatusBar1 
 
129
      Align           =   2  'Align Bottom
 
130
      Height          =   255
 
131
      Left            =   0
 
132
      TabIndex        =   2
 
133
      Top             =   960
 
134
      Width           =   7965
 
135
      _ExtentX        =   14049
 
136
      _ExtentY        =   450
 
137
      SimpleText      =   ""
 
138
      _Version        =   327682
 
139
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
 
140
         NumPanels       =   2
 
141
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
 
142
            AutoSize        =   1
 
143
            Object.Width           =   11404
 
144
            MinWidth        =   2646
 
145
            TextSave        =   ""
 
146
            Object.Tag             =   ""
 
147
         EndProperty
 
148
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
 
149
            Alignment       =   2
 
150
            Object.Width           =   2117
 
151
            MinWidth        =   2117
 
152
            TextSave        =   ""
 
153
            Object.Tag             =   ""
 
154
         EndProperty
 
155
      EndProperty
 
156
   End
 
157
   Begin VB.Label Label1 
 
158
      Caption         =   "Control:"
 
159
      Height          =   255
 
160
      Left            =   120
 
161
      TabIndex        =   5
 
162
      Top             =   720
 
163
      Width           =   855
 
164
   End
 
165
   Begin ComctlLib.ImageList ImageList1 
 
166
      Left            =   6240
 
167
      Top             =   480
 
168
      _ExtentX        =   1005
 
169
      _ExtentY        =   1005
 
170
      BackColor       =   -2147483643
 
171
      ImageWidth      =   32
 
172
      ImageHeight     =   32
 
173
      MaskColor       =   12632256
 
174
      _Version        =   327682
 
175
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
 
176
         NumListImages   =   8
 
177
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
178
            Picture         =   "frmToolBar.frx":00A4
 
179
            Key             =   "back"
 
180
         EndProperty
 
181
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
182
            Picture         =   "frmToolBar.frx":03BE
 
183
            Key             =   "stop"
 
184
         EndProperty
 
185
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
186
            Picture         =   "frmToolBar.frx":06D8
 
187
            Key             =   "home"
 
188
         EndProperty
 
189
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
190
            Picture         =   "frmToolBar.frx":09F2
 
191
            Key             =   "gotopage"
 
192
         EndProperty
 
193
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
194
            Picture         =   "frmToolBar.frx":0D0C
 
195
            Key             =   "forward"
 
196
         EndProperty
 
197
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
198
            Picture         =   "frmToolBar.frx":1026
 
199
            Key             =   "reload"
 
200
         EndProperty
 
201
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
202
            Picture         =   "frmToolBar.frx":1340
 
203
            Key             =   "go"
 
204
         EndProperty
 
205
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
 
206
            Picture         =   "frmToolBar.frx":165A
 
207
            Key             =   "gofind"
 
208
         EndProperty
 
209
      EndProperty
 
210
   End
 
211
   Begin VB.Menu debug 
 
212
      Caption         =   "Debug"
 
213
      Begin VB.Menu verbs 
 
214
         Caption         =   "OLE Verbs"
 
215
      End
 
216
   End
 
217
End
 
218
Attribute VB_Name = "frmToolBar"
 
219
Attribute VB_GlobalNameSpace = False
 
220
Attribute VB_Creatable = False
 
221
Attribute VB_PredeclaredId = True
 
222
Attribute VB_Exposed = False
 
223
Dim browser As Object
 
224
 
 
225
Private Sub Form_Load()
 
226
    frmMozilla.Show
 
227
    frmExplorer.Show
 
228
    Set browser = frmMozilla.Browser1
 
229
End Sub
 
230
 
 
231
Sub Browser_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
 
232
    Debug.Print "Browser_BeforeNavigate " & URL
 
233
    StatusBar1.Panels(1).Text = "Loading " & URL
 
234
End Sub
 
235
 
 
236
Sub Browser_NavigateComplete(ByVal URL As String)
 
237
    Debug.Print "Browser_NavigateComplete " & URL
 
238
    StatusBar1.Panels(1).Text = "Loaded " & URL
 
239
    StatusBar1.Panels(2).Text = ""
 
240
End Sub
 
241
 
 
242
Sub Browser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
 
243
    Debug.Print "Browser_BeforeNavigate2 " & URL
 
244
    StatusBar1.Panels(1).Text = "Loaded " & URL
 
245
    StatusBar1.Panels(2).Text = ""
 
246
End Sub
 
247
 
 
248
Sub Browser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
 
249
    Debug.Print "Browser_NavigateComplete2 " & URL
 
250
    StatusBar1.Panels(1).Text = "Loaded " & URL
 
251
    StatusBar1.Panels(2).Text = ""
 
252
End Sub
 
253
 
 
254
Sub Browser_StatusTextChange(ByVal Text As String)
 
255
    Debug.Print "Browser_StatusTextChange " & Text
 
256
    StatusBar1.Panels(1).Text = Text
 
257
End Sub
 
258
 
 
259
Sub Browser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
 
260
    Dim fProgress As Double
 
261
    If Progress = 0 Then
 
262
'        fProgress = 0
 
263
    ElseIf ProgressMax > 0 Then
 
264
'        fProgress = (Progress * 100) / ProgressMax
 
265
    Else
 
266
        ' fProgress = 0#
 
267
        Debug.Print "Progress error - Progress = " & Progress & ", ProgressMax = " & ProgressMax
 
268
    End If
 
269
'    StatusBar1.Panels(2).Text = Int(fProgress) & "%"
 
270
End Sub
 
271
 
 
272
Private Sub rbExplorer_Click()
 
273
    Set browser = frmExplorer.Browser1
 
274
End Sub
 
275
 
 
276
Private Sub rbMozilla_Click()
 
277
    Set browser = frmMozilla.Browser1
 
278
End Sub
 
279
 
 
280
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
 
281
    Select Case Button.Key
 
282
    Case "goback"
 
283
        browser.GoBack
 
284
    Case "goforward"
 
285
        browser.GoForward
 
286
    Case "reload"
 
287
        browser.Refresh
 
288
    Case "gohome"
 
289
        browser.GoHome
 
290
    Case "gosearch"
 
291
        browser.GoSearch
 
292
    Case "loadpage"
 
293
        browser.Navigate cmbUrl.Text
 
294
    Case "stop"
 
295
        browser.Stop
 
296
    Case Else
 
297
    End Select
 
298
End Sub
 
299
 
 
300
Private Sub verbs_Click()
 
301
    ' Query the browser to see what IOleCommandTarget commands it supports
 
302
    Dim nCmd As Integer
 
303
    Dim nStatus As Integer
 
304
    For nCmd = 1 To 40
 
305
        nStatus = browser.QueryStatusWB(nCmd)
 
306
        If nStatus And 1 Then
 
307
            Debug.Print "Command " & nCmd & " is supported"
 
308
        Else
 
309
            Debug.Print "Command " & nCmd & " is not supported"
 
310
        End If
 
311
        If nStatus And 2 Then
 
312
            Debug.Print "Command " & nCmd & " is disabled"
 
313
        End If
 
314
    Next
 
315
End Sub