object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = 'CSV2ORM version 1.1'
  ClientHeight = 613
  ClientWidth = 1094
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageMain: TPageControl
    Left = 0
    Top = 0
    Width = 1094
    Height = 613
    ActivePage = TSProject
    Align = alClient
    TabOrder = 0
    object TSProject: TTabSheet
      Caption = 'Project'
      object Splitter1: TSplitter
        Left = 0
        Top = 324
        Width = 1086
        Height = 5
        Cursor = crVSplit
        Align = alBottom
        ExplicitTop = 0
      end
      object Panel2: TPanel
        Left = 0
        Top = 65
        Width = 1086
        Height = 259
        Align = alClient
        TabOrder = 0
        object JvDBUltimGrid1: TJvDBUltimGrid
          Left = 1
          Top = 1
          Width = 899
          Height = 257
          Align = alClient
          DataSource = DS
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          SelectColumnsDialogStrings.Caption = 'Select columns'
          SelectColumnsDialogStrings.OK = '&OK'
          SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
          EditControls = <>
          RowsHeight = 17
          TitleRowHeight = 17
          Columns = <
            item
              Expanded = False
              FieldName = 'Name'
              Width = 124
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Tipe'
              PickList.Strings = (
                'Integer'
                'Int64'
                'Boolean'
                'Double'
                'TDateTime'
                'Currency')
              Width = 93
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Field'
              PickList.Strings = (
                'TStringField'
                'TIntegerField'
                'TLargeIntField'
                'TBooleanField'
                'TFloatField'
                'TDateTimeField'
                'TCurrencyField')
              Width = 109
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FieldAs'
              Width = 143
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Control'
              PickList.Strings = (
                '-none-'
                'TDBEdit'
                'TDBComboBox'
                'TDBMemo'
                'TDBRadioGroup'
                'TDBCheckBox'
                'TJvDBDateEdit')
              Width = 93
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ControlName'
              Width = 130
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Size'
              Width = 71
              Visible = True
            end>
        end
        object DBMemo1: TDBMemo
          Left = 900
          Top = 1
          Width = 185
          Height = 257
          Align = alRight
          DataSource = DS
          TabOrder = 1
        end
      end
      object Memo1: TMemo
        Left = 0
        Top = 329
        Width = 1086
        Height = 256
        Align = alBottom
        Color = clMoneyGreen
        PopupMenu = PopupMenu1
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 1086
        Height = 65
        Align = alTop
        TabOrder = 2
        object BitBtn1: TBitBtn
          Left = 8
          Top = 8
          Width = 129
          Height = 25
          Caption = 'Load from CSV'
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object DBNavigator1: TDBNavigator
          Left = 8
          Top = 33
          Width = 225
          Height = 25
          DataSource = DS
          VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
          TabOrder = 1
        end
        object BtnGenerate: TBitBtn
          Left = 303
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Generate !'
          Enabled = False
          TabOrder = 2
          OnClick = BtnGenerateClick
        end
        object ComboTempl: TJvDBLookupCombo
          Left = 152
          Top = 11
          Width = 145
          Height = 21
          LookupField = 'Name'
          LookupDisplay = 'Name'
          LookupSource = DSTemplates
          TabOrder = 3
        end
      end
    end
    object TSTemplates: TTabSheet
      Caption = 'Templates'
      ImageIndex = 1
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 1086
        Height = 31
        Align = alTop
        TabOrder = 0
        object BtnTemplSave: TBitBtn
          Left = 1
          Top = 1
          Width = 129
          Height = 25
          Caption = 'Save template'
          TabOrder = 0
          OnClick = BtnTemplSaveClick
        end
      end
      object PanelLeft: TPanel
        Left = 0
        Top = 31
        Width = 265
        Height = 554
        Align = alLeft
        TabOrder = 1
        object Splitter2: TSplitter
          Left = 1
          Top = 217
          Width = 263
          Height = 3
          Cursor = crVSplit
          Align = alTop
        end
        object PanelFiles: TJvCaptionPanel
          Left = 1
          Top = 220
          Width = 263
          Height = 333
          Align = alClient
          Buttons = []
          Caption = 'Files'
          CaptionFont.Charset = DEFAULT_CHARSET
          CaptionFont.Color = clWhite
          CaptionFont.Height = -13
          CaptionFont.Name = 'Tahoma'
          CaptionFont.Style = [fsBold]
          OutlookLook = False
          TabOrder = 0
          object JvDBUltimGrid3: TJvDBUltimGrid
            Left = 25
            Top = 1
            Width = 223
            Height = 317
            Align = alClient
            DataSource = DSFiles
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            SelectColumnsDialogStrings.Caption = 'Select columns'
            SelectColumnsDialogStrings.OK = '&OK'
            SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
            EditControls = <>
            RowsHeight = 17
            TitleRowHeight = 17
            Columns = <
              item
                Expanded = False
                FieldName = 'FileName'
                Visible = True
              end>
          end
        end
        object PanelTemplates: TJvCaptionPanel
          Left = 1
          Top = 1
          Width = 263
          Height = 216
          Align = alTop
          Buttons = []
          Caption = 'Templates'
          CaptionFont.Charset = DEFAULT_CHARSET
          CaptionFont.Color = clWhite
          CaptionFont.Height = -13
          CaptionFont.Name = 'Tahoma'
          CaptionFont.Style = [fsBold]
          OutlookLook = False
          TabOrder = 1
          object JvDBUltimGrid2: TJvDBUltimGrid
            Left = 25
            Top = 1
            Width = 223
            Height = 200
            Align = alClient
            DataSource = DSTemplates
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            SelectColumnsDialogStrings.Caption = 'Select columns'
            SelectColumnsDialogStrings.OK = '&OK'
            SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
            EditControls = <>
            RowsHeight = 17
            TitleRowHeight = 17
            Columns = <
              item
                Expanded = False
                FieldName = 'Name'
                Visible = True
              end>
          end
        end
      end
      object MemoSource: TDBMemo
        Left = 265
        Top = 31
        Width = 821
        Height = 554
        Align = alClient
        DataField = 'Source'
        DataSource = DSFiles
        TabOrder = 2
      end
    end
  end
  object CDS: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'Orde'
    Params = <>
    Left = 272
    Top = 24
    Data = {
      F60000009619E0BD010000001800000009000000000003000000F600044F7264
      650400010000000000044E616D65010049000000010005574944544802000200
      320004546970650100490000000100055749445448020002001400054669656C
      640100490000000100055749445448020002001E00074669656C644173010049
      0000000100055749445448020002001E0007436F6E74726F6C01004900000001
      00055749445448020002003200094442436F6E74726F6C010049000000010005
      57494454480200020032000B436F6E74726F6C4E616D65010049000000010005
      57494454480200020032000453697A6504000100000000000000}
    object CDSOrde: TIntegerField
      FieldName = 'Orde'
    end
    object CDSName: TStringField
      DisplayWidth = 33
      FieldName = 'Name'
      Size = 50
    end
    object CDSTipe: TStringField
      FieldName = 'Tipe'
    end
    object CDSField: TStringField
      FieldName = 'Field'
      Size = 30
    end
    object CDSFieldAs: TStringField
      FieldName = 'FieldAs'
      Size = 30
    end
    object CDSControl: TStringField
      FieldName = 'Control'
      Size = 50
    end
    object CDSDBControl: TStringField
      FieldName = 'DBControl'
      Size = 50
    end
    object CDSControlName: TStringField
      FieldName = 'ControlName'
      Size = 50
    end
    object CDSSize: TIntegerField
      FieldName = 'Size'
    end
  end
  object DS: TDataSource
    DataSet = CDS
    Left = 272
    Top = 80
  end
  object FileOpenDialog1: TFileOpenDialog
    DefaultExtension = 'ORM'
    FavoriteLinks = <>
    FileTypes = <
      item
        DisplayName = 'CSV files (*.csv)'
        FileMask = '*.csv'
      end
      item
        DisplayName = 'ORM files (*.orm)'
        FileMask = '*.orm'
      end
      item
        DisplayName = 'All files (*.*)'
        FileMask = '*.*'
      end>
    FileTypeIndex = 0
    Options = []
    Left = 696
    Top = 120
  end
  object FileSaveDialog1: TFileSaveDialog
    FavoriteLinks = <>
    FileTypes = <
      item
        DisplayName = 'ORM files (*.orm)'
        FileMask = '*.orm'
      end
      item
        DisplayName = 'All files (*.*)'
        FileMask = '*.*'
      end>
    FileTypeIndex = 0
    Options = []
    Left = 696
    Top = 176
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 408
    object ImportthisasNameType1: TMenuItem
      Caption = 'Import CSV file'
      OnClick = ImportthisasNameType1Click
    end
  end
  object Templates: TClientDataSet
    Active = True
    Aggregates = <>
    FileName = 'Templates.cds'
    Params = <>
    Left = 520
    Top = 104
    Data = {
[encoded data, 43097 characters]
      2831207265636F726429}
    object TemplatesName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object TemplatesFiles: TDataSetField
      FieldName = 'Files'
    end
  end
  object DSTemplates: TDataSource
    DataSet = Templates
    Left = 520
    Top = 152
  end
  object Files: TClientDataSet
    Active = True
    Aggregates = <>
    DataSetField = TemplatesFiles
    Params = <>
    Left = 520
    Top = 224
    object FilesFileName: TStringField
      FieldName = 'FileName'
      Size = 128
    end
    object FilesSource: TBlobField
      FieldName = 'Source'
      Size = 8192
    end
  end
  object DSFiles: TDataSource
    DataSet = Files
    Left = 520
    Top = 272
  end
end
