object FrmMain: TFrmMain
  Left = 256
  Top = 124
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Crystal Reports Data Definition Tool'
  ClientHeight = 292
  ClientWidth = 436
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MnuMain
  PixelsPerInch = 96
  Position = poScreenCenter
  PrintScale = poPrintToFit
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 16
  object LblFieldName: TLabel
    Left = 10
    Top = 15
    Width = 82
    Height = 16
    AutoSize = False
    Caption = 'Field Name :'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LblFieldType: TLabel
    Left = 10
    Top = 55
    Width = 80
    Height = 16
    AutoSize = False
    Caption = 'Field Type : '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LblLength: TLabel
    Left = 314
    Top = 55
    Width = 65
    Height = 17
    AutoSize = False
    Caption = 'Length : '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object LblSampleData: TLabel
    Left = 10
    Top = 95
    Width = 95
    Height = 17
    AutoSize = False
    Caption = 'Sample Data : '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object StrGDisplay: TStringGrid
    Left = 10
    Top = 168
    Width = 417
    Height = 113
    TabStop = False
    ColCount = 4
    DefaultRowHeight = 20
    Enabled = False
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goTabs, goRowSelect]
    RowCount = 2
    TabOrder = 0
    OnMouseDown = StrGDisplayMouseDown
    ColWidths = (
      64
      64
      64
      64)
  end
  object EdtFieldName: TEdit
    Left = 104
    Top = 11
    Width = 321
    Height = 24
    Enabled = False
    TabOrder = 1
  end
  object CmbFieldType: TComboBox
    Left = 104
    Top = 51
    Width = 193
    Height = 24
    Enabled = False
    ItemHeight = 16
    Sorted = True
    TabOrder = 2
    OnChange = CmbFieldTypeChange
  end
  object EdtLength: TEdit
    Left = 376
    Top = 51
    Width = 49
    Height = 24
    Enabled = False
    TabOrder = 3
    Visible = False
  end
  object EdtSampleData: TEdit
    Left = 104
    Top = 91
    Width = 321
    Height = 24
    Enabled = False
    TabOrder = 4
  end
  object BtnAdd: TButton
    Left = 49
    Top = 128
    Width = 89
    Height = 25
    Caption = '&Add'
    Enabled = False
    TabOrder = 5
    OnClick = BtnAddClick
  end
  object BtnCancel: TButton
    Left = 177
    Top = 128
    Width = 89
    Height = 25
    Caption = '&Clear'
    Enabled = False
    TabOrder = 6
    OnClick = BtnCancelClick
  end
  object BtnDelete: TButton
    Left = 297
    Top = 128
    Width = 89
    Height = 25
    Caption = '&Delete'
    Enabled = False
    TabOrder = 7
    OnClick = BtnDeleteClick
  end
  object MnuMain: TMainMenu
    Left = 140
    Top = 226
    object MnuFile: TMenuItem
      Caption = '&File'
      object MnuFileNew: TMenuItem
        Caption = '&New'
        OnClick = MnuFileNewClick
      end
      object MnuFileOpen: TMenuItem
        Caption = '&Open'
        OnClick = MnuFileOpenClick
      end
      object MnuFileLine1: TMenuItem
        Caption = '-'
      end
      object MnuFileSaveAs: TMenuItem
        Caption = 'Save &As'
        Enabled = False
        OnClick = MnuFileSaveAsClick
      end
      object MnuFileSave: TMenuItem
        Caption = '&Save'
        Enabled = False
        OnClick = MnuFileSaveClick
      end
      object MnuFileClose: TMenuItem
        Caption = '&Close'
        Enabled = False
        OnClick = MnuFileCloseClick
      end
      object MnuFileLine2: TMenuItem
        Caption = '-'
      end
      object MnuFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = MnuFileExitClick
      end
    end
  end
  object DlgOpen: TOpenDialog
    DefaultExt = 'ttx'
    Filter = 'Crystal Memory Modules|*.ttx|All Files|*.*'
    Left = 52
    Top = 226
  end
  object DlgSave: TSaveDialog
    DefaultExt = 'ttx'
    Filter = 'Field Defintion File|*.ttx|All Files|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist]
    Left = 92
    Top = 226
  end
end