lazarus-ccr/components/industrialstuff/Example/LCDDisplay/untmain.lfm

object frmMain: TfrmMain
  Left = 510
  Height = 531
  Top = 217
  Width = 921
  Caption = 'LCDDisplay Demo'
  ClientHeight = 531
  ClientWidth = 921
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '2.3.0.0'
  object rgFrameStyle: TRadioGroup
    Left = 24
    Height = 105
    Top = 336
    Width = 108
    AutoFill = True
    Caption = 'Frame style'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 85
    ClientWidth = 104
    Items.Strings = (
      'fsRelief'
      'fsNone'
      'fsLowered'
      'fsRaised'
    )
    OnClick = rgFrameStyleClick
    TabOrder = 0
  end
  object rgFrameColorStyle: TRadioGroup
    Left = 149
    Height = 65
    Top = 336
    Width = 123
    AutoFill = True
    Caption = 'Frame color style'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 45
    ClientWidth = 119
    Items.Strings = (
      'stWindows'
      'stColor'
    )
    OnClick = rgFrameColorStyleClick
    TabOrder = 1
  end
  object cbtFrameColor: TColorButton
    Left = 288
    Height = 25
    Top = 410
    Width = 123
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Frame color'
    Margin = 8
    OnColorChanged = cbtFrameColorColorChanged
  end
  object rgDotShape: TRadioGroup
    Left = 427
    Height = 65
    Top = 336
    Width = 120
    AutoFill = True
    Caption = 'Dot shape'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 45
    ClientWidth = 116
    Items.Strings = (
      'stSquare'
      'stRound'
    )
    OnClick = rgDotShapeClick
    TabOrder = 2
  end
  object mmText: TMemo
    Left = 704
    Height = 65
    Top = 336
    Width = 168
    OnChange = mmTextChange
    TabOrder = 3
  end
  object rgFrameHeight: TRadioGroup
    Left = 563
    Height = 65
    Top = 336
    Width = 120
    AutoFill = True
    Caption = 'Frame height'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 45
    ClientWidth = 116
    Items.Strings = (
      'double'
      'single'
    )
    OnClick = rgFrameHeightClick
    TabOrder = 4
  end
  object Label1: TLabel
    Left = 427
    Height = 15
    Top = 413
    Width = 44
    Caption = 'Dot size:'
    Color = clDefault
    ParentColor = False
  end
  object seDotSize: TSpinEdit
    Left = 491
    Height = 23
    Top = 410
    Width = 58
    OnChange = seDotSizeChange
    TabOrder = 5
  end
  object Label2: TLabel
    Left = 427
    Height = 15
    Top = 441
    Width = 60
    Caption = 'Dots space:'
    Color = clDefault
    ParentColor = False
  end
  object seDotsSpace: TSpinEdit
    Left = 491
    Height = 23
    Top = 438
    Width = 58
    OnChange = seDotsSpaceChange
    TabOrder = 6
  end
  object Label3: TLabel
    Left = 563
    Height = 15
    Top = 413
    Width = 58
    Caption = 'Frame size:'
    Color = clDefault
    ParentColor = False
  end
  object seFrameSize: TSpinEdit
    Left = 625
    Height = 23
    Top = 410
    Width = 58
    OnChange = seFrameSizeChange
    TabOrder = 7
  end
  object cbAutoSize: TCheckBox
    Left = 149
    Height = 19
    Top = 413
    Width = 64
    Caption = 'AutoSize'
    OnChange = cbAutoSizeChange
    TabOrder = 8
  end
  object cbCharSpace: TCheckBox
    Left = 704
    Height = 19
    Top = 470
    Width = 76
    Caption = 'Char space'
    OnChange = cbCharSpaceChange
    TabOrder = 9
  end
  object cbtBoardColor: TColorButton
    Left = 288
    Height = 25
    Top = 436
    Width = 123
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Board color'
    Margin = 8
    OnColorChanged = cbtBoardColorColorChanged
  end
  object cbtDotONColor: TColorButton
    Left = 288
    Height = 25
    Top = 464
    Width = 123
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Dot color ON'
    Margin = 8
    OnColorChanged = cbtDotONColorColorChanged
  end
  object cbtDotOFFColor: TColorButton
    Left = 288
    Height = 25
    Top = 492
    Width = 123
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Dot color OFF'
    Margin = 8
    OnColorChanged = cbtDotOFFColorColorChanged
  end
  object seDisplayLineCount: TSpinEdit
    Left = 814
    Height = 23
    Top = 410
    Width = 58
    OnChange = seDisplayLineCountChange
    TabOrder = 10
  end
  object Label4: TLabel
    Left = 704
    Height = 15
    Top = 413
    Width = 95
    Caption = 'Screen row count:'
    Color = clDefault
    ParentColor = False
  end
  object seWidth: TSpinEdit
    Left = 625
    Height = 23
    Top = 438
    Width = 58
    OnChange = seWidthChange
    TabOrder = 11
  end
  object Label5: TLabel
    Left = 563
    Height = 15
    Top = 441
    Width = 35
    Caption = 'Width:'
    Color = clDefault
    ParentColor = False
  end
  object seHeigth: TSpinEdit
    Left = 625
    Height = 23
    Top = 466
    Width = 58
    OnChange = seHeigthChange
    TabOrder = 12
  end
  object Label6: TLabel
    Left = 563
    Height = 15
    Top = 469
    Width = 39
    Caption = 'Heigth:'
    Color = clDefault
    ParentColor = False
  end
  object Label7: TLabel
    Left = 704
    Height = 15
    Top = 441
    Width = 91
    Caption = 'Screen col count:'
    Color = clDefault
    ParentColor = False
  end
  object seDisplayCharCount: TSpinEdit
    Left = 814
    Height = 23
    Top = 438
    Width = 58
    OnChange = seDisplayCharCountChange
    TabOrder = 13
  end
  object cbColorSchemes: TComboBox
    Left = 288
    Height = 23
    Top = 354
    Width = 100
    ItemHeight = 15
    Items.Strings = (
      'csCustom'
      'csBlue'
      'csGreen'
      'csInvGreen'
    )
    OnChange = cbColorSchemesChange
    TabOrder = 14
    Text = 'cbColorSchemes'
  end
  object Label8: TLabel
    Left = 288
    Height = 15
    Top = 336
    Width = 76
    Caption = 'Color scheme:'
    Color = clDefault
    ParentColor = False
  end
  object Label9: TLabel
    Left = 288
    Height = 15
    Top = 392
    Width = 119
    Caption = 'Custom color scheme:'
    Color = clDefault
    ParentColor = False
  end
  object btnSaveCharDefs: TButton
    Left = 24
    Height = 25
    Top = 452
    Width = 101
    AutoSize = True
    Caption = 'Save char defs'
    OnClick = btnSaveCharDefsClick
    TabOrder = 15
  end
  object btnLoadCharDefs: TButton
    Left = 24
    Height = 25
    Top = 480
    Width = 103
    AutoSize = True
    Caption = 'Load char defs'
    OnClick = btnLoadCharDefsClick
    TabOrder = 16
  end
end