unit1.dfm

SOURCE CONVERTER DATA EXCEL TO TXT SPECIFIC FORMAT

object Form1: TForm1
  Left = 256
  Top = 246
  ActiveControl = BitBtn1
  AlphaBlend = True
  AlphaBlendValue = 233
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = '   '#1055#1050' "'#1062#1077#1085#1090#1088'-'#1056#1077#1075#1080#1086#1085'" 290'
  ClientHeight = 266
  ClientWidth = 442
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0888880088888008888800888880000044444804444480444448044444800000
    CCCC480CCCC480CCCC480CCCC4800000CCCC480CCCC480CCCC480CCCC4800000
    CCCC480CCCC480CCCC480CCCC4800000CCCC400CCCC400CCCC400CCCC4000000
    0000000000000000000000000000000008888800888880088888000000000000
    44444801111180444448000000000000CCCC4809999180CCCC48000000000000
    CCCC4809999180CCCC48000000000000CCCC4809999180CCCC48000000000000
    CCCC4009999100CCCC4000000000000000000000000000000000000000000000
    0000000088888008888800000000000000000001111180111118000000000008
    8888000999918099991800000000001111180009999180999918000000000099
    9918000999918099991800000000009999180009999100999910000000000099
    9918000000000000000000000000009999100000000000000000000000000000
    0000000000000000000000C00000000000000000000000000000000000000000
    00000000000000000000000C0000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFF83060C1F0204081F0204081F0204081F0204081F060C183FFFFFFFFF830
    60FFF02040FFF02040FFF02040FFF02040FFF060C1FFFFFFFFFFFFF060FFFFE0
    40FFE0E040FFC0E040FFC0E040FFC0E0C1FFC0FFFFFFC1FFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000004440444044404440CC40CC40CC40CC40CC40CC40CC40CC40000
    00000000000004440111044400000CC409910CC400000CC409910CC400000000
    0000000000000000011101110000111009910991000099100991099100009910
    00000000000000000000000000000000000000000000FFFF0000FFFF00008888
    00008888000088880000FFFF0000888F0000888F0000888F0000FFFF0000F88F
    0000188F0000188F00001FFF0000FFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    442
    266)
  PixelsPerInch = 96
  TextHeight = 16
  object StatusBar1: TStatusBar
    Left = 0
    Top = 247
    Width = 442
    Height = 19
    Panels = <
      item
        Width = 100
      end>
  end
  object LabeledEdit1: TLabeledEdit
    Left = 1
    Top = 1
    Width = 401
    Height = 21
    AutoSize = False
    EditLabel.Width = 82
    EditLabel.Height = 16
    EditLabel.Caption = 'LabeledEdit1'
    EditLabel.Font.Charset = DEFAULT_CHARSET
    EditLabel.Font.Color = clNavy
    EditLabel.Font.Height = -13
    EditLabel.Font.Name = 'Tahoma'
    EditLabel.Font.Style = [fsBold]
    EditLabel.ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    LabelPosition = lpLeft
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    Text = '  '#1042#1099#1073#1077#1088#1080#1090#1077' '#1092#1072#1081#1083' '#1076#1083#1103' '#1082#1086#1085#1074#1077#1088#1090#1072#1094#1080#1080' '#1074' '#1092#1086#1088#1084#1072#1090' '#1055#1050' "'#1062#1077#1085#1090#1088'-'#1056#1077#1075#1080#1086#1085'"'
  end
  object BitBtn1: TBitBtn
    Left = 406
    Top = 1
    Width = 25
    Height = 25
    Caption = '. . .'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -7
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 356
    Top = 30
    Width = 75
    Height = 25
    Caption = 'Convert'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object GroupBox1: TGroupBox
    Left = 1
    Top = 25
    Width = 105
    Height = 57
    Anchors = [akTop]
    Caption = #1042#1099#1073#1086#1088' '#1088#1077#1075#1080#1086#1085#1072
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
    object RadioButton1: TRadioButton
      Left = 15
      Top = 15
      Width = 70
      Height = 15
      Caption = #1058#1045#1056'290'
      Checked = True
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 15
      Top = 35
      Width = 70
      Height = 15
      Caption = #1058#1045#1056'830'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 114
    Top = 25
    Width = 135
    Height = 98
    Anchors = [akTop]
    Caption = #1042#1099#1073#1086#1088' '#1090#1080#1087#1072' '#1088#1077#1089#1091#1088#1089#1072
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 5
    object RadioButton3: TRadioButton
      Left = 15
      Top = 15
      Width = 98
      Height = 15
      Caption = #1047#1072#1088#1087#1083#1072#1090#1072
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 0
    end
    object RadioButton4: TRadioButton
      Left = 15
      Top = 35
      Width = 90
      Height = 15
      Caption = #1052#1072#1096#1080#1085#1099
      Checked = True
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      TabStop = True
    end
    object RadioButton5: TRadioButton
      Left = 15
      Top = 75
      Width = 106
      Height = 15
      Caption = #1056#1072#1089#1094#1077#1085#1082#1080
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 2
    end
    object RadioButton6: TRadioButton
      Left = 15
      Top = 55
      Width = 106
      Height = 15
      Caption = #1052#1072#1090#1077#1088#1080#1072#1083#1099
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 3
    end
  end
  object ProgressBar1: TProgressBar
    Left = 1
    Top = 230
    Width = 440
    Height = 17
    TabOrder = 6
  end
  object XPManifest1: TXPManifest
    Left = 384
    Top = 80
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Excel 97-2003|*.xls'
    Options = [ofReadOnly, ofEnableSizing]
    Left = 384
    Top = 120
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 384
    Top = 160
  end
end