| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109 |
- object Form1: TForm1
- Left = 193
- Top = 108
- Width = 544
- Height = 375
- Caption = 'Form1'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- DesignSize = (
- 536
- 348)
- PixelsPerInch = 96
- TextHeight = 13
- object lblFileName: TLabel
- Left = 8
- Top = 16
- Width = 50
- Height = 13
- Caption = '&File Name:'
- FocusControl = edtFileName
- end
- object lblOutputFileName: TLabel
- Left = 8
- Top = 48
- Width = 83
- Height = 13
- Caption = 'Output FIleName:'
- end
- object mmoTestLog: TMemo
- Left = 8
- Top = 80
- Width = 513
- Height = 257
- Anchors = [akLeft, akTop, akRight, akBottom]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Pitch = fpFixed
- Font.Style = []
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 0
- WordWrap = False
- end
- object btnTest: TButton
- Left = 448
- Top = 16
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&Test'
- TabOrder = 1
- OnClick = btnTestClick
- end
- object edtFileName: TEdit
- Left = 64
- Top = 16
- Width = 281
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 2
- end
- object bbtnBrowse: TButton
- Left = 360
- Top = 16
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&Browse'
- TabOrder = 3
- OnClick = bbtnBrowseClick
- end
- object edtOutputFileName: TEdit
- Left = 112
- Top = 48
- Width = 233
- Height = 21
- TabOrder = 4
- end
- object btnOBrowse: TButton
- Left = 360
- Top = 48
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&Browse'
- TabOrder = 5
- OnClick = btnOBrowseClick
- end
- object odlgTestList: TOpenDialog
- DefaultExt = 'txt'
- Filter = 'Text File (*.txt)|*.txt|All Files (*.*)|*.*'
- Left = 264
- Top = 8
- end
- object sdlgOutput: TSaveDialog
- DefaultExt = 'txt'
- Filter = 'Text File (*.txt)|*.txt|All Files (*.*)|*.*'
- Left = 288
- Top = 56
- end
- end
|