lazarus-ccr/components/jvcllaz/examples/JvYearGrid/main.lfm

object MainForm: TMainForm
  Left = 361
  Height = 399
  Top = 215
  Width = 911
  AutoSize = True
  Caption = 'JvYearGrid Demo'
  ClientHeight = 399
  ClientWidth = 911
  OnActivate = FormActivate
  OnCreate = FormCreate
  object JvYearGrid1: TJvYearGrid
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 248
    Top = 8
    Width = 882
    BorderColor = clCream
    Year = 2018
    FirstColWidth = 67
    FirstRowHeight = 19
    CellMargins.Left = 2
    CellMargins.Top = 2
    CellMargins.Right = 2
    CellMargins.Bottom = 2
    DayFormat = dfShort
    DefaultColWidth = 19
    BorderSpacing.Around = 8
    TitleStyle = tsStandard
    ColWidths = (
      67
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
      22
    )
    RowHeights = (
      19
      19
      19
      19
      19
      19
      19
      19
      19
      19
      19
      19
      19
    )
  end
  object Panel1: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = JvYearGrid1
    AnchorSideTop.Side = asrBottom
    Left = 0
    Height = 119
    Top = 264
    Width = 911
    AutoSize = True
    BorderSpacing.Bottom = 16
    BevelOuter = bvNone
    ClientHeight = 119
    ClientWidth = 911
    ParentFont = False
    TabOrder = 1
    object edLeftMargin: TSpinEdit
      AnchorSideTop.Control = edTopMargin
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = Label4
      AnchorSideRight.Side = asrBottom
      Left = 24
      Height = 23
      Top = 27
      Width = 50
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      ParentFont = False
      TabOrder = 0
    end
    object edRightMargin: TSpinEdit
      AnchorSideLeft.Control = edTopMargin
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edLeftMargin
      Left = 136
      Height = 23
      Top = 27
      Width = 50
      BorderSpacing.Left = 4
      ParentFont = False
      TabOrder = 1
    end
    object edTopMargin: TSpinEdit
      AnchorSideLeft.Control = edLeftMargin
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 82
      Height = 23
      Top = 0
      Width = 50
      BorderSpacing.Left = 8
      ParentFont = False
      TabOrder = 2
    end
    object edBottomMargin: TSpinEdit
      AnchorSideLeft.Control = edTopMargin
      AnchorSideTop.Control = edLeftMargin
      AnchorSideTop.Side = asrBottom
      Left = 82
      Height = 23
      Top = 54
      Width = 50
      BorderSpacing.Top = 4
      ParentFont = False
      TabOrder = 3
    end
    object cmbDayNamesAlignment: TComboBox
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edTopMargin
      Left = 398
      Height = 23
      Top = 0
      Width = 100
      BorderSpacing.Left = 8
      ItemHeight = 15
      Items.Strings = (
        'taLeftJustify'
        'taRightJustify'
        'taCenter'
      )
      OnChange = cmbDayNamesAlignmentChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 4
    end
    object Label1: TLabel
      AnchorSideTop.Control = cmbDayNamesAlignment
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = Label2
      AnchorSideRight.Side = asrBottom
      Left = 234
      Height = 15
      Top = 4
      Width = 156
      Anchors = [akTop, akRight]
      Caption = 'Day names alignment/format'
      Color = clDefault
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      AnchorSideLeft.Control = edRightMargin
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cmbMonthNamesAlignment
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = Label1
      AnchorSideRight.Side = asrBottom
      Left = 218
      Height = 15
      Top = 31
      Width = 172
      BorderSpacing.Left = 32
      Caption = 'Month names alignment/format'
      Color = clDefault
      ParentColor = False
      ParentFont = False
    end
    object cmbMonthNamesAlignment: TComboBox
      AnchorSideLeft.Control = cmbDayNamesAlignment
      AnchorSideTop.Control = cmbDayNamesAlignment
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cmbDayNamesAlignment
      AnchorSideRight.Side = asrBottom
      Left = 398
      Height = 23
      Top = 27
      Width = 100
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 4
      ItemHeight = 15
      Items.Strings = (
        'taLeftJustify'
        'taRightJustify'
        'taCenter'
      )
      OnChange = cmbMonthNamesAlignmentChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 5
    end
    object Label3: TLabel
      AnchorSideTop.Control = cmbDaysAlignment
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = Label1
      AnchorSideRight.Side = asrBottom
      Left = 308
      Height = 15
      Top = 58
      Width = 82
      Anchors = [akTop, akRight]
      Caption = 'Days alignment'
      Color = clDefault
      ParentColor = False
      ParentFont = False
    end
    object cmbDaysAlignment: TComboBox
      AnchorSideLeft.Control = cmbDayNamesAlignment
      AnchorSideTop.Control = cmbMonthNamesAlignment
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cmbDayNamesAlignment
      AnchorSideRight.Side = asrBottom
      Left = 398
      Height = 23
      Top = 54
      Width = 100
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 4
      ItemHeight = 15
      Items.Strings = (
        'taLeftJustify'
        'taRightJustify'
        'taCenter'
      )
      OnChange = cmbDaysAlignmentChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 6
    end
    object cmbFlat: TCheckBox
      AnchorSideLeft.Control = cmbMonthFormat
      AnchorSideTop.Control = cmbDaysAlignment
      AnchorSideTop.Side = asrCenter
      Left = 506
      Height = 19
      Top = 56
      Width = 37
      BorderSpacing.Right = 16
      Caption = 'Flat'
      OnChange = cmbFlatChange
      ParentFont = False
      TabOrder = 7
    end
    object cmbDayFormat: TComboBox
      AnchorSideLeft.Control = cmbDayNamesAlignment
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cmbDayNamesAlignment
      Left = 506
      Height = 23
      Top = 0
      Width = 106
      BorderSpacing.Left = 8
      ItemHeight = 15
      Items.Strings = (
        'dfInitial'
        'dfShort'
        'dfLong'
      )
      OnChange = cmbDayFormatChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 8
    end
    object cmbMonthFormat: TComboBox
      AnchorSideLeft.Control = cmbDayNamesAlignment
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cmbMonthNamesAlignment
      Left = 506
      Height = 23
      Top = 27
      Width = 106
      BorderSpacing.Left = 8
      ItemHeight = 15
      Items.Strings = (
        'mfShort'
        'mfLong'
      )
      OnChange = cmbMonthFormatChange
      ParentFont = False
      Style = csDropDownList
      TabOrder = 9
    end
    object udYear: TUpDown
      AnchorSideLeft.Control = lblYear
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cmbDayFormat
      AnchorSideBottom.Control = cmbDayFormat
      AnchorSideBottom.Side = asrBottom
      Left = 663
      Height = 23
      Top = 0
      Width = 57
      Anchors = [akTop, akLeft, akBottom]
      BorderSpacing.Left = 3
      Max = 3000
      Min = 0
      OnClick = udYearClick
      Orientation = udHorizontal
      Position = 0
      TabOrder = 10
    end
    object lblYear: TLabel
      AnchorSideLeft.Control = cmbDayFormat
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cmbDayFormat
      AnchorSideTop.Side = asrCenter
      Left = 638
      Height = 15
      Top = 4
      Width = 22
      BorderSpacing.Left = 26
      Caption = 'Year'
      Color = clDefault
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = edTopMargin
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 15
      Top = 4
      Width = 66
      BorderSpacing.Left = 8
      Caption = 'Cell margins'
      Color = clDefault
      ParentColor = False
    end
    object btnFont: TButton
      AnchorSideLeft.Control = lblYear
      AnchorSideTop.Control = cmbDaysAlignment
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = udYear
      AnchorSideRight.Side = asrBottom
      Left = 638
      Height = 25
      Top = 53
      Width = 82
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      Caption = 'Font...'
      OnClick = btnFontClick
      TabOrder = 11
    end
    object rgAutoSize: TCheckGroup
      AnchorSideLeft.Control = udYear
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edTopMargin
      Left = 736
      Height = 81
      Top = 0
      Width = 167
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 16
      BorderSpacing.Right = 8
      Caption = 'Auto size'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 2
      ChildSizing.HorizontalSpacing = 4
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 2
      ClientHeight = 61
      ClientWidth = 163
      Columns = 2
      Items.Strings = (
        'Grid'
        'First column'
        'First row'
        'Columns'
        'Rows'
      )
      OnItemClick = rgAutoSizeItemClick
      TabOrder = 12
      Data = {
        050000000202020202
      }
    end
    object cmbAutoSize: TCheckBox
      AnchorSideTop.Control = rgAutoSize
      AnchorSideRight.Control = rgAutoSize
      AnchorSideRight.Side = asrBottom
      Left = 885
      Height = 17
      Top = 0
      Width = 18
      Anchors = [akTop, akRight]
      Checked = True
      OnChange = cmbAutoSizeChange
      State = cbChecked
      TabOrder = 13
    end
    object cbReadOnly: TCheckBox
      AnchorSideLeft.Control = cmbFlat
      AnchorSideTop.Control = cmbFlat
      AnchorSideTop.Side = asrBottom
      Left = 506
      Height = 19
      Top = 75
      Width = 72
      Caption = 'Read-only'
      TabOrder = 14
    end
    object btnSaveYear: TButton
      AnchorSideLeft.Control = Label2
      AnchorSideTop.Control = cbReadOnly
      AnchorSideTop.Side = asrBottom
      Left = 218
      Height = 25
      Top = 94
      Width = 75
      Caption = 'Save year'
      OnClick = btnSaveYearClick
      TabOrder = 15
    end
    object btnLoadYear: TButton
      AnchorSideLeft.Control = btnSaveYear
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = btnSaveYear
      Left = 299
      Height = 25
      Top = 94
      Width = 75
      BorderSpacing.Left = 6
      Caption = 'Load year'
      OnClick = btnLoadYearClick
      TabOrder = 16
    end
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 688
    Top = 296
  end
end