object frMailBox: TfrMailBox
  Left = 0
  Top = 0
  Width = 893
  Height = 545
  TabOrder = 0
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 893
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    ParentBackground = False
    TabOrder = 0
    DesignSize = (
      893
      33)
    object Label1: TLabel
      Left = 694
      Top = 10
      Width = 65
      Height = 13
      Anchors = [akTop, akRight]
      Caption = 'Color Schema'
      ExplicitLeft = 332
    end
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 893
      Height = 33
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ExplicitWidth = 531
    end
    object Label2: TLabel
      Left = 41
      Top = 7
      Width = 76
      Height = 23
      Caption = 'MailBox'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image1: TImage
      Left = 9
      Top = 4
      Width = 24
      Height = 24
      Center = True
      Picture.Data = {
        07544269746D6170F6060000424DF60600000000000036000000280000001800
        0000180000000100180000000000C0060000120B0000120B0000000000000000
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF5E9BC05E9BC05E9BC0FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FF5E9BC05E9BC05E9BC05E9BC065AACA
        67ACCC5E9BC0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF558CB5578FB75E9BC067A4C969A6CB68AFCD69B1CF69
        B1CF69B1CF69B0CE61A0C476C2DC6FADD1FF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF5A95BB5A95BB5D9ABF61A1C566ABCA6AB2D06AB2D06AB2D06AB3
        D06BB3D16BB3D16BB4D16BB4D261A1C472BCD77CCCE36FADD1FF00FFFF00FFFF
        00FF60A0C360A0C360A0C366AACA6AB1D06BB4D26CB5D26CB5D26CB6D36DB6D3
        6DB6D36DB7D36EB7D46EB8D46EB8D46EB8D561A1C26AAFCE79C8E07DCDE46FAD
        D1FF00FFFF00FFFF00FF6FADD15E9CBE5C9AB76EB8D46EB9D56FB9D56FB9D56F
        BAD670BAD670BBD670BBD771BBD771BCD771BCD871BDD869AECC63A3C577C4DD
        7BCAE27FCFE66EB4D2FF00FFFF00FFFF00FF6FADD177C3DD67AACB5892B568AD
        C972BED972BED973BED973BFD973BFDA74C0DA74C0DA74C0DB74C1DB6FB8D35E
        9BC074C0DB78C6DF7CCBE380D1E778C3DDFF00FFFF00FFFF00FF6FADD174BED9
        7CCBE377C3DD66A8C95D99BA65A8C176C3DD76C3DD77C4DD77C4DD77C5DE77C5
        DE75C0D95E9CC070BAD675C2DC79C8E07DCDE481D3E885D8EC6FADD1FF00FFFF
        00FFFF00FF6BAFCE7FCFE67BCBE278C6DF73BFDA64A6C75B96B66FB6D07AC8E1
        7AC9E17AC9E17BC9E264A4C469AECD73BED977C4DD7BC9E17FCFE682D4EA86DA
        EE6FADD1FF00FFFF00FFFF00FF6FADD181D3E87ECEE57BCAE278C6DF75C1DB70
        BAD662A3C65E9ABB72BBD37ECEE56EB4D061A1C470BBD674C0DA78C6DF7CCBE3
        80D1E784D6EB88DCEF6DB1D0FF00FFFF00FFFF00FF6FADD184D7EB81D2E87ECE
        E57BCAE278C5DE75C1DB72BDD86BB3D15D9BBD5E9ABA609ABD6DB7D371BCD875
        C2DC79C7E07DCDE481D2E885D8EC89DDF078C2DCFF00FFFF00FFFF00FF6FADD1
        80D0E784D6EB81D2E87ECDE57AC9E177C5DE74C1DB71BCD877B7D379A5C4B0C8
        DA8BB4CE66A4C670B4D27ECBE27ECFE582D4E986DAEE8ADFF287D9EE6FADD1FF
        00FFFF00FFFF00FF75BFDA87DAEE83D6EB80D1E77DCDE47AC9E177C4DE71B0CF
        96B7CFF4F4F4F6F6F6F7F7F7EEF2F4C6D8E493B6CF7BB1CE6FB6D381D2E88CE1
        F390E6F76FADD1FF00FFFF00FFFF00FF6DB1D089DEF186D9EE83D5EA80D1E77D
        CDE470ADCDB5CAD9F1F1F1F3F3F3F5F5F5F7F7F7F8F8F8F9F9F9FAFAFAFBFBFB
        DCE6EEB3CBDD649FC26FB4D36FADD1FF00FFFF00FFFF00FF6FADD18CE2F489DD
        F086D9ED80D0E76CA7C8C6D3DEEEEEEEF0F0F0F2F2F2F4F4F4F6F6F6F7F7F7F8
        F8F8F9F9F9FAFAFAFAFAFAFBFBFB8BC1DC5FAFD76FADD1FF00FFFF00FFFF00FF
        6FADD18FE5F78CE1F382D3E979ABC8CCD6DEEAEAEAEDEDEDEFEFEFF1F1F1F3F3
        F3F5F5F5F6F6F6F7F7F7F9F9F9FCFCFCF0F6F8CBE6F397D2EE74C3E86FADD1FF
        00FFFF00FFFF00FFFF00FF82D1E884D4EA77A6C5DBDFE1E6E6E6E9E9E9EBEBEB
        EEEEEEF0F0F0F4F4F4F9F9F9EFF4F7CBE6F3A5D6ED7FC5E765BBE570C1E79CD8
        F16FADD1FF00FFFF00FFFF00FFFF00FFFF00FF65A4C75695BD9EC8DDE9E9E9E5
        E5E5ECECECF3F3F3ECF2F4CBE6F3A5D6ED7FC5E765BBE565BBE565BBE565BBE5
        74C3E89CD8F171A9CCFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6FADD161B2
        DB8ACAE9EDF3F5CAE5F2A5D6ED7FC5E765BBE565BBE565BBE565BBE565BBE565
        BBE565BBE57BC7EAA0DAF271A9CCFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF6FADD18DCDEB9CD8F18ACEED70C1E765BBE565BBE565BBE565BB
        E565BBE565BBE565BBE57BC7EAA0DAF271A9CCFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FF6FADD171A9CC8DC7E3A0DAF299D6F0
        7FC9EB6CBFE765BBE565BBE565BBE57BC7EAA0DAF271A9CCFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6F
        ADD16FADD176AED097D0EAA0DAF28ED0EE7BC7EA7FC9EBA0DAF271A9CCFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF6FADD16FADD184BDDB9BD5EE9BD5EE6C
        A4C8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FF6FADD16FADD1FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FF}
      Transparent = True
    end
    object DBComboBoxEh1: TDBComboBoxEh
      Left = 765
      Top = 7
      Width = 121
      Height = 21
      Anchors = [akTop, akRight]
      DynProps = <>
      EditButtons = <>
      Items.Strings = (
        'Blue'
        'Silver'
        'Black'
        'Blue 2010')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'Blue 2010'
      Visible = True
      OnChange = DBComboBoxEh1Change
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 33
    Width = 893
    Height = 512
    Align = alClient
    AutoFitColWidths = True
    Border.Color = 13603685
    Border.EdgeBorders = [ebTop, ebRight]
    ColumnDefValues.EndEllipsis = True
    ColumnDefValues.Title.EndEllipsis = True
    ColumnDefValues.Title.TitleButton = True
    ColumnDefValues.Title.ToolTips = True
    ColumnDefValues.ToolTips = True
    DataGrouping.Active = True
    DataGrouping.Footers = <
      item
        ColumnItems = <
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
            ValueType = gfvCustomEh
          end
          item
          end
          item
          end>
        Visible = False
      end>
    DataGrouping.GroupLevels = <
      item
        ColumnName = 'Column_1_username'
      end>
    DataGrouping.GroupPanelVisible = True
    DataGrouping.GroupRowDefValues.RowHeight = 4
    DataGrouping.GroupRowDefValues.RowLines = 2
    DataGrouping.GroupRowDefValues.BottomLine.Color = 14261615
    DataGrouping.GroupRowDefValues.BottomLine.Width = 2
    DataGrouping.ShiftFolldataGroupRow = False
    DataSource = DataSource1
    DrawGraphicData = True
    DrawMemoText = True
    DynProps = <>
    FixedColor = 16768452
    Flat = True
    GridLineParams.BrightColor = 16773091
    GridLineParams.DarkColor = 13603685
    GridLineParams.DataHorzLines = True
    GridLineParams.DataVertLines = False
    GridLineParams.GridBoundaries = True
    IndicatorOptions = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind, dghColumnResize, dghColumnMove, dghExtendVertLines]
    ParentShowHint = False
    RowDetailPanel.Color = clBtnFace
    RowHeight = 5
    RowLines = 1
    SearchPanel.Enabled = True
    ShowHint = True
    SortLocal = True
    STFilter.FilterButtonDrawTime = fbdtWhenCellHotEh
    STFilter.Local = True
    STFilter.Location = stflInTitleFilterEh
    STFilter.Visible = True
    TabOrder = 1
    TitleParams.BorderInFillStyle = True
    TitleParams.FillStyle = cfstGradientEh
    TitleParams.Images = ilImportance
    TitleParams.RowHeight = 5
    TitleParams.RowLines = 1
    TitleParams.SortMarkerStyle = smstSolidEh
    TitleParams.VertLineColor = 553633434
    OnCellClick = DBGridEh1CellClick
    OnDataGroupGetRowParams = DBGridEh1DataGroupGetRowParams
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'topic_title'
        Footers = <>
        Title.Caption = 'Topic Title'
        Width = 83
        WordWrap = False
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'username'
        Footers = <>
        Title.Caption = 'User Name'
        Visible = False
        Width = 75
        WordWrap = False
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'post_subject'
        Footers = <>
        Title.Caption = 'Subject'
        Width = 184
        WordWrap = False
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'post_time_d'
        Footers = <>
        Title.Caption = 'Post Date'
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'post_attachment'
        Footers = <>
        ImageList = ilImportance
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Attachment'
        Title.ImageIndex = 6
        Width = 34
        OnGetCellParams = DBGridEh1Columns4GetCellParams
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'post_read'
        Footers = <>
        ImageList = ilImportance
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Read'
        Title.ImageIndex = 8
        Width = 19
        OnDataGroupFooterAggregateValue = DBGridEh1Columns5DataGroupFooterAggregateValue
        OnGetCellParams = DBGridEh1Columns5GetCellParams
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'post_Mark'
        Footers = <>
        ImageList = ilImportance
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Mark'
        Title.ImageIndex = 7
        Width = 22
      end
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'Importance'
        Footers = <>
        ImageList = ilImportance
        ReadOnly = True
        Title.Alignment = taCenter
        Title.ImageIndex = 10
        Width = 21
        OnGetCellParams = DBGridEh1Columns7GetCellParams
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 624
    Top = 440
  end
  object MemTableEh1: TMemTableEh
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = SQLDataDriverEh1
    Left = 672
    Top = 416
    object MemTableEh1post_id: TIntegerField
      DisplayWidth = 10
      FieldName = 'post_id'
    end
    object MemTableEh1topic_id: TIntegerField
      DisplayWidth = 10
      FieldName = 'topic_id'
    end
    object MemTableEh1post_subject: TWideStringField
      DisplayWidth = 255
      FieldName = 'post_subject'
      Size = 255
    end
    object MemTableEh1topic_title: TWideStringField
      DisplayWidth = 255
      FieldName = 'topic_title'
      Size = 255
    end
    object MemTableEh1poster_id: TIntegerField
      DisplayWidth = 10
      FieldName = 'poster_id'
    end
    object MemTableEh1username: TWideStringField
      DisplayWidth = 255
      FieldName = 'username'
      Size = 255
    end
    object MemTableEh1post_time_d: TDateTimeField
      DisplayWidth = 18
      FieldName = 'post_time_d'
    end
    object MemTableEh1post_attachment: TIntegerField
      DisplayWidth = 10
      FieldName = 'post_attachment'
    end
    object MemTableEh1post_read: TIntegerField
      DisplayWidth = 10
      FieldName = 'post_read'
    end
    object MemTableEh1post_Mark: TIntegerField
      DisplayWidth = 10
      FieldName = 'post_Mark'
    end
    object MemTableEh1Importance: TIntegerField
      DisplayWidth = 10
      FieldName = 'Importance'
    end
  end
  object ilImportance: TImageList
    Left = 65528
    Top = 448
    Bitmap = {
      [encoded data, 34112 characters]
      000000000000}
  end
  object SQLDataDriverEh1: TSQLDataDriverEh
    DeleteCommand.Params = <>
    DynaSQLParams.Options = []
    GetrecCommand.Params = <>
    InsertCommand.Params = <>
    SelectCommand.Params = <>
    SelectCommand.CommandText.Strings = (
      'select'
      '  Importance'
      '  ,post_attachment'
      '  ,post_id'
      '  ,post_Mark'
      '  ,post_read'
      '  ,post_subject'
      '  ,post_text'
      '  ,post_time_d'
      '  ,poster_id'
      '  ,topic_id'
      '  ,topic_title'
      '  ,username'
      'from'
      '  Letters')
    UpdateCommand.Params = <>
    MacroVars.Macros = <>
    Left = 648
    Top = 312
  end
  object SQLConnectionProviderEh_Letters: TSQLConnectionProviderEh
    Left = 776
    Top = 372
  end
end
