stylessimpledemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object StylesSimpleDemoMainForm: TStylesSimpleDemoMainForm
  Left = 270
  Top = 120
  Width = 778
  Height = 562
  ActiveControl = cxGrid
  Caption = 'ExpressQuantumGrid StylesSimple Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 161
    Top = 73
    Width = 2
    Height = 416
  end
  object lbDescription: TLabel
    Left = 0
    Top = 33
    Width = 770
    Height = 40
    Align = alTop
    AutoSize = False
    Caption = 
      'Practice the setting of styles. Experiment by changing the Optio' +
      'ns 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 cxGrid: TcxGrid
    Left = 163
    Top = 73
    Width = 607
    Height = 416
    Align = alClient
    TabOrder = 0
    object tvPersons: TcxGridDBTableView
      DataController.DataSource = StylesSimpleDemoMainDM.dsPersons
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          Column = tvPersonsID
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsBehavior.IncSearch = True
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.Indicator = True
      Preview.Column = tvPersonsBIOGRAPHY
      Preview.MaxLineCount = 50
      Styles.StyleSheet = StylesSimpleDemoMainDM.UserStyleSheet
      object tvPersonsID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Width = 120
      end
      object tvPersonsFIRSTNAME: TcxGridDBColumn
        DataBinding.FieldName = 'FIRSTNAME'
        Width = 200
      end
      object tvPersonsSECONDNAME: TcxGridDBColumn
        DataBinding.FieldName = 'SECONDNAME'
        Width = 200
      end
      object tvPersonsBIRTHNAME: TcxGridDBColumn
        DataBinding.FieldName = 'BIRTHNAME'
      end
      object tvPersonsDATEOFBIRTH: TcxGridDBColumn
        DataBinding.FieldName = 'DATEOFBIRTH'
        PropertiesClassName = 'TcxDateEditProperties'
        Width = 250
      end
      object tvPersonsBIRTHCOUNTRY: TcxGridDBColumn
        DataBinding.FieldName = 'BIRTHCOUNTRY'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'Name'
          end>
        Properties.ListSource = StylesSimpleDemoMainDM.dsCountries
        Width = 300
      end
      object tvPersonsLOCATIONOFBIRTH: TcxGridDBColumn
        DataBinding.FieldName = 'LOCATIONOFBIRTH'
        Width = 400
      end
      object tvPersonsBIOGRAPHY: TcxGridDBColumn
        DataBinding.FieldName = 'BIOGRAPHY'
        Width = 300
      end
    end
    object lvPersons: TcxGridLevel
      GridView = tvPersons
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 770
    Height = 33
    BorderWidth = 2
    ButtonHeight = 23
    Caption = 'ToolBar'
    EdgeInner = esLowered
    EdgeOuter = esNone
    Flat = True
    Images = ilMain
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object tbColumns: TToolButton
      Left = 0
      Top = 0
      Action = actHeader
      Style = tbsCheck
    end
    object tbGroupBox: TToolButton
      Left = 23
      Top = 0
      Action = actGroupBox
      Style = tbsCheck
    end
    object tbFooter: TToolButton
      Left = 46
      Top = 0
      Action = actFooter
      Style = tbsCheck
    end
    object tbIndicator: TToolButton
      Left = 69
      Top = 0
      Action = actIndicator
      Style = tbsCheck
    end
    object tbPreview: TToolButton
      Left = 92
      Top = 0
      Action = actPreview
      Style = tbsCheck
    end
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 489
    Width = 770
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object gbChangeStyles: TGroupBox
    Left = 0
    Top = 73
    Width = 161
    Height = 416
    Align = alLeft
    Caption = 'Change Styles'
    TabOrder = 3
    object memHowTo: TMemo
      Left = 2
      Top = 15
      Width = 157
      Height = 90
      TabStop = False
      Align = alTop
      Color = 14811135
      Lines.Strings = (
        'Select one of the available '
        'styles below and click the Edit '
        'button. '
        'Alternatively, click on '#39'Assign'#39' in '
        'order to assign styles to the '
        'various grid elements.')
      ReadOnly = True
      TabOrder = 0
    end
    object ListBox: TcxListBox
      Left = 2
      Top = 105
      Width = 157
      Height = 223
      Align = alClient
      ItemHeight = 13
      Sorted = True
      Style.Color = 16247513
      TabOrder = 1
      OnDblClick = btnEditClick
    end
    object pnlButtons: TPanel
      Left = 2
      Top = 328
      Width = 157
      Height = 86
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      object btnEdit: TSpeedButton
        Left = 6
        Top = 6
        Width = 145