laz_shdocvw/example/form1.lfm at default · rdipardo/laz_shdocvw · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
object frmBrowser: TBrowserForm
  Left = 516
  Height = 320
  Top = 109
  Width = 560
  ClientHeight = 320
  ClientWidth = 560
  Font.Height = -12
  OnResize = FormResize
  OnShow = FormShow
  object txtAddressBar: TEdit
    Left = 0
    Height = 22
    Top = 0
    Width = 560
    Align = alTop
    Font.Height = -12
    OnKeyUp = AddressBarKeyUp
    ParentFont = False
    TabOrder = 0
    Text = 'https://'
  end
  object lblStatusBar: TLabel
    Left = 5
    Height = 16
    Top = 301
    Width = 555
    Align = alBottom
    AutoSize = False
    BorderSpacing.Left = 5
    BorderSpacing.Bottom = 3
    Font.Height = -12
    ParentColor = False
    ParentFont = False
  end
  object pnlHTML: TPanel
    Left = 0
    Height = 242
    Top = 22
    Width = 560
    Align = alClient
    BevelOuter = bvNone
    Caption = 'pnlHTML'
    Font.Height = -12
    ParentFont = False
    TabOrder = 2
    object ieBrowser: TWebBrowser
      OnNavigateComplete2 = DoOnNavigationCompleted
      OnStatusTextChange = DoOnStatusTextChange
      Left = 85
      Top = 85
    end
  end
  object pnlBtns: TPanel
    Left = 0
    Height = 37
    Top = 264
    Width = 560
    Align = alBottom
    ClientHeight = 37
    ClientWidth = 560
    Font.Height = -12
    ParentFont = False
    TabOrder = 1
    object btnNav: TBitBtn
      Left = 197
      Height = 30
      Hint = 'Navigate to URL'
      Top = 5
      Width = 75
      Font.Height = -12
      Glyph.Data = {
        36090000424D3609000000000000360000002800000018000000180000000100
        2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF80
        0002D6AD0019D9AA003CD9AA003CD6AD0019FF800002FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5AA0048D5AA00A2D4AA
        00EBD4AA00F2D5AB00FCD5AA00FCD4AA00F2D4AA00EBD5AA00A2D5AA0048FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00D4A8002FD3AA00C1D5AA00D2D6AC006BD4AA
        00BCD5AA00BAD4A9008ED4A9008FD4AA00BCD5AA00BAD6AC006BD3AA00D3D5AA
        00C0D3AC002EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00D3A90056D4AA00E9D3AA0063FF800002D5AA00A2D3AB
        00A9BFBF0004D3A90080D3A90080BFBF0004D4AA00ACD3A9009EAAAA0003D4AB
        0064D4AA00E9D5AB0055FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90056D4AA00E2D4A8002FFFFFFF00D6A90050D4AA00D4C6AA
        0009FFFFFF00D3A90080D3A90080FFFFFF00CCB3000AD4AA00D7D4A9004DFFFF
        FF00D4A8002FD4AA00E1D5AB0055FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00D4A8002FD4AA00E9D4A8002FFFFFFF00FF800002D4AA00D9D5AB0043FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00D3AA0045D4AA00D7FFFF
        0001FFFFFF00D4A8002FD4AA00E9D3AC002EFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00D3AA00CCD3AA00DED3AB00A9D5AA008AD4AB0094D4AA00DBD6A90044D2AA
        0033D5AC002BD3AB0091D3AB0091D5AC002BD2AA0033D4A90041D4A900DCD3A9
        0092D4A90089D3AB00A9D5AA00DED4AA00CBFFFFFF00FFFFFF00FFFFFF00D5AB
        0049D4AB00D4D7AB003AD4AB0058D5AA0078D4AA00D7D3AA00D5D4AA00BCD5AA
        00CCD4AA00D4D4A900EED4A900EED4AA00D5D5AA00CCD4AA00BFD4A900D6D4AA
        00D6D5AB0079D4AB0058D7AB003AD3AA00D5D4A90047FFFFFF00FFFFFF00D5AB
        00A3D5AB0067FFFFFF00FFFFFF00FFFFFF00D4AA00DFD7A80026FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00D3A80029D4AA
        00DCFFFFFF00FFFFFF00FFFFFF00D3AA0069D4A900A1FFFFFF00AAAA0003D4AA
        00ECD5AA0018FFFFFF00FFFFFF00DBA4000ED4AA00F3FFFF0001FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00FF800002D4AA
        00F4D5AA000CFFFFFF00FFFFFF00D8A7001AD4AA00EBFF800002D6AD0019D4AA
        00E5FFFFFF00FFFFFF00FFFFFF00D3AC002ED4AA00D1FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00D4D5AC002BFFFFFF00FFFFFF00FFFFFF00D4AA00E7D3A60017D2AA0033D5AA
        00DFD3A90080D3A90080D3A90080D3A9009ED3A900E1D3A90080D3A90080D3A9
        0080D3A90080D3A900C0D3A900C0D3A90080D3A90080D3A90080D3A90080D4A9
        00E2D3A9009DD3A90080D3A90080D3A90080D4AA00E0D5AC0031D3AC0034D4A9
        00DFD3A90080D3A90080D3A90080D3A9009ED3A900E1D3A90080D3A90080D3A9
        0080D3A90080D3A900C0D3A900C0D3A90080D3A90080D3A90080D3A90080D3A9
        00E2D3A9009DD3A90080D3A90080D3A90080D5AA00DFD2AA0033D8A7001AD5AA
        00E4FFFFFF00FFFFFF00FFFFFF00D4A8002FD4AA00D0FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D3AA
        00D3D6A8002CFFFFFF00FFFFFF00FFFFFF00D4AA00E6D5AA0018AAAA0003D4AA
        00ECD5AA0018FFFFFF00FFFFFF00CFAF0010D4AA00F1FFFF0001FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00FFFF0001D4AA
        00F2DBA4000EFFFFFF00FFFFFF00D8A7001AD4AA00EBFF800002FFFFFF00D3A9
        00A4D4A90065FFFFFF00FFFFFF00FFFFFF00D4AA00E2D3A80023FFFFFF00FFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00FFFFFF00D7A80026D4AA
        00DFFFFFFF00FFFFFF00FFFFFF00D3A90068D5AA00A2FFFFFF00FFFFFF00D5AB
        0049D3AA00D3D7AA0039D3AA0057D4AB0076D5AA00D8D3AA00D2D3AA00BBD4AA
        00CBD5AA00D2D4A900EED4A900EED5AA00D2D5AA00CCD3AA00BBD4AA00D4D4AA
        00D7D4A90077D3AA0057D7AE0039D4AB00D4D5AA0048FFFFFF00FFFFFF00FFFF
        FF00D3A900CDD3AA00DED4AA00AAD5AB008BD5A90098D5AA00D8D6A90044D4A8
        0035D2AA002DD3AB0091D3AB0091D2AA002DD3AC0034D6A90044D4AA00D9D5A8
        0096D5AB008BD4AA00AAD3AA00DED3AA00CCFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00D5AA0030D4AA00E9D3AC002EFFFFFF00AAAA0003D4AA00DDD5AB003DFFFF
        FF00FFFFFF00D3A90080D3A90080FFFFFF00FFFFFF00D2AA003FD4AA00DBFF80
        0002FFFFFF00D4A8002FD4AA00E9D4A8002FFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90056D4AA00E1D3AC002EFFFFFF00D3A90056D4AA00CFDBB6
        0007FFFFFF00D3A90080D3A90080FFFFFF00DF9F0008D5AA00D2D4A90053FFFF
        FF00D4A8002FD4AA00E2D3A90056FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00D3A90056D4AA00E9D5AB0061FF800002D3AB00A9D3A9
        00A4AAAA0003D3A90080D3A90080AAAA0003D4A900A7D4AB00A6FF800002D3AA
        0063D4AA00E9D3A90056FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00D5AA0030D4AA00C2D4AA00D1D4AC006BD5AA
        00C0D4AA00B6D4AA008DD2AB008ED4AA00B8D4AB00BFD4A9006BD5AA00D2D3AA
        00C1D4A8002FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5AB0049D5AB00A3D4AB
        00ECD4AB00F2D5AA00FCD5AA00FCD4AA00F2D4AA00ECD5AB00A3D5AB0049FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAA
        0003D8A7001AD6A9003ED5AB003DD8A7001AAAAA0003FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      OnClick = Button1Click
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object btnHome: TBitBtn
      Left = 283
      Height = 30
      Hint = 'Go to Home Page'
      Top = 5
      Width = 75
      Font.Height = -12
      Glyph.Data = {
        36090000424D3609000000000000360000002800000018000000180000000100
        2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00DDD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA
        00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA
        00FFD4AA00FFD4AA00FFD4AA00DDFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3AA00BBD4A90077D4A90077D4A90077D4A90077D3AA
        00C0D6A9009BD4A90077D4A90077D6A9009BD3AA00C0D4A90077D4A90077D4A9
        0077D4A90077D3AA00BBD4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3A90080FFFFFF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3A90080FFFFFF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3A90080FFFFFF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3A90080FFFFFF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD4AA00C4D4AB0088D4AB0088D4AA00C4D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00DDD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00DDFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA00FFD3A90080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00D4AA00DBD3A9
        008CFFFFFF00D4A9009BD6A9003EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D6A9003ED4A9009BFFFFFF00D3A9008CD4AA00DBD5AB008BD4AA
        00FFD4A9008FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00D4A9008FD4AA00FFD5AB008BFFFFFF00D4AB
        0088D4AA00FFD4A9008FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00DDD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00DDFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00D4AA0087D4AA00FFD4A9008FFFFF0001FFFFFF00FFFF
        FF00D4AB0088D4AA00FFD4A9008FFFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3AA00BBD4A90077D4A90077D3AA00BBD4AA00FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AA0087D4AA00FFD4A9008FFFFF0001FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4AB0088D4AA00FFD4A9008FFFFFFF00FFFFFF00FFFFFF00D4AA
        00FFD3A90080FFFFFF00FFFFFF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFF
        FF00D5AA0096D4AA00FFD4A9008FFFFF0001FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00D4AB0088D4AA00FFD4A9008FFFFFFF00FFFFFF00D4AA
        00FDD4AA00FFD4AA00FFD4AA00FFD4AA00FFD4AA00FDFFFFFF00FFFFFF00D4AA
        0087D4AA00FFD4AA00FEFFFF0001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00D4AB0088D4AA00FFD4A9008FFFFFFF00D3A9
        005CD4A90077D4A90077D4A90077D4A90077D3A9005CFFFFFF00D4AA0087D4AA
        00FFD5A900C7D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AB0088D4AA00FFD4A9008FFFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D3AA00AFD4AA00FFD4A9
        008FD5AB0080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AB0088D4AA00FFD4A9
        008FFFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AA0087D4AA00FFD5A900C6FFFF
        0001D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4AB0088D4AA
        00FFD4A9008FFFFFFF00FFFFFF00D4AA0087D4AA00FFD4AA00FFD5AB0080FFFF
        FF00D3A90080D4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4A9
        008FD4AA00FFD4A9008FD4A9008FD4AA00FFD4A9008FD4AA00FFD3AA00BBD4A9
        0077D3AA00BBD4AA00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00D4A9008FD4AA00FFD4AA00FFD4A9008FFFFFFF00D4AA00E2D4AA00FFD4AA
        00FFD4AA00FFD4AA00DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00D4A9007DD4A9007DFFFFFF00FFFFFF00AAAA0003FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      OnClick = Button2Click
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
end