jvqparserform.xfm

East make Tray Icon in delphi

object FormParsers: TFormParsers
  Left = 437
  Top = 279
  Width = 423
  Height = 247
  VertScrollBar.Range = 241
  HorzScrollBar.Range = 415
  ActiveControl = OkBtn
  BorderIcons = [biSystemMenu]
  Caption = 'Parser - Edit '
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'adobe-helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  PixelsPerInch = 96
  object ListBox1: TListBox
    Left = 8
    Top = 120
    Width = 321
    Height = 117
    ItemHeight = 13
    TabOrder = 4
    OnClick = ListBox1Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 7
    Width = 407
    Height = 107
    Caption = 'Properties'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    object Label1: TLabel
      Left = 14
      Top = 23
      Width = 41
      Height = 13
      Caption = 'Keyword'
    end
    object Label2: TLabel
      Left = 12
      Top = 48
      Width = 44
      Height = 13
      Caption = 'Start Tag'
    end
    object Label3: TLabel
      Left = 204
      Top = 23
      Width = 41
      Height = 13
      Caption = 'End Tag'
    end
    object Label4: TLabel
      Left = 204
      Top = 48
      Width = 41
      Height = 13
      Hint = 'Where the start text must be'
      Caption = 'Must be '
    end
    object Label5: TLabel
      Left = 12
      Top = 75
      Width = 45
      Height = 13
      Caption = 'Take text'
    end
    object Edit1: TEdit
      Left = 66
      Top = 19
      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 = Edit1Change
    end
    object Edit2: TEdit
      Left = 66
      Top = 44
      Width = 115
      Height = 21
      Hint = 'Put here the string that'#13#10'is just before the part'#13#10'you want'
      TabOrder = 1
      OnChange = Edit2Change
    end
    object Edit3: TEdit
      Left = 256
      Top = 19
      Width = 115
      Height = 21
      Hint = 'Put here the tag you want to find '#13#10'to end the tag'
      TabOrder = 2
      OnChange = Edit3Change
    end
    object ComboBox1: TComboBox
      Left = 66
      Top = 71
      Width = 305
      Height = 21
      Hint = 'Tell the component'#13#10'which part you want of the string'
      ItemHeight = 15
      Items.Strings = (
        'Between limits'
        'All before start tag'
        'All after start tag'
        'The whole line if respecting the condition')
      TabOrder = 4
      Text = 'Between limits'
      OnChange = ComboBox1Change
    end
    object Edit4: TEdit
      Left = 256
      Top = 43
      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 = Edit4Change
    end
  end
  object AddBtn: TButton
    Left = 339
    Top = 120
    Width = 75
    Height = 25
    Hint = 'Add an item to the list'
    Caption = '&Add'
    TabOrder = 3
    OnClick = Button1Click
  end
  object RemoveBtn: 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
    TabOrder = 0
    OnClick = OkBtnClick
  end
  object CancelBtn: TButton
    Left = 339
    Top = 216
    Width = 75
    Height = 25
    Hint = 'Cancel Changes'
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 1
    OnClick = CancelBtnClick
  end
end