viewcardsimpledemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ViewCardSimpleDemoMainForm: TViewCardSimpleDemoMainForm
  Left = 200
  Top = 132
  Width = 822
  Height = 545
  Caption = 'ExpressQuantumGrid ViewCardSimple 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 Splitter: TSplitter
    Left = 185
    Top = 20
    Width = 2
    Height = 452
  end
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 814
    Height = 20
    Align = alTop
    AutoSize = False
    Caption = 
      'Use the new Card View. Experiment by changing the Options above.' +
      ' 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 = 472
    Width = 814
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object pnDepartments: TPanel
    Left = 0
    Top = 20
    Width = 185
    Height = 452
    Align = alLeft
    Caption = 'pnDepartments'
    TabOrder = 1
    object pnDepartmentsCaption: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 32
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Departments'
      Color = 4707838
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object cxGridDepartments: TcxGrid
      Left = 1
      Top = 33
      Width = 183
      Height = 418
      Align = alClient
      TabOrder = 1
      object cxGridDepartmentsDBTableView: TcxGridDBTableView
        DataController.DataSource = ViewCardSimpleDemoMainDM.dsDEPARTMENTS
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.InvertSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        object cxGridDepartmentsDBTableViewNAME: TcxGridDBColumn
          Caption = 'Name'
          DataBinding.FieldName = 'NAME'
          Options.Editing = False
          Options.Filtering = False
        end
      end
      object cxGridDepartmentsLevel: TcxGridLevel
        GridView = cxGridDepartmentsDBTableView
      end
    end
  end
  object pnUsers: TPanel
    Left = 187
    Top = 20
    Width = 627
    Height = 452
    Align = alClient
    Caption = 'pnUsers'
    TabOrder = 2
    object cxGridUsers: TcxGrid
      Left = 1
      Top = 33
      Width = 625
      Height = 418
      Align = alClient
      TabOrder = 0
      object cxGridUsersDBCardView: TcxGridDBCardView
        DataController.DataSource = ViewCardSimpleDemoMainDM.dsUSERS
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsView.Navigator = True
        OptionsView.SeparatorColor = 12937777
        object cxGridUsersDBCardViewFNAME: TcxGridDBCardViewRow
          Caption = 'First Name'
          DataBinding.FieldName = 'FNAME'
          Kind = rkCaption
        end
        object cxGridUsersDBCardViewMNAME: TcxGridDBCardViewRow
          Caption = 'Middle Name'
          DataBinding.FieldName = 'MNAME'
        end
        object cxGridUsersDBCardViewLNAME: TcxGridDBCardViewRow
          Caption = 'Last Name'
          DataBinding.FieldName = 'LNAME'
        end
        object cxGridUsersDBCardViewCOUNTRY: TcxGridDBCardViewRow
          Caption = 'Country'
          DataBinding.FieldName = 'COUNTRY'
        end
        object cxGridUsersDBCardViewPOSTALCODE: TcxGridDBCardViewRow
          Caption = 'Postalcode'
          DataBinding.FieldName = 'POSTALCODE'
          PropertiesClassName = 'TcxMaskEditProperties'
          Properties.MaskKind = emkRegExpr
          Properties.EditMask = '\d\d\d\d\d? | \w\w\w'#39' '#39'\w\w\w'
        end
        object cxGridUsersDBCardViewCITY: TcxGridDBCardViewRow
          Caption = 'City'
          DataBinding.FieldName = 'CITY'
        end
        object cxGridUsersDBCardViewADDRESS: TcxGridDBCardViewRow
          Caption = 'Address'
          DataBinding.FieldName = 'ADDRESS'
        end
        object cxGridUsersDBCardViewPHONE: TcxGridDBCardViewRow
          Caption = 'Phone'
          DataBinding.FieldName = 'PHONE'
          PropertiesClassName = 'TcxMaskEditProperties'
          Properties.EditMask = '!\(999\) 000-0000;1;_'
        end
        object cxGridUsersDBCardViewFAX: TcxGridDBCardViewRow
          Caption = 'Fax'
          DataBinding.FieldName = 'FAX'
          PropertiesClassName = 'TcxMaskEditProperties'
          Properties.MaskKind = emkRegExprEx
          Properties.EditMask = '(\(\d\d\d\)'#39' '#39')?\d\d\d-\d\d\d\d'
        end
        object cxGridUsersDBCardViewEMAIL: TcxGridDBCardViewRow
          Caption = 'Email'
          DataBinding.FieldName = 'EMAIL'
          PropertiesClassName = 'TcxMaskEditProperties'
          Properties.MaskKind = emkRegExprEx
          Properties.EditMask = '\w+@\w+\.\w+(\.\w+)*'
        end
        object cxGridUsersDBCardViewHOMEPAGE: TcxGridDBCardViewRow
          Caption = 'Homepage'
          DataBinding.FieldName = 'HOMEPAGE'
          PropertiesClassName = 'TcxHyperLinkEditProperties'
        end
      end
      object cxGridUsersLevel: TcxGridLevel
        GridView = cxGridUsersDBCardView
      end
    end
    object pnUsersCaption: TPanel
      Left = 1
      Top = 1
      Width = 625
      Height = 32
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Users'
      Color = 4707838
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object mmMain: TMainMenu
    Left = 680
    Top = 48
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Press to quit the demo-program'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      object miInvertSelect: TMenuItem
        Caption = 'Invert Select'
        Checked = True
        Hint = 
          'Determines whether the selection mark highlights a single cell w' +
          'ithin a focused row or the whole focused row'
        OnClick = miInvertSelectClick
      end
      object miCellSelect: TMenuItem
        Caption = 'CellSelect'
        Checked = True
        Hint = 
          'Determines whether the individual cells are selected within a vi' +
          'ew instead of the whole rows'
        OnClick = miCellSelectClick
      end
      object miMultiSelect: TMenuItem
        Caption = 'MulitiSelect'
        Hint = 'Allows you to select several rows'
        OnClick = miMultiSelectClick
      end
      object miHideFocusRect: TMenuItem
        Caption = 'Hide Focus Rect'
        Checked = True
        Hint = 
          'Determines whether the focus rectangle is displayed around the f' +
          'ocused record within a view'
        OnClick = miHideFocusRectClick
      end
      object miShowNavigator: TMenuItem
        Caption = 'Show &Navigator'
        Checked = True
        Hint = 'Displays the inplace navigator'
        OnClick = miShowNavigatorClick
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      Hint = 'Displays the brief description of the current demo features'
      OnClick = miAboutClick
    end
  end
  object LookAndFeelController: TcxLookAndFeelController
    NativeStyle = True
    Left = 648
    Top = 49
  end
end