object GenSQLOptsForm: TGenSQLOptsForm
  Left = 372
  Top = 259
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'SQL Text Options'
  ClientHeight = 308
  ClientWidth = 238
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 19
    Width = 70
    Height = 13
    Caption = 'SQL &Keywords'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 52
    Width = 60
    Height = 13
    Caption = 'SQL &Objects'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object OKButton: TButton
    Left = 19
    Top = 272
    Width = 75
    Height = 25
    Caption = '&OK'
    Default = True
    TabOrder = 2
    OnClick = OKButtonClick
  end
  object CancelButton: TButton
    Left = 139
    Top = 272
    Width = 81
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 3
    OnClick = CancelButtonClick
  end
  object Preview: TMemo
    Left = 12
    Top = 116
    Width = 213
    Height = 136
    TabStop = False
    Color = clBtnFace
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'SELECT'
      '  name,'
      '  address,'
      '  phone_number'
      'FROM'
      '  people'
      'WHERE'
      '  name = :name;')
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object KeywordCombo: TComboBox
    Left = 96
    Top = 16
    Width = 113
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Capitalised'
      'Lowercase'
      'Uppercase')
    Sorted = True
    TabOrder = 0
    OnChange = KeywordComboChange
  end
  object ObjectCombo: TComboBox
    Left = 96
    Top = 48
    Width = 113
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Capitalised'
      'Lowercase'
      'Uppercase')
    Sorted = True
    TabOrder = 1
    OnChange = ObjectComboChange
  end
  object CRInList: TCheckBox
    Left = 16
    Top = 80
    Width = 113
    Height = 17
    Alignment = taLeftJustify
    Caption = '&Carriage Returns'
    TabOrder = 5
    OnClick = CRInListClick
  end
  object WithCRs: TMemo
    Left = 152
    Top = 80
    Width = 25
    Height = 25
    Lines.Strings = (
      'select'
      '   name,'
      '   address'
      'from'
      '   people'
      'where'
      '   name = :name;')
    ReadOnly = True
    TabOrder = 6
    Visible = False
    WordWrap = False
  end
  object WithoutCRs: TMemo
    Left = 192
    Top = 80
    Width = 25
    Height = 25
    TabStop = False
    Lines.Strings = (
      'select'
      '   name,address'
      'from'
      '   people'
      'where'
      '   name = :name;')
    ReadOnly = True
    TabOrder = 7
    Visible = False
    WordWrap = False
  end
end