fjvclconvertermain.dfm

East make Tray Icon in delphi

object frmMain: TfrmMain
  Left = 335
  Top = 178
  Width = 471
  Height = 386
  Caption = 'JVCL Conversion Utility'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object JvPageControl: TPageControl
    Left = 0
    Top = 26
    Width = 463
    Height = 295
    ActivePage = tbsFiles
    Align = alClient
    TabOrder = 0
    object tbsFiles: TTabSheet
      BorderWidth = 2
      Caption = 'Select Files'
      object SearchList: TListView
        Left = 0
        Top = 0
        Width = 451
        Height = 263
        Align = alClient
        Columns = <
          item
            AutoSize = True
            Caption = 'Filename'
          end
          item
            Caption = 'Replacements'
            Width = 100
          end
          item
            Caption = 'Status'
            Width = 53
          end
          item
            Caption = 'Microseconds'
            Width = 100
          end
          item
            AutoSize = True
            Caption = 'New filename'
          end>
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        SmallImages = SortArrows
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = SearchListColumnClick
        OnDblClick = SearchListDblClick
        OnKeyUp = SearchListKeyUp
      end
    end
    object tbsStrings: TTabSheet
      BorderWidth = 2
      Caption = 'Strings'
      ImageIndex = 1
      object vleUnits: TValueListEditor
        Left = 0
        Top = 0
        Width = 451
        Height = 263
        Align = alClient
        KeyOptions = [keyEdit, keyAdd]
        TabOrder = 0
        TitleCaptions.Strings = (
          'Text to Find'
          'Replace With')
        OnStringsChange = vleUnitsStringsChange
        ColWidths = (
          283
          162)
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 463
    Height = 26
    AutoSize = True
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = StandardImages
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object btnIterateDir: TToolButton
      Left = 0
      Top = 0
      Action = IterateSubdirectories
    end
    object btnAddFiles: TToolButton
      Left = 23
      Top = 0
      Action = FileOpen
    end
    object btnDeleteFiles: TToolButton
      Left = 46
      Top = 0
      Action = RemoveFiles
    end
    object ToolButton6: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 89
      Style = tbsSeparator
    end
    object btnExit: TToolButton
      Left = 77
      Top = 0
      Action = FileExit
    end
    object ToolButton7: TToolButton
      Left = 100
      Top = 0
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 89
      Style = tbsSeparator
    end
    object btnNewRepository: TToolButton
      Left = 108
      Top = 0
      Action = NewRepository
    end
    object btnOpenRepository: TToolButton
      Left = 131
      Top = 0
      Action = OpenData
    end
    object btnInsertNewLine: TToolButton
      Left = 154
      Top = 0
      Action = NewLine
    end
    object btnDeleteLine: TToolButton
      Left = 177
      Top = 0
      Action = DeleteLine
    end
    object btnSaveRepository: TToolButton
      Left = 200
      Top = 0
      Action = SaveData
    end
    object btnConvert: TToolButton
      Left = 223
      Top = 0
      Action = Convert
    end
    object ToolButton8: TToolButton
      Left = 246
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 89
      Style = tbsSeparator
    end
    object btnAboutMe: TToolButton
      Left = 254
      Top = 0
      Action = AboutMe
    end
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 321
    Width = 463
    Height = 19
    Panels = <
      item
        Text = 'Ready'
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object OpenDialog: TJvOpenDialog
    DefaultExt = 'pas'
    Filter = 
      'All files (*.*)|*.*|Pascal sources|*.pas;*.dpr;*.dfm;*.dpk|Text ' +
      'files|*.txt'
    FilterIndex = 2
    InitialDir = '.'
    Options = [ofAllowMultiSelect, ofPathMustExist, ofFileMustExist]
    Height = 342
    UseUserSize = True
    Width = 561
    Left = 264
    Top = 88
  end
  object MainMenu1: TMainMenu
    Images = StandardImages
    Left = 160
    Top = 88
    object File1: TMenuItem
      Caption = '&File'
      ImageIndex = 10
      object IterateSubdirectories1: TMenuItem
        Action = IterateSubdirectories
      end
      object OpenFilestoConvert1: TMenuItem
        Action = FileOpen
      end
      object Remove1: TMenuItem
        Action = RemoveFiles
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = FileExit