lazarus-ccr/components/rx/trunk/demos/rxdbgrid/MergeCell/unit1.lfm

object Form1: TForm1
  Left = 574
  Height = 620
  Top = 316
  Width = 770
  Caption = 'Form1'
  ClientHeight = 620
  ClientWidth = 770
  OnCreate = FormCreate
  LCLVersion = '1.9.0.0'
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Height = 570
    Top = 50
    Width = 770
    ColumnDefValues.BlobText = '(данные)'
    TitleButtons = False
    AutoSort = True
    Columns = <    
      item
        Alignment = taCenter
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'CODE'
        Width = 60
        FieldName = 'CODE'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
        WordWrap = True
        OnDrawColumnCell = RxDBGrid1Columns0DrawColumnCell
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'DATE'
        Width = 90
        FieldName = 'DATE'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'NAME'
        Width = 400
        FieldName = 'NAME'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
      end>
    KeyStrokes = <    
      item
        Command = rxgcShowFindDlg
        ShortCut = 16454
        Enabled = True
      end    
      item
        Command = rxgcShowColumnsDlg
        ShortCut = 16471
        Enabled = True
      end    
      item
        Command = rxgcShowFilterDlg
        ShortCut = 16468
        Enabled = True
      end    
      item
        Command = rxgcShowSortDlg
        ShortCut = 16467
        Enabled = True
      end    
      item
        Command = rxgcShowQuickFilter
        ShortCut = 16465
        Enabled = True
      end    
      item
        Command = rxgcHideQuickFilter
        ShortCut = 16456
        Enabled = True
      end    
      item
        Command = rxgcSelectAll
        ShortCut = 16449
        Enabled = True
      end    
      item
        Command = rxgcDeSelectAll
        ShortCut = 16429
        Enabled = True
      end    
      item
        Command = rxgcInvertSelection
        ShortCut = 16426
        Enabled = True
      end    
      item
        Command = rxgcOptimizeColumnsWidth
        ShortCut = 16427
        Enabled = True
      end    
      item
        Command = rxgcCopyCellValue
        ShortCut = 16451
        Enabled = True
      end>
    FooterOptions.DrawFullLine = False
    SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
    SearchOptions.FromStart = False
    OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter, rdgAllowToolMenu]
    Align = alClient
    Color = clWindow
    DrawFullLine = False
    FocusColor = clRed
    SelectedColor = clHighlight
    GridLineStyle = psSolid
    DataSource = dsData
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    OnMergeCells = RxDBGrid1MergeCells
  end
  object Panel1: TPanel
    Left = 0
    Height = 50
    Top = 0
    Width = 770
    Align = alTop
    AutoSize = True
    ClientHeight = 50
    ClientWidth = 770
    TabOrder = 1
    object CheckBox1: TCheckBox
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 7
      Height = 24
      Top = 7
      Width = 108
      BorderSpacing.Around = 6
      Caption = 'Col spanning'
      OnChange = CheckBox1Change
      TabOrder = 0
    end
    object Button1: TButton
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Panel1
      AnchorSideRight.Side = asrBottom
      Left = 694
      Height = 36
      Top = 7
      Width = 69
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Export...'
      OnClick = Button1Click
      TabOrder = 1
    end
    object Button2: TButton
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Button1
      Left = 643
      Height = 36
      Top = 7
      Width = 45
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Print'
      OnClick = Button2Click
      TabOrder = 2
    end
  end
  object rxData: TRxMemoryData
    FieldDefs = <    
      item
        Name = 'CODE'
        DataType = ftInteger
      end    
      item
        Name = 'DATE'
        DataType = ftDateTime
      end    
      item
        Name = 'NAME'
        DataType = ftString
        Size = 150
      end>
    PacketRecords = 0
    Left = 293
    Top = 165
    object rxDataCODE: TLongintField
      FieldKind = fkData
      FieldName = 'CODE'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object rxDataDATE: TDateTimeField
      FieldKind = fkData
      FieldName = 'DATE'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      DisplayFormat = 'dd.mm.yyyy'
    end
    object rxDataNAME: TStringField
      FieldKind = fkData
      FieldName = 'NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 150
    end
  end
  object dsData: TDataSource
    DataSet = rxData
    Left = 256
    Top = 165
  end
  object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
    RxDBGrid = RxDBGrid1
    Caption = 'Экспорт в электронную таблицу'
    ShowSetupForm = True
    FileName = 'aaa.ods'
    PageName = 'Test1'
    Options = [ressExportTitle, ressExportColors, ressExportFooter, ressExportFormula, ressOverwriteExisting, ressExportSelectedRows, ressHideZeroValues, ressColSpanning]
    OpenAfterExport = True
    Left = 336
    Top = 165
  end
  object RxDBGridPrint1: TRxDBGridPrint
    RxDBGrid = RxDBGrid1
    Caption = 'Печать списка'
    ShowSetupForm = True
    Options = [rxpoShowTitle, rxpoShowFooter, rxpoShowGridColor, rxpoShowFooterColor, rxpoShowReportTitle, rxpoHideZeroValues]
    ShowProgress = True
    ReportTitle = 'A'
    ShowColumnHeaderOnAllPage = True
    Left = 336
    Top = 208
  end
end