settings.lfm

object fSettings: TfSettings
  Left = 353
  Height = 330
  Top = 130
  Width = 447
  Caption = 'Настройки'
  ClientHeight = 330
  ClientWidth = 447
  OnActivate = FormActivate
  LCLVersion = '2.0.2.0'
  object PageControl1: TPageControl
    Left = 0
    Height = 280
    Top = 0
    Width = 447
    ActivePage = SettingsAvtopoisk
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object SettingsAvtopoisk: TTabSheet
      Caption = 'Автопоиск'
      ClientHeight = 252
      ClientWidth = 439
      object cbAvtoUnkProg: TCheckBox
        Left = 16
        Height = 19
        Top = 48
        Width = 287
        Caption = 'Скрыть неизвестные программы из результатов'
        TabOrder = 0
      end
      object Label1: TLabel
        Left = 16
        Height = 30
        Top = 8
        Width = 394
        Caption = 'В результатах поиска могут быть строки со всеми пустыми столбцами,'#13#10'кроме исходного значения.  '
        ParentColor = False
      end
      object Label2: TLabel
        Left = 16
        Height = 1
        Top = 24
        Width = 1
        ParentColor = False
      end
      object cgAvtoKol: TCheckGroup
        Left = 16
        Height = 137
        Top = 88
        Width = 152
        AutoFill = True
        Caption = 'Колонки в таблице:'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 117
        ClientWidth = 148
        Items.Strings = (
          'Исходное название'
          'Название в БД*'
          'Тип ПО*'
          'Лицензия'
          'Стоимость'
          'Замена'
        )
        OnItemClick = cgAvtoKolItemClick
        TabOrder = 1
        Data = {
          06000000020202020202
        }
      end
      object Label3: TLabel
        Left = 16
        Height = 15
        Top = 224
        Width = 146
        Caption = '* - Обязательные столбцы'
        ParentColor = False
      end
      object LEZapParAvto: TLabeledEdit
        Left = 176
        Height = 23
        Top = 104
        Width = 256
        EditLabel.Height = 15
        EditLabel.Width = 256
        EditLabel.Caption = 'Путь для отчета при запуске с параметрами:'
        EditLabel.ParentColor = False
        TabOrder = 2
      end
      object Label9: TLabel
        Left = 176
        Height = 30
        Top = 136
        Width = 237
        Caption = 'Если строка пуста, тогда отчет сохраняется'#13#10'в каталог с программой'
        ParentColor = False
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Ручной поиск'
      ClientHeight = 252
      ClientWidth = 439
      object cgRuchKol: TCheckGroup
        Left = 8
        Height = 169
        Top = 16
        Width = 152
        AutoFill = True
        Caption = 'Колонки в таблице:'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 149
        ClientWidth = 148
        Items.Strings = (
          'Путь'
          'Название '
          'Исходный запрос'
          'Тип ПО*'
          'Лицензия'
          'Стоимость'
          'Замена'
        )
        OnItemClick = cgRuchKolItemClick
        TabOrder = 0
        Data = {
          0700000002020202020202
        }
      end
      object Label4: TLabel
        Left = 14
        Height = 15
        Top = 192
        Width = 146
        Caption = '* - Обязательные столбцы'
        ParentColor = False
      end
      object cbRuchFullDisk: TCheckBox
        Left = 200
        Height = 19
        Hint = 'Проверка всего диска может вызывать зависание программы и ошибки! Длина SQL запроса ограничена, а исполняемых файлов может быть слишком много!'
        Top = 40
        Width = 205
        Caption = 'Разрешить указывать весь раздел'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object Label5: TLabel
        Left = 168
        Height = 15
        Top = 8
        Width = 266
        Caption = 'По умолчанию запрещено указывать весь диск,'
        ParentColor = False
      end
      object Label6: TLabel
        Left = 176
        Height = 15
        Top = 24
        Width = 243
        Caption = 'иначе могут возникать зависания и ошибки'
        ParentColor = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'База данных'
      ClientHeight = 252
      ClientWidth = 439
      object Label7: TLabel
        Left = 48
        Height = 15
        Top = 8
        Width = 334
        Caption = 'В данной вкладке можно подключить свою базу программ. '
        ParentColor = False
      end
      object leUserDBName: TLabeledEdit
        Left = 8
        Height = 23
        Top = 48
        Width = 176
        EditLabel.Height = 15
        EditLabel.Width = 176
        EditLabel.Caption = 'Название программы'
        EditLabel.ParentColor = False
        TabOrder = 0
      end
      object leUserdbType: TLabeledEdit
        Left = 200
        Height = 23
        Top = 48
        Width = 128
        EditLabel.Height = 15
        EditLabel.Width = 128
        EditLabel.Caption = 'Тип ПО'
        EditLabel.ParentColor = False
        TabOrder = 1
      end
      object leUserDBLicense: TLabeledEdit
        Left = 344
        Height = 23
        Top = 48
        Width = 80
        EditLabel.Height = 15
        EditLabel.Width = 80
        EditLabel.Caption = 'Лицензия'
        EditLabel.ParentColor = False
        TabOrder = 2
      end
      object leUserdbCena: TLabeledEdit
        Left = 8
        Height = 23
        Top = 96
        Width = 88
        EditLabel.Height = 15
        EditLabel.Width = 88
        EditLabel.Caption = 'Цена'
        EditLabel.ParentColor = False
        TabOrder = 3
      end
      object leUserDBZamena: TLabeledEdit
        Left = 112
        Height = 23
        Top = 96
        Width = 128
        EditLabel.Height = 15
        EditLabel.Width = 128
        EditLabel.Caption = 'Замена'
        EditLabel.ParentColor = False
        TabOrder = 4
      end
      object leUserdbFile: TLabeledEdit
        Left = 256
        Height = 23
        Top = 96
        Width = 168
        EditLabel.Height = 15
        EditLabel.Width = 168
        EditLabel.Caption = 'Имя файла (без расширения)'
        EditLabel.ParentColor = False
        TabOrder = 5
      end
      object bUserdbAddtobase: TButton
        Left = 128
        Height = 25
        Top = 128
        Width = 187
        Caption = 'Добавить в базу пользователя'
        OnClick = bUserdbAddtobaseClick
        TabOrder = 6
      end
      object bUserdbSyncdb: TButton
        Left = 112
        Height = 25
        Top = 200
        Width = 216
        Caption = 'Синхронизировать с основной базой'
        OnClick = bUserdbSyncdbClick
        TabOrder = 7
      end
      object Label8: TLabel
        Left = 8
        Height = 30
        Top = 160
        Width = 403
        Caption = 'После обновления основной базы и изменений в пользователькой базе,'#13#10'необходимо синхронизировать с основной базой данных'
        ParentColor = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 50
    Top = 280
    Width = 447
    Align = alBottom
    ClientHeight = 50
    ClientWidth = 447
    TabOrder = 1
    object bAvtoOk: TButton
      Left = 120
      Height = 25
      Top = 8
      Width = 75
      Caption = 'Ок'
      OnClick = bAvtoOkClick
      TabOrder = 0
    end
    object bAvtoCancel: TButton
      Left = 216
      Height = 25
      Top = 8
      Width = 75
      Caption = 'Отмена'
      OnClick = bAvtoCancelClick
      TabOrder = 1
    end
    object bAvtoApple: TButton
      Left = 312
      Height = 25
      Top = 8
      Width = 75
      Caption = 'Применить'
      OnClick = bAvtoAppleClick
      TabOrder = 2
    end
  end
  object SQLite3Connection1: TSQLite3Connection
    Connected = False
    LoginPrompt = False
    DatabaseName = 'Lpro.db'
    KeepConnection = False
    CharSet = 'UTF8'
    left = 96
    top = 240
  end
  object SQLTransaction1: TSQLTransaction
    Active = False
    Database = fMian.SQLite3Connection1
    left = 56
    top = 240
  end
  object DataSource1: TDataSource
    DataSet = SQLQuery1
    left = 16
    top = 240
  end
  object SQLQuery1: TSQLQuery
    PacketRecords = -1
    FieldDefs = <>
    Database = fMian.SQLite3Connection1
    Transaction = fMian.SQLTransaction1
    Params = <>
    left = 136
    top = 240
  end
  object SQLite3ConnUserDB: TSQLite3Connection
    Connected = False
    LoginPrompt = False
    DatabaseName = 'User-DB.db'
    KeepConnection = False
    Transaction = SQLTransUserDB
    CharSet = 'UTF8'
    left = 312
    top = 216
  end
  object DataSourceUserDB: TDataSource
    DataSet = SQLQuerUserDB
    left = 344
    top = 208
  end
  object SQLTransUserDB: TSQLTransaction
    Active = False
    Database = SQLite3ConnUserDB
    left = 272
    top = 208
  end
  object SQLQuerUserDB: TSQLQuery
    FieldDefs = <>
    Database = SQLite3ConnUserDB
    Transaction = SQLTransUserDB
    Params = <>
    left = 400
    top = 232
  end
end