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
|
object Form1: TForm1
Left = 257
Height = 254
Top = 177
Width = 320
Caption = 'Form1'
ClientHeight = 254
ClientWidth = 320
LCLVersion = '1.9.0.0'
object btnOpenURLHTTP: TButton
Left = 64
Height = 25
Top = 119
Width = 184
Caption = 'OpenURL with http://'
OnClick = btnOpenURLHTTPClick
TabOrder = 0
end
object editFileName: TFileNameEdit
Left = 8
Height = 23
Top = 32
Width = 280
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 1
end
object Label1: TLabel
Left = 8
Height = 15
Top = 9
Width = 234
Caption = 'Please indicate a filename or URL for testing:'
ParentColor = False
end
object btnOpenURLFILE: TButton
Left = 64
Height = 25
Top = 151
Width = 184
Caption = 'OpenURL with file://'
OnClick = btnOpenURLFILEClick
TabOrder = 2
end
object btnOpenDocument: TButton
Left = 64
Height = 25
Top = 183
Width = 184
Caption = 'OpenDocument test'
OnClick = btnOpenDocumentClick
TabOrder = 3
end
object btnFindBrowser: TButton
Left = 64
Height = 25
Top = 215
Width = 182
Caption = 'Find Browser'
OnClick = btnFindBrowserClick
TabOrder = 4
end
object Label2: TLabel
Left = 9
Height = 15
Top = 58
Width = 35
Caption = 'Result:'
ParentColor = False
end
object editResult: TEdit
Left = 9
Height = 23
Top = 80
Width = 279
TabOrder = 5
Text = 'editResult'
end
end
|
