delphimvcframework/tools/entitygenerator/MainFormU.dfm

object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = '[DMVCFramework] MVCActiveRecord Entity Generator'
  ClientHeight = 684
  ClientWidth = 1012
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Segoe UI'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 21
  object Splitter1: TSplitter
    Left = 0
    Top = 207
    Width = 1012
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ExplicitTop = 169
    ExplicitWidth = 215
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1012
    Height = 39
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      AlignWithMargins = True
      Left = 350
      Top = 11
      Width = 276
      Height = 17
      Margins.Left = 10
      Margins.Top = 10
      Margins.Right = 10
      Margins.Bottom = 10
      Align = alLeft
      Caption = 'Select a FireDAC Connection Definitions'
      Layout = tlCenter
      ExplicitHeight = 21
    end
    object cboConnectionDefs: TComboBox
      AlignWithMargins = True
      Left = 4
      Top = 4
      Width = 333
      Height = 29
      Align = alLeft
      TabOrder = 0
      OnChange = cboConnectionDefsChange
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 39
    Width = 1012
    Height = 168
    Align = alTop
    Caption = 'Panel1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      AlignWithMargins = True
      Left = 4
      Top = 4
      Width = 1004
      Height = 13
      Align = alTop
      Caption = 'FireDAC connection parameters'
      ExplicitWidth = 152
    end
    object mmConnectionParams: TMemo
      AlignWithMargins = True
      Left = 4
      Top = 23
      Width = 638
      Height = 141
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Consolas'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
      OnChange = mmConnectionParamsChange
    end
    object Panel6: TPanel
      Left = 645
      Top = 20
      Width = 366
      Height = 147
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel6'
      ShowCaption = False
      TabOrder = 1
      object GroupBox1: TGroupBox
        AlignWithMargins = True
        Left = 3
        Top = 3
        Width = 360
        Height = 141
        Align = alClient
        Caption = 'Options'
        Padding.Left = 5
        Padding.Top = 5
        Padding.Right = 5
        Padding.Bottom = 5
        TabOrder = 0
        object lstSchema: TListBox
          AlignWithMargins = True
          Left = 215
          Top = 23
          Width = 135
          Height = 108
          Align = alClient
          ItemHeight = 13
          TabOrder = 0
          OnDblClick = lstSchemaDblClick
        end
        object lstCatalog: TListBox
          AlignWithMargins = True
          Left = 71
          Top = 23
          Width = 138
          Height = 108
          Align = alLeft
          ItemHeight = 13
          TabOrder = 1
          OnDblClick = lstCatalogDblClick
        end
        object btnRefreshCatalog: TButton
          AlignWithMargins = True
          Left = 10
          Top = 23
          Width = 55
          Height = 108
          Align = alLeft
          Caption = 'Refresh'
          TabOrder = 2
          OnClick = btnRefreshCatalogClick
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 210
    Width = 1012
    Height = 474
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 1010
      Height = 156
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Panel4'
      ShowCaption = False
      TabOrder = 0
      DesignSize = (
        1010
        156)
      object SpeedButton1: TSpeedButton
        AlignWithMargins = True
        Left = 129
        Top = 3
        Width = 133
        Height = 29
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'Select All'
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        AlignWithMargins = True
        Left = 267
        Top = 3
        Width = 133
        Height = 29
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'Select None'
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        AlignWithMargins = True
        Left = 405
        Top = 3
        Width = 133
        Height = 29
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'Invert Selection'
        OnClick = SpeedButton3Click
      end
      object btnGenEntities: TButton
        AlignWithMargins = True
        Left = 842
        Top = 5
        Width = 161
        Height = 35
        Anchors = [akRight, akBottom]
        Caption = 'Generate Entities'
        TabOrder = 0
        OnClick = btnGenEntitiesClick
      end
      object btnGetTables: TButton
        AlignWithMargins = True
        Left = 3
        Top = 3
        Width = 120
        Height = 40
        Caption = 'Get Tables'
        TabOrder = 1
        OnClick = btnGetTablesClick
      end
      object chGenerateMapping: TCheckBox
        AlignWithMargins = True
        Left = 10
        Top = 121
        Width = 997
        Height = 32
        Margins.Left = 10
        Align = alBottom
        Caption = 
          'Register entities in ActiveRecordMappingRegistry (needed by TMVC' +
          'ActiveRecordController)'
        Checked = True
        State = cbChecked
        TabOrder = 2
        WordWrap = True
      end
      object RadioGroup1: TRadioGroup
        Left = 7
        Top = 49
        Width = 531
        Height = 68
        Caption = 'MVCNameCase'
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          'LowerCase'
          'UpperCase'
          'CamelCase'
          'PascalCase'
          'SnakeCase'
          'AsIs')
        TabOrder = 3
      end
    end
    object PageControl1: TPageControl
      AlignWithMargins = True
      Left = 4
      Top = 160
      Width = 1004
      Height = 310
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      object TabSheet1: TTabSheet
        Caption = 'Tables'
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 996
          Height = 274
          Align = alClient
          DataSource = dsrcTablesMapping
          DefaultDrawing = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -16
          TitleFont.Name = 'Segoe UI'
          TitleFont.Style = []
          OnCellClick = DBGrid1CellClick
          OnDrawColumnCell = DBGrid1DrawColumnCell
          Columns = <
            item
              ButtonStyle = cbsNone
              Expanded = False
              FieldName = 'GENERATE'
              PickList.Strings = (
                'yes'
                'no')
              ReadOnly = True
              Width = 86
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TABLE_NAME'
              Width = 478
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLASS_NAME'
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Generated Code'
        ImageIndex = 1
        object mmOutput: TMemo
          AlignWithMargins = True
          Left = 3
          Top = 44
          Width = 990
          Height = 227
          Align = alClient
          BevelInner = bvNone
          BevelOuter = bvNone
          BorderStyle = bsNone
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Consolas'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 996
          Height = 41
          Align = alTop
          Caption = 'Panel5'
          ShowCaption = False
          TabOrder = 1
          object btnSaveCode: TButton
            AlignWithMargins = True
            Left = 4
            Top = 4
            Width = 75
            Height = 33
            Align = alLeft
            Caption = '&Save'
            TabOrder = 0
            OnClick = btnSaveCodeClick
          end
        end
      end
    end
  end
  object FDConnection1: TFDConnection
    Params.Strings = (
      'DriverID=MSSQL')
    ResourceOptions.AssignedValues = [rvKeepConnection]
    ResourceOptions.KeepConnection = False
    UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
    UpdateOptions.EnableDelete = False
    UpdateOptions.EnableInsert = False
    UpdateOptions.EnableUpdate = False
    ConnectedStoredUsage = []
    LoginPrompt = False
    Left = 256
    Top = 56
  end
  object qry: TFDQuery
    Connection = FDConnection1
    FetchOptions.AssignedValues = [evRecsMax, evRowsetSize, evUnidirectional, evAutoFetchAll]
    FetchOptions.Unidirectional = True
    FetchOptions.RowsetSize = 1
    FetchOptions.RecsMax = 1
    FetchOptions.AutoFetchAll = afDisable
    UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
    UpdateOptions.EnableDelete = False
    UpdateOptions.EnableInsert = False
    UpdateOptions.EnableUpdate = False
    Left = 304
    Top = 152
  end
  object FDPhysFBDriverLink1: TFDPhysFBDriverLink
    Left = 504
    Top = 496
  end
  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
    Provider = 'Forms'
    Left = 424
    Top = 104
  end
  object FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink
    Left = 784
    Top = 568
  end
  object FileSaveDialog1: TFileSaveDialog
    FavoriteLinks = <>
    FileTypes = <
      item
        DisplayName = 'Delphi Unit'
        FileMask = '*.pas'
      end>
    Options = []
    Left = 328
    Top = 416
  end
  object FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink
    Left = 616
    Top = 568
  end
  object FDPhysPgDriverLink1: TFDPhysPgDriverLink
    Left = 784
    Top = 496
  end
  object FDPhysFBDriverLink2: TFDPhysFBDriverLink
    Left = 616
    Top = 408
  end
  object FDPhysIBDriverLink1: TFDPhysIBDriverLink
    Left = 616
    Top = 496
  end
  object FDPhysMySQLDriverLink2: TFDPhysMySQLDriverLink
    Left = 504
    Top = 568
  end
  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
    Left = 504
    Top = 408
  end
  object dsTablesMapping: TFDMemTable
    Active = True
    FieldDefs = <
      item
        Name = 'TABLE_NAME'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'CLASS_NAME'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'GENERATE'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    StoreDefs = True
    Left = 96
    Top = 504
    object dsTablesMappingGENERATE: TBooleanField
      DisplayLabel = 'Generate?'
      FieldName = 'GENERATE'
    end
    object dsTablesMappingTABLE_NAME: TStringField
      DisplayLabel = 'Table Name'
      DisplayWidth = 60
      FieldName = 'TABLE_NAME'
      Size = 100
    end
    object dsTablesMappingCLASS_NAME: TStringField
      DisplayLabel = 'Class Name'
      DisplayWidth = 60
      FieldName = 'CLASS_NAME'
      Size = 100
    end
  end
  object dsrcTablesMapping: TDataSource
    DataSet = dsTablesMapping
    Left = 96
    Top = 448
  end
end