lazarus/examples/openurltest/mainform.lfm
sekelsenmat 5f2d225948 Adds a OpenURL/OpenDocument test
git-svn-id: trunk@36744 -
2012-04-13 12:45:54 +00:00

83 lines
1.5 KiB
Plaintext

object Form1: TForm1
Left = 257
Height = 248
Top = 177
Width = 320
Caption = 'Form1'
ClientHeight = 248
ClientWidth = 320
LCLVersion = '1.1'
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 = 21
Top = 32
Width = 280
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
MaxLength = 0
TabOrder = 1
end
object Label1: TLabel
Left = 8
Height = 14
Top = 9
Width = 216
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 = 14
Top = 58
Width = 35
Caption = 'Result:'
ParentColor = False
end
object editResult: TEdit
Left = 9
Height = 21
Top = 80
Width = 279
TabOrder = 5
Text = 'editResult'
end
end