Chip Hitware 8/Chip_Hitware_Vol_08.iso/chiphit8/business/95tpetik/rckonver.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-12-17 | 12KB | 450 lines

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