191 lines
4.6 KiB
Plaintext
191 lines
4.6 KiB
Plaintext
object JvHTMLParserForm: TJvHTMLParserForm
|
|
Tag = 1
|
|
Left = 437
|
|
Top = 279
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = 'Parser - Edit '
|
|
ClientHeight = 242
|
|
ClientWidth = 423
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Icon.Data = {
|
|
0000010001001010100001001000280100001600000028000000100000002000
|
|
00000100040000000000C0000000000000000000000000000000000000000000
|
|
0000000080000080000000808000800000008000800080800000C0C0C0008080
|
|
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
|
00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
|
|
BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
|
|
00000BB00000000000000BB00000000000000BB00000000000000BB000000000
|
|
00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
|
|
0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
|
|
0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object ListBox1: TListBox
|
|
Left = 8
|
|
Top = 120
|
|
Width = 321
|
|
Height = 117
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnClick = ListBox1Click
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 10
|
|
Width = 407
|
|
Height = 107
|
|
Caption = ' Properties '
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
object Label1: TLabel
|
|
Left = 14
|
|
Top = 26
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'Keyword'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 12
|
|
Top = 51
|
|
Width = 44
|
|
Height = 13
|
|
Caption = 'Start Tag'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 204
|
|
Top = 26
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'End Tag'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 204
|
|
Top = 51
|
|
Width = 41
|
|
Height = 13
|
|
Hint = 'Where the start text must be'
|
|
Caption = 'Must be '
|
|
end
|
|
object Label5: TLabel
|
|
Left = 12
|
|
Top = 78
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Take text'
|
|
end
|
|
object edKeyword: TEdit
|
|
Left = 66
|
|
Top = 22
|
|
Width = 115
|
|
Height = 21
|
|
Hint =
|
|
'Put here the keyword'#13#10'you want the component to send'#13#10'when he ha' +
|
|
's found this item'
|
|
TabOrder = 0
|
|
OnChange = edKeywordChange
|
|
end
|
|
object edStartTag: TEdit
|
|
Left = 66
|
|
Top = 47
|
|
Width = 115
|
|
Height = 21
|
|
Hint = 'Put here the string that'#13#10'is just before the part'#13#10'you want'
|
|
TabOrder = 1
|
|
OnChange = edStartTagChange
|
|
end
|
|
object edEndTag: TEdit
|
|
Left = 256
|
|
Top = 22
|
|
Width = 115
|
|
Height = 21
|
|
Hint = 'Put here the tag you want to find '#13#10'to end the tag'
|
|
TabOrder = 2
|
|
OnChange = edEndTagChange
|
|
end
|
|
object cbTakeText: TComboBox
|
|
Left = 66
|
|
Top = 74
|
|
Width = 305
|
|
Height = 21
|
|
Hint = 'Tell the component'#13#10'which part you want of the string'
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
Text = 'Between limits'
|
|
OnChange = cbTakeTextChange
|
|
Items.Strings = (
|
|
'Between limits'
|
|
'All before start tag'
|
|
'All after start tag'
|
|
'The whole line if respecting the condition')
|
|
end
|
|
object edMustBe: TEdit
|
|
Left = 256
|
|
Top = 46
|
|
Width = 115
|
|
Height = 21
|
|
Hint =
|
|
'Put here the position of the start tag'#13#10#13#10'1 if you don'#39't care, '#13 +
|
|
#10'0 if it can'#39't be in the string, '#13#10'1 if you want it in the first' +
|
|
' position'#13#10'2 if you want it in the second position'#13#10'....'
|
|
TabOrder = 3
|
|
Text = '-1'
|
|
OnChange = edMustBeChange
|
|
end
|
|
end
|
|
object btnAdd: TButton
|
|
Left = 339
|
|
Top = 120
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Add an item to the list'
|
|
Caption = '&Add'
|
|
TabOrder = 3
|
|
OnClick = Button1Click
|
|
end
|
|
object btnRemove: TButton
|
|
Left = 339
|
|
Top = 152
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Delete the selected item '#13#10'from the list'
|
|
Caption = '&Remove'
|
|
TabOrder = 2
|
|
OnClick = Button2Click
|
|
end
|
|
object OkBtn: TButton
|
|
Left = 339
|
|
Top = 184
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Apply changes'
|
|
Caption = '&OK'
|
|
Default = True
|
|
ModalResult = 1
|
|
TabOrder = 0
|
|
OnClick = OkBtnClick
|
|
end
|
|
object CancelBtn: TButton
|
|
Left = 339
|
|
Top = 216
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Cancel Changes'
|
|
Cancel = True
|
|
Caption = '&Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
OnClick = CancelBtnClick
|
|
end
|
|
end
|