office11grouprowstyledemomain.dfm

来自「胜天进销存源码,国产优秀的进销存」· DFM 代码 · 共 569 行 · 第 1/2 页

object Office11GroupRowStyleDemoMainForm: TOffice11GroupRowStyleDemoMainForm
  Left = 300
  Top = 120
  Width = 800
  Height = 600
  Caption = 'ExpressQuantumGrid Office11GroupRowStyle Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescrip: TLabel
    Left = 0
    Top = 0
    Width = 792
    Height = 29
    Align = alTop
    AutoSize = False
    Caption = 
      '  Use Outlook 2003 GroupRow style. Experiment by changing individual Options. Try different DateTime grouping kinds.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Layout = tlCenter
    WordWrap = True
  end
  object Grid: TcxGrid
    Left = 0
    Top = 29
    Width = 792
    Height = 517
    Align = alClient
    TabOrder = 0
    object tvMail: TcxGridTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DateTimeHandling.Filters = [dtfRelativeDayPeriods, dtfRelativeMonths]
      DateTimeHandling.IgnoreTimeForFiltering = True
      DateTimeHandling.Grouping = dtgRelativeToToday
      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.Filtering = False
        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.Filtering = False
        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.Filtering = 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'
        SortIndex = 1
        SortOrder = soDescending
        Width = 98
      end
      object tvMailSent: TcxGridColumn
        Caption = 'Sent'
        DataBinding.ValueType = 'DateTime'
        Visible = False
        GroupIndex = 0
        SortIndex = 0
        SortOrder = soDescending
        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'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = 'Options'
      object miOffice11GroupRowStyle: TMenuItem
        Caption = '&Outlook 2003 GroupRow Style'
        Checked = True
        OnClick = miOffice11GroupRowStyleClick
      end
      object miGroupBySorting: TMenuItem
        Caption = '&Group by Sorting'
        OnClick = miGroupBySortingClick
      end
      object miAlwaysExpandedGroups: TMenuItem
        Caption = 'Always &Expanded Groups'
        OnClick = miAlwaysExpandedGroupsClick
      end
    end
    object miDateTimeGrouping: TMenuItem
      Caption = 'DateTime Grouping'
      object miDateTimeGroupingByDateAndTime: TMenuItem
        Caption = 'dtgByDateAndTime'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
      object miDateTimeGroupingRelativeToToday: TMenuItem
        Caption = 'dtgRelativeToToday'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
      object miDateTimeGroupingByHour: TMenuItem
        Caption = 'dtgByHour'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
      object miDateTimeGroupingByDate: TMenuItem
        Caption = 'dtgByDate'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
      object miDateTimeGroupingByMonth: TMenuItem
        Caption = 'dtgByMonth'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
      object miDateTimeGroupingByYear: TMenuItem
        Caption = 'dtgByYear'
        GroupIndex = 1
        RadioItem = True
        OnClick = miDateTimeGroupingClick
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      OnClick = miAboutClick
    end
  end
  object LookAndFeelController: TcxLookAndFeelController
    Kind = lfOffice11
    Left = 472
    Top = 24
  end
  object imgImportance: TImageList
    Height = 12
    Width = 12
    Left = 408
    Top = 24
    Bitmap = {
      494C01010500090004000C000C00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600