jvparserform.dfm

East make Tray Icon in delphi

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
  Scaled = False
  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