office11grouprowstyledemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object Office11GroupRowStyleDemoMainForm: TOffice11GroupRowStyleDemoMainForm
  Left = 107
  Top = 75
  Width = 797
  Height = 523
  Caption = 'ExpressQuantumGrid Office11GroupRowStyle Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescrip: TLabel
    Left = 0
    Top = 0
    Width = 789
    Height = 33
    Align = alTop
    AutoSize = False
    Caption = 
      'Use the new Outlook 2003 GroupRow style. Experiment by changing ' +
      'the Options. Click '#39'About this demo'#39' for more information.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 450
    Width = 789
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object Grid: TcxGrid
    Left = 0
    Top = 33
    Width = 789
    Height = 417
    Align = alClient
    TabOrder = 1
    object tvMail: TcxGridTableView
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.OnCompare = tvMailDataControllerCompare
      NavigatorButtons.ConfirmDelete = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GridLines = glHorizontal
      OptionsView.GroupRowStyle = grsOffice11
      Styles.OnGetContentStyle = tvMailStylesGetContentStyle
      object tvMailImportance: TcxGridColumn
        DataBinding.ValueType = 'Integer'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = imgImportance
        Properties.Items = <
          item
            Description = 'Low'
            ImageIndex = 0
            Value = 0
          end
          item
            Description = 'Medium'
            Value = 1
          end
          item
            Description = 'High'
            ImageIndex = 1
            Value = 2
          end>
        Properties.ShowDescriptions = False
        HeaderGlyph.Data = {
          3A010000424D3A010000000000003600000028000000060000000D0000000100
          1800000000000401000000000000000000000000000000000000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
          0000FFFFFFFFFFFF000000000000000000FFFFFF0000FFFFFFFFFFFFFFFFFF00
          0000FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF
          FFFFFFFFFFFFFF000000FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFF000000FFFF
          FFFFFFFF0000FFFFFFFFFFFF000000000000000000FFFFFF0000FFFFFFFFFFFF
          000000000000000000FFFFFF0000FFFFFFFFFFFF000000000000000000FFFFFF
          0000FFFFFFFFFFFF000000000000000000FFFFFF0000FFFFFFFFFFFFFFFFFF00
          0000FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000}
        HeaderGlyphAlignmentHorz = taCenter
        MinWidth = 35
        Options.HorzSizing = False
        Width = 35
        IsCaptionAssigned = True
      end
      object tvMailIcon: TcxGridColumn
        DataBinding.ValueType = 'Integer'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = imgImportance
        Properties.Items = <
          item
            Description = 'Unread'
            ImageIndex = 3
            Value = 0
          end
          item
            Description = 'Read'
            ImageIndex = 2
            Value = 1
          end>
        Properties.ShowDescriptions = False
        HeaderGlyph.Data = {
          8E020000424D8E0200000000000036000000280000000D0000000F0000000100
          1800000000005802000000000000000000000000000000000000D8E9ECD8E9EC
          D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
          EC00D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
          D8E9ECD8E9ECD8E9EC00D8E9ECD8E9EC00000000000000000000000000000000
          0000000000000000000000D8E9ECD8E9EC00D8E9ECD8E9EC000000D8E9ECD8E9
          ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC000000D8E9ECD8E9EC00D8E9ECD8E9EC
          000000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC000000D8E9ECD8E9
          EC00D8E9ECD8E9EC000000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
          000000D8E9ECD8E9EC00D8E9ECD8E9EC000000D8E9ECD8E9ECD8E9ECD8E9ECD8
          E9ECD8E9ECD8E9EC000000D8E9ECD8E9EC00D8E9ECD8E9EC000000D8E9ECD8E9
          ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC000000D8E9ECD8E9EC00D8E9ECD8E9EC
          000000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC000000D8E9ECD8E9
          EC00D8E9ECD8E9EC000000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
          000000D8E9ECD8E9EC00D8E9ECD8E9EC000000D8E9ECD8E9ECD8E9ECD8E9EC00
          0000000000000000000000D8E9ECD8E9EC00D8E9ECD8E9EC000000D8E9ECD8E9
          ECD8E9ECD8E9EC000000D8E9EC000000D8E9ECD8E9ECD8E9EC00D8E9ECD8E9EC
          000000D8E9ECD8E9ECD8E9ECD8E9EC000000000000D8E9ECD8E9ECD8E9ECD8E9
          EC00D8E9ECD8E9EC000000000000000000000000000000000000D8E9ECD8E9EC
          D8E9ECD8E9ECD8E9EC00D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8
          E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC00}
        HeaderGlyphAlignmentHorz = taCenter
        MinWidth = 35
        Options.HorzSizing = False
        Width = 35
        IsCaptionAssigned = True
      end
      object tvMailAttachment: TcxGridColumn
        DataBinding.ValueType = 'Integer'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = imgImportance
        Properties.Items = <
          item
            ImageIndex = 4
            Value = 0
          end
          item
            Value = 1
          end>
        HeaderGlyph.Data = {
          9E010000424D9E010000000000003600000028000000080000000F0000000100
          1800000000006801000000000000000000000000000000000000D8E9ECD8E9EC
          D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
          ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC000000000000000000000000D8E9ECD8
          E9ECD8E9EC000000000000D8E9ECD8E9EC000000000000D8E9ECD8E9EC000000
          D8E9ECD8E9ECD8E9ECD8E9EC000000D8E9ECD8E9EC000000D8E9EC0000000000
          00D8E9EC000000D8E9ECD8E9EC000000000000D8E9ECD8E9EC000000000000D8
          E9ECD8E9EC000000000000D8E9ECD8E9EC000000000000D8E9ECD8E9EC000000
          000000D8E9ECD8E9EC000000000000D8E9ECD8E9EC000000000000D8E9ECD8E9
          EC000000000000D8E9ECD8E9ECD8E9EC000000D8E9ECD8E9ECD8E9EC000000D8
          E9ECD8E9ECD8E9EC000000D8E9ECD8E9ECD8E9EC000000D8E9ECD8E9ECD8E9EC
          D8E9EC000000000000000000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
          ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8
          E9EC}
        HeaderGlyphAlignmentHorz = taCenter
        MinWidth = 35
        Options.Editing = False
        Options.HorzSizing = False
        Width = 35
      end
      object tvMailFrom: TcxGridColumn
        Caption = 'From'
        Width = 132
      end
      object tvMailSubject: TcxGridColumn
        Caption = 'Subject'
        Width = 355
      end
      object tvMailReceived: TcxGridColumn
        Caption = 'Received'
        DataBinding.ValueType = 'DateTime'
        OnGetDisplayText = tvMailSentGetDisplayText
        Width = 98
      end
      object tvMailSent: TcxGridColumn
        Caption = 'Sent'
        DataBinding.ValueType = 'DateTime'
        Visible = False
        OnGetDisplayText = tvMailSentGetDisplayText
        GroupIndex = 0
        Width = 154
      end
    end
    object lvMail: TcxGridLevel
      GridView = tvMail
    end
  end
  object mmMain: TMainMenu
    Left = 504
    Top = 24
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Press to quit the demo-program'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end