object fmSpr_Stat: TfmReestr_New
  Left = 245
  Top = 107
  Width = 718
  Height = 543
  Caption = 'Статус организации'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  MainDataSet = dmDaic.cdsStat_Org
  AutoActiveDS = true
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13

  object cbOrganization: TControlBar
    Left = 0
    Top = 0
    Width = 710
    Height = 78
    Align = alTop
    AutoDock = False
    AutoDrag = False
    AutoSize = True
    TabOrder = 0

    object tbOrganization: TToolBar
      Left = 11
      Top = 2
      Width = 670
      Height = 70
      AutoSize = True
      ButtonHeight = 68
      ButtonWidth = 112
      Caption = ''
      Flat = True
      Images = ilReestr
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0

      object tbPrint: TToolButton
        Left = 63
        Top = 0
        AutoSize = True
        Caption = 'Печать'
        ImageIndex = 1
        MenuItem = mnPrintOrg
      end

      object tbSep2: TToolButton
        Left = 118
        Top = 0
        Width = 8
        Caption = ''
        ImageIndex = 5
        Style = tbsSeparator
      end

      object tbAddStat: TToolButton
        Left = 126
        Top = 0
        AutoSize = True
        Caption = 'Добавить'
        ImageIndex = 2
        MenuItem = mnAdd
      end

      object tbEditStat: TToolButton
        Left = 187
        Top = 0
        AutoSize = True
        Caption = 'Изменить'
        ImageIndex = 3
      end

      object tbSep3: TToolButton
        Left = 303
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 5
        Style = tbsSeparator
      end

      object tbFirst: TToolButton
        Left = 311
        Top = 0
        AutoSize = True
        Caption = #1050' '#1087#1077#1088#1074#1086#1081
        ImageIndex = 4
      end
      object tbPrev: TToolButton
        Left = 368
        Top = 0
        AutoSize = True
        Caption = #1050' '#1087#1088#1077#1076#1099#1076#1091#1097#1077#1081
        ImageIndex = 5
      end
      object tbNext: TToolButton
        Left = 453
        Top = 0
        AutoSize = True
        Caption = #1050' '#1089#1083#1077#1076#1091#1097#1077#1081
        ImageIndex = 6
      end
      object tbLast: TToolButton
        Left = 524
        Top = 0
        AutoSize = True
        Caption = #1050' '#1087#1086#1089#1083#1077#1076#1085#1077#1081
        ImageIndex = 7
      end
      object tbRefresh: TToolButton
        Left = 599
        Top = 0
        AutoSize = True
        Caption = #1054#1073#1085#1086#1074#1080#1090#1100
        ImageIndex = 8
      end
    end
  end

  object dbgReestr: TDeloDBGrid
    Left = 0
    Top = 78
    Width = 318
    Height = 438
    Align = alClient
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    DataSource = dmDaic.dsStat_Org
    PopupMenu = pmStat_Org
  end

  object ilReestr: TDeloImageList
    Height = 48
    Width = 48
    Left = 680
    Top = 8
    XMLFile = '$$DELO$$images.xml'
  end

  object pmStat_Org: TDeloPopupMenu
    Left = 56
    Top = 376
    DataSource = dmDaic.dsStat_Org
    object mnAdd: TDeloMenuItem
      Caption = 'Добавить'
      FunctionName = 'ModifySimpleRecord'
      FunctionParameters =
      <
        item
          ParamType = 7
        end
        item
          ParamType = 0
          ParamValue = '0'
        end
        item
          ParamType = 4
          ParamValue = 'ID'
        end
        item
          ParamType = 4
          ParamValue = 'STAT_ORG'
        end
        item
          ParamType = 4
          ParamValue = 'fmAddStatOrg'
        end
        item
          ParamType = 4
          ParamValue = '$$DELO$$\dfm\Stat_Org.dfm'
        end
        item
          ParamType = 4
          ParamValue = 'Добавьте сведения о статусе организации'
        end
          item
            ParamType = 4
            ParamValue = ''
          end
          item
            ParamType = 4
            ParamValue = ''
          end
          item
            ParamType = 0
            ParamValue = '1'
          end
      >
    end
    object mnEditRebuild: TDeloMenuItem
      Caption = 'Изменить'
      FunctionName = 'ModifySimpleRecord'
      FunctionParameters =
      <
        item
          ParamType = 7
          ParamValue = 'dsRebuild'
        end
        item
          ParamType = 0
          ParamValue = '1'
        end
        item
          ParamType = 4
          ParamValue = 'ID'
        end
        item
          ParamType = 4
          ParamValue = 'STAT_ORG'
        end
        item
          ParamType = 4
          ParamValue = 'fmAddStatOrg'
        end
        item
          ParamType = 4
          ParamValue = '$$DELO$$\dfm\Stat_Org.dfm'
        end
        item
          ParamType = 4
          ParamValue = 'Добавьте сведения о переименовании'
        end
      >
    end
    object mnDeleteStat: TDeloMenuItem
      Caption = 'Удалить'
      FunctionName = 'DeleteSimpleRecord'
      FunctionParameters =
      <
        item
          ParamType = 7
          ParamValue = 'dsRebuild'
        end
        item
          ParamType = 4
          ParamValue = 'Удалить статус организации?'
        end
      >
    end

    object mnFirstStat: TDeloMenuItem
      Caption = 'К первой записи'
      FunctionName = 'GoRecord'
      FunctionParameters =
          <
          item
              ParamType = 7
          end
          item
              ParamValue = '-2'
              ParamType = 0
          end
          >
    end

    object mnPrevStat: TDeloMenuItem
      Caption = 'К предыдущей записи'
      FunctionName = 'GoRecord'
      FunctionParameters =
          <
          item
             ParamType = 7
          end
          item
              ParamValue = '-1'
              ParamType = 0
          end
          >
    end

    object mnNextStat: TDeloMenuItem
      Caption = 'К следующей записи'
      FunctionName = 'GoRecord'
      FunctionParameters =
          <
          item
             ParamType = 7
          end
          item
              ParamValue = '1'
              ParamType = 0
          end
          >
    end

    object mnLastStat: TDeloMenuItem
      Caption = 'К последней записи'
      FunctionName = 'GoRecord'
      FunctionParameters =
          <
          item
             ParamType = 7
          end
          item
              ParamValue = '2'
              ParamType = 0
          end
          >
    end

    object mnRefreshStat: TDeloMenuItem
      Caption = 'Обновить'
      FunctionName = 'GoRecord'
      FunctionParameters =
          <
          item
              ParamType = 7
          end
          item
              ParamValue = '0'
              ParamType = 0
          end
          >
    end

  end

end
