customdrawcardviewdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object CustomDrawCardViewDemoMainForm: TCustomDrawCardViewDemoMainForm
  Left = 129
  Top = 16
  Width = 820
  Height = 691
  Caption = 'ExpressQuantumGrid CustomDrawCardView 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
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 812
    Height = 18
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo shows some examples of custom draw. Click "About this ' +
      'demo" 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 Splitter: TSplitter
    Left = 241
    Top = 18
    Width = 2
    Height = 598
    Cursor = crHSplit
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 616
    Width = 812
    Height = 21
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object pnPersonLines: TPanel
    Left = 0
    Top = 18
    Width = 241
    Height = 598
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object pnPersonLinesCaption: TPanel
      Left = 0
      Top = 0
      Width = 241
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Occupation'
      Color = 4707838
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object cxgPersonLine: TcxGrid
      Left = 0
      Top = 33
      Width = 241
      Height = 565
      Align = alClient
      TabOrder = 1
      object tvPersonLine: TcxGridDBTableView
        DataController.DataSource = CustomDrawCardViewDemoMainDM.dsPERSONSLINE
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.InvertSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        Styles.StyleSheet = CustomDrawCardViewDemoMainDM.GridTableViewStyleSheetDevExpress
        object tvPersonLineNAME: TcxGridDBColumn
          Caption = 'Name'
          DataBinding.FieldName = 'NAME'
        end
      end
      object lvPersonLine: TcxGridLevel
        GridView = tvPersonLine
      end
    end
  end
  object pnPersons: TPanel
    Left = 243
    Top = 18
    Width = 569
    Height = 598
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object cxgPersons: TcxGrid
      Left = 0
      Top = 33
      Width = 569
      Height = 565
      Align = alClient
      TabOrder = 0
      object cvPersons: TcxGridDBCardView
        DataController.DataSource = CustomDrawCardViewDemoMainDM.dsPresons
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OnCustomDrawCell = cvPersonsCustomDrawCell
        OptionsData.Deleting = False
        OptionsData.Inserting = False
        OptionsView.CardBorderWidth = 1
        Styles.ContentEven = CustomDrawCardViewDemoMainDM.stDefault
        Styles.ContentOdd = CustomDrawCardViewDemoMainDM.stDefault
        object cvPersonsFIRSTNAME: TcxGridDBCardViewRow
          Caption = 'Firstname'
          DataBinding.FieldName = 'FIRSTNAME'
        end
        object cvPersonsSECONDNAME: TcxGridDBCardViewRow
          Caption = 'Secondname'
          DataBinding.FieldName = 'SECONDNAME'
        end
        object cvPersonsGENDER: TcxGridDBCardViewRow
          Caption = 'Gender'
          DataBinding.FieldName = 'GENDER'
        end
        object cvPersonsBIRTHNAME: TcxGridDBCardViewRow
          Caption = 'Birth Name'
          DataBinding.FieldName = 'BIRTHNAME'
        end
        object cvPersonsDATEOFBIRTH: TcxGridDBCardViewRow
          Caption = 'Date of birth'
          DataBinding.FieldName = 'DATEOFBIRTH'
        end
        object cvPersonsLOCATIONOFBIRTH: TcxGridDBCardViewRow
          Caption = 'Location of Birth'
          DataBinding.FieldName = 'LOCATIONOFBIRTH'
        end
        object cvPersonsBIRTHCOUNTRY: TcxGridDBCardViewRow
          Caption = 'Birth Country'
          DataBinding.FieldName = 'BIRTHCOUNTRY'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'ID'
          Properties.ListColumns = <
            item
              FieldName = 'NAME'
            end>
          Properties.ListSource = CustomDrawCardViewDemoMainDM.dsCountries
        end
        object cvPersonsBIOGRAPHY: TcxGridDBCardViewRow
          Caption = 'Biography'
          DataBinding.FieldName = 'BIOGRAPHY'
          PropertiesClassName = 'TcxBlobEditProperties'
          Properties.BlobEditKind = bekMemo
        end
        object cvPersonsNICKNAME: TcxGridDBCardViewRow
          Caption = 'Nickname'
          DataBinding.FieldName = 'NICKNAME'
        end
      end
      object lvPersons: TcxGridLevel
        GridView = cvPersons
      end
    end
    object pnPersonsCaption: TPanel
      Left = 0
      Top = 0
      Width = 569
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Persons'
      Color = 4707838
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object mmMain: TMainMenu
    Left = 488
    Top = 32
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      object miFont: TMenuItem
        Caption = '&Font...'
        OnClick = miFontClick
      end
      object miSeparator4: TMenuItem
        Caption = '-'
      end
      object miCustomDrawStyles: TMenuItem
        Caption = '&Custom Draw Styles'
        object miBackgroudImage: TMenuItem
          Caption = '&Background Image'
          Checked = True
          GroupIndex = 4
          RadioItem = True
          object miTile: TMenuItem
            Caption = '&Tile'
            Checked = True
            RadioItem = True
            OnClick = miTileClick
          end
          object miSky: TMenuItem
            Caption = '&Sky'
            RadioItem = True
            OnClick = miSkyClick