object Form1: TForm1 Left = 208 Top = 138 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'RCKonverter' ClientHeight = 313 ClientWidth = 381 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 132 Top = 10 Width = 32 Height = 13 Hint = 'Aktuelle Datei' Caption = 'Label2' end object Label3: TLabel Left = 5 Top = 40 Width = 31 Height = 13 Caption = 'Datei :' end object Label4: TLabel Left = 134 Top = 132 Width = 76 Height = 13 Caption = 'Zeilen pro Rec.:' end object Label5: TLabel Left = 282 Top = 132 Width = 49 Height = 13 Caption = 'Startzeile :' end object Panel1: TPanel Left = 0 Top = 0 Width = 381 Height = 32 Align = alTop TabOrder = 0 object SpeedButton1: TSpeedButton Left = 2 Top = 2 Width = 27 Height = 27 Hint = 'RCKonverter beenden' Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777777777007777777777777777777777007777 777777007777777777007777777770E0777777777700777777770EE077777777 770077777770EEE07777777777007777770EEEE00007777777007777770EEEE0 8807777777007777770EEE008807777777007777770EE0E08807777777007777 770EEEE08807777777007777770EEEE08807777777007777770EEEE088077777 77007777770EEEE08807777777007777770EEE088807777777007777770EE088 8807777777007777770E08888807777777007777770000000007777777007777 7777777777777777770077777777777777777777770077777777777777777777 7700} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 37 Top = 2 Width = 27 Height = 27 Hint = 'Datei �ffnen' Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777777777007777777777777777777777007777 7777777777777777770077777777777777777777770077780000000000000777 7700777007B7B7B7B7B7B07777007770F07B7B7B7B7B707777007770B0B7B7B7 B7B7B70777007770FB0B7B7B7B7B7B0777007770BF07B7B7B7B7B7B077007770 FBF000007B7B7B7077007770BFBFBFBF0000000777007770FBFBFBFBFBFB0777 77007770BFBFBFBFBFBF077777007770FBFBF000000077777700777700000777 7777777777007777777777777777777777007777777777777777777777007777 7777777777777777770077777777777777777777770077777777777777777777 7700} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 64 Top = 2 Width = 27 Height = 27 Hint = 'Datei konvertieren' Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777770070777777777777770777770070077777777777770077770070F0 77777777777708077700700F07777777777708F0770070FFF0777777777708F8 070070FF0F077777777708F8F000700FF007777777770888F00070F0FF077777 777708F8F00070FF0F077797C77708F88000700FFF077997CC7708F8F00070FF FF07999CCCC70888F00070FF0F09999CCCCC08F8F000700FF0079999CCC708F8 800070F0FF077997CC770888F00070FFFF077797C7770888F000770FF0077777 7777708880007770FF07777777777708800077770F0777777777777080007777 7007777777777777000077777707777777777777700077777777777777777777 7700} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 99 Top = 2 Width = 27 Height = 27 Hint = 'Hilfe zum Programm' Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777777777007777777777777777777777007777 777777777777777777007777777777644777777777007777777777E647777777 77007777777777EE677777777700777777777777777777777700777777777764 4777777777007777777777E64777777777007777777777E66477777777007777 7777777E664777777700777777777777E664777777007777777644777E647777 77007777777E66477E64777777007777777EE66446647777770077777777EE66 666777777700777777777EEEEE77777777007777777777777777777777007777 7777777777777777770077777777777777777777770077777777777777777777 7700} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Label1: TLabel Left = 132 Top = 10 Width = 31 Height = 13 Caption = 'Datei :' end object ProgressBar1: TProgressBar Left = 132 Top = 8 Width = 243 Height = 16 Min = 0 Max = 100 Step = 1 TabOrder = 0 Visible = False end end object StatusBar1: TStatusBar Left = 0 Top = 294 Width = 381 Height = 19 Enabled = False Panels = < item Width = 200 end item Width = 100 end> ParentShowHint = False ShowHint = True SimplePanel = False end object GroupBox1: TGroupBox Left = 5 Top = 61 Width = 371 Height = 61 Hint = 'Felder Trennzeichen der aktuellen Datei' Caption = 'Felder Trennzeichen' TabOrder = 2 object RadioButton1: TRadioButton Left = 8 Top = 15 Width = 105 Height = 17 Caption = 'Tabulator' TabOrder = 0 OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 257 Top = 15 Width = 97 Height = 17 Caption = 'Strichpunkt ( ; )' TabOrder = 1 OnClick = RadioButton2Click end object RadioButton3: TRadioButton Left = 133 Top = 15 Width = 88 Height = 17 Caption = 'Komma ( , )' TabOrder = 2 OnClick = RadioButton3Click end object RadioButton4: TRadioButton Left = 133 Top = 37 Width = 96 Height = 17 Caption = 'Leerzeichen' TabOrder = 3 OnClick = RadioButton4Click end object RadioButton5: TRadioButton Left = 257 Top = 39 Width = 64 Height = 17 Caption = 'Zeichen' TabOrder = 4 OnClick = RadioButton5Click end object Edit1: TEdit Left = 344 Top = 34 Width = 17 Height = 21 MaxLength = 1 TabOrder = 5 end object RadioButton6: TRadioButton Left = 8 Top = 37 Width = 97 Height = 17 Caption = 'Punkt ( . )' TabOrder = 6 OnClick = RadioButton6Click end end object Edit2: TEdit Left = 80 Top = 36 Width = 297 Height = 21 Hint = 'Name und Pfad der neuen Datei' TabOrder = 3 end object GroupBox2: TGroupBox Left = 5 Top = 152 Width = 372 Height = 137 Hint = 'Vorschau der neuen Datei' Caption = 'Vorschau' TabOrder = 4 OnDblClick = GroupBox2DblClick object StringGrid1: TStringGrid Left = 5 Top = 14 Width = 362 Height = 115 ColCount = 2 DefaultRowHeight = 18 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goThumbTracking] ParentFont = False TabOrder = 0 OnDblClick = StringGrid1DblClick OnExit = StringGrid1Exit ColWidths = ( 64 64) end object Memo1: TMemo Left = 5 Top = 14 Width = 362 Height = 115 ReadOnly = True ScrollBars = ssBoth TabOrder = 1 WantTabs = True end end object CheckBox1: TCheckBox Left = 8 Top = 131 Width = 121 Height = 17 Caption = '1. Rec. als Feldern.' TabOrder = 5 OnClick = CheckBox1Click end object Edit3: TEdit Left = 211 Top = 128 Width = 25 Height = 21 TabOrder = 6 Text = '0' OnChange = Edit3Change end object UpDown1: TUpDown Left = 236 Top = 128 Width = 15 Height = 21 Associate = Edit3 Min = 0 Position = 0 TabOrder = 7 Wrap = False end object Edit4: TEdit Left = 335 Top = 128 Width = 25 Height = 21 Hint = 'Startzeile ab der konvertiert wird' TabOrder = 8 Text = '0' OnChange = Edit4Change end object UpDown2: TUpDown Left = 360 Top = 128 Width = 15 Height = 21 Associate = Edit4 Min = 0 Position = 0 TabOrder = 9 Wrap = False end object Button3: TButton Left = 325 Top = 128 Width = 52 Height = 23 Hint = 'Felder und Record w�hlen' Caption = 'Record...' ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = Button3Click end object CheckBox2: TCheckBox Left = 256 Top = 131 Width = 64 Height = 17 Caption = 'Alle Rec.' TabOrder = 11 OnClick = CheckBox2Click end object MainMenu1: TMainMenu Left = 280 Top = 24 object Datei1: TMenuItem Caption = '&Datei' Hint = 'Datei Optionen' ShortCut = 0 object Dateiladen1: TMenuItem Caption = '&�ffnen...' Hint = 'Datei �ffnen' ShortCut = 114 OnClick = SpeedButton2Click end object Konvertieren1: TMenuItem Caption = '&Konvertieren' Hint = 'Datei konvertieren' ShortCut = 116 OnClick = SpeedButton3Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Beenden1: TMenuItem Caption = '&Beenden' Hint = 'RCKonverter beenden' ShortCut = 32883 OnClick = SpeedButton1Click end end object Hilfe1: TMenuItem Caption = '&Hilfe' Hint = 'Hilfe Optionen' ShortCut = 0 object Index1: TMenuItem Caption = 'Inde&x' Hint = 'Hilfe Index' ShortCut = 112 OnClick = SpeedButton4Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Info1: TMenuItem Caption = '&Info...' Hint = 'Info zum Programm' ShortCut = 0 OnClick = Info1Click end end end object Timer1: TTimer Interval = 500 OnTimer = Timer1Timer Left = 312 Top = 24 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Text Dateien (*.txt; *.asc; *.ini; *.bat; *.sys)|*.txt; *.asc; *' + '.ini; *.bat; *.sys|dBase Dateien (*.dbf)|*.dbf|Text und dBase Da' + 'teien|*.txt; *.asc; *.ini; *.bat; *.sys; *.dbf' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Text oder dBase Datei �ffnen' Left = 344 Top = 24 end end