lazarus-ccr/components/nicegrid/demos/Basic Demo/common/main.lfm

object MainForm: TMainForm
  Left = 252
  Height = 545
  Top = 121
  Width = 638
  Caption = 'NiceGrid Demo - priyatna.org'
  ClientHeight = 545
  ClientWidth = 638
  OnCreate = FormCreate
  Position = poDesktopCenter
  LCLVersion = '3.99.0.0'
  object Label1: TLabel
    Left = 16
    Height = 15
    Top = 16
    Width = 216
    Caption = '- Try to copy paste a block between Excel'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 16
    Height = 15
    Top = 32
    Width = 339
    Caption = '- Try type something then press * and Enter. Try also > and Enter.'
    ParentColor = False
  end
  object NiceGrid1: TNiceGrid
    Cursor = 101
    Left = 16
    Height = 392
    Top = 56
    Width = 597
    ColCount = 5
    RowCount = 20
    AutoAddRow = True
    DefColWidth = 100
    GridColor = clSilver
    HeaderLine = 2
    HeaderColor = 14614528
    HeaderLightColor = 16744448
    HeaderDarkColor = clBlack
    HeaderFont.Color = clWhite
    FooterFont.Color = clRed
    SelectionColor = 13816575
    Columns = <    
      item
        Title = 'Merged;Multilined|Merged;Multilined'
        Footer = 'Footer 0'
        Width = 100
        CanResize = False
      end    
      item
        Title = 'First Group|One'
        Footer = 'Footer 1'
        Width = 100
        Color = 14024703
        HorzAlign = haCenter
        Strings.Strings = (
          'Satu'
          'Dua'
          'Tiga'
        )
      end    
      item
        Title = 'First Group|Two'
        Footer = 'Footer 2'
        Width = 100
      end    
      item
        Title = 'Second Group|One'
        Footer = 'Footer 3'
        Width = 100
        Color = clWhite
        HorzAlign = haRight
      end    
      item
        Title = 'Second Group|Two'
        Footer = 'Footer 4'
        Width = 100
        HorzAlign = haCenter
      end>
    GutterKind = gkNumber
    GutterWidth = 40
    GutterFont.Color = clWhite
    ShowFooter = True
    OnDrawHeader = NiceGrid1DrawHeader
    OnInsertRow = NiceGrid1InsertRow
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabOrder = 0
  end
  object CheckBox1: TCheckBox
    Left = 16
    Height = 19
    Top = 464
    Width = 37
    Anchors = [akLeft, akBottom]
    Caption = 'Flat'
    Checked = True
    OnClick = CheckBox1Click
    State = cbChecked
    TabOrder = 1
  end
  object CheckBox2: TCheckBox
    AnchorSideLeft.Control = CheckBox1
    AnchorSideLeft.Side = asrBottom
    Left = 69
    Height = 19
    Top = 464
    Width = 93
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = 'System Colors'
    Checked = True
    OnClick = CheckBox2Click
    State = cbChecked
    TabOrder = 2
  end
  object CheckBox3: TCheckBox
    AnchorSideLeft.Control = CheckBox2
    AnchorSideLeft.Side = asrBottom
    Left = 178
    Height = 19
    Top = 464
    Width = 80
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = 'Fit to Width'
    OnClick = CheckBox3Click
    TabOrder = 3
  end
  object CheckBox4: TCheckBox
    AnchorSideLeft.Control = CheckBox3
    AnchorSideLeft.Side = asrBottom
    Left = 274
    Height = 19
    Top = 464
    Width = 125
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = 'Auto Column Width'
    OnClick = CheckBox4Click
    TabOrder = 4
  end
  object CheckBox5: TCheckBox
    AnchorSideLeft.Control = CheckBox4
    AnchorSideLeft.Side = asrBottom
    Left = 415
    Height = 19
    Top = 464
    Width = 77
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = 'Show Grids'
    Checked = True
    OnClick = CheckBox5Click
    State = cbChecked
    TabOrder = 5
  end
  object Button1: TButton
    AnchorSideLeft.Control = Button3
    AnchorSideLeft.Side = asrBottom
    Left = 284
    Height = 25
    Top = 501
    Width = 129
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = '&Hide 3rd Column'
    OnClick = Button1Click
    TabOrder = 8
  end
  object Button2: TButton
    Left = 16
    Height = 25
    Top = 501
    Width = 108
    Anchors = [akLeft, akBottom]
    AutoSize = True
    Caption = '&Insert New Row'
    OnClick = Button2Click
    TabOrder = 6
  end
  object Button3: TButton
    AnchorSideLeft.Control = Button2
    AnchorSideLeft.Side = asrBottom
    Left = 140
    Height = 25
    Top = 501
    Width = 128
    Anchors = [akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Left = 16
    Caption = '&Delete Current Row'
    OnClick = Button3Click
    TabOrder = 7
  end
  object Button4: TButton
    AnchorSideLeft.Control = Button1
    AnchorSideLeft.Side = asrBottom
    Left = 429
    Height = 25
    Top = 501
    Width = 182
    Anchors = [akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Left = 16
    Caption = 'Toggle ReadOnly 3rd Column'
    OnClick = Button4Click
    TabOrder = 9
  end
  object CheckBox6: TCheckBox
    AnchorSideLeft.Control = CheckBox5
    AnchorSideLeft.Side = asrBottom
    Left = 508
    Height = 19
    Top = 464
    Width = 84
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 16
    Caption = 'Show Footer'
    OnClick = CheckBox6Click
    TabOrder = 10
  end
end