lazarus-ccr/components/industrialstuff/Example/LCDDisplay/Properties/untMain.lfm

object frmMain: TfrmMain
  Left = 510
  Height = 531
  Top = 217
  Width = 921
  AutoSize = True
  Caption = 'LCDDisplay Demo'
  ClientHeight = 531
  ClientWidth = 921
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '2.3.0.0'
  object pnlProperties: TPanel
    Left = 0
    Height = 194
    Top = 337
    Width = 921
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 194
    ClientWidth = 921
    TabOrder = 1
    object rgFrameStyle: TRadioGroup
      Left = 8
      Height = 105
      Top = 8
      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 = 133
      Height = 65
      Top = 8
      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 = 3
    end
    object cbtFrameColor: TColorButton
      Left = 272
      Height = 25
      Top = 82
      Width = 123
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clBlack
      Caption = 'Frame color'
      Margin = 8
      OnColorChanged = cbtFrameColorColorChanged
    end
    object rgDotShape: TRadioGroup
      Left = 411
      Height = 65
      Top = 8
      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 = 5
    end
    object mmText: TMemo
      AnchorSideTop.Control = lblLinesText
      AnchorSideTop.Side = asrBottom
      Left = 688
      Height = 48
      Top = 25
      Width = 168
      BorderSpacing.Top = 2
      BorderSpacing.Right = 8
      OnChange = mmTextChange
      TabOrder = 13
    end
    object rgFrameHeight: TRadioGroup
      Left = 547
      Height = 65
      Top = 8
      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 = 8
    end
    object lblDotSize: TLabel
      Left = 411
      Height = 15
      Top = 85
      Width = 44
      Caption = 'Dot size:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seDotSize: TSpinEdit
      Left = 475
      Height = 23
      Top = 82
      Width = 58
      OnChange = seDotSizeChange
      TabOrder = 6
    end
    object lblDotSpace: TLabel
      Left = 411
      Height = 15
      Top = 113
      Width = 60
      Caption = 'Dots space:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seDotsSpace: TSpinEdit
      Left = 475
      Height = 23
      Top = 110
      Width = 58
      OnChange = seDotsSpaceChange
      TabOrder = 7
    end
    object lblFrameSize: TLabel
      Left = 547
      Height = 15
      Top = 85
      Width = 58
      Caption = 'Frame size:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seFrameSize: TSpinEdit
      Left = 609
      Height = 23
      Top = 82
      Width = 58
      OnChange = seFrameSizeChange
      TabOrder = 9
    end
    object cbAutoSize: TCheckBox
      Left = 547
      Height = 19
      Top = 168
      Width = 64
      Caption = 'AutoSize'
      OnChange = cbAutoSizeChange
      TabOrder = 12
    end
    object cbCharSpace: TCheckBox
      Left = 688
      Height = 19
      Top = 142
      Width = 76
      Caption = 'Char space'
      OnChange = cbCharSpaceChange
      TabOrder = 16
    end
    object cbtBoardColor: TColorButton
      Left = 272
      Height = 25
      Top = 108
      Width = 123
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clBlack
      Caption = 'Board color'
      Margin = 8
      OnColorChanged = cbtBoardColorColorChanged
    end
    object cbtDotONColor: TColorButton
      Left = 272
      Height = 25
      Top = 136
      Width = 123
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clBlack
      Caption = 'Dot color ON'
      Margin = 8
      OnColorChanged = cbtDotONColorColorChanged
    end
    object cbtDotOFFColor: TColorButton
      Left = 272
      Height = 25
      Top = 164
      Width = 123
      BorderSpacing.Bottom = 8
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clBlack
      Caption = 'Dot color OFF'
      Margin = 8
      OnColorChanged = cbtDotOFFColorColorChanged
    end
    object seDisplayLineCount: TSpinEdit
      Left = 798
      Height = 23
      Top = 82
      Width = 58
      OnChange = seDisplayLineCountChange
      TabOrder = 14
    end
    object lblDisplayLineCount: TLabel
      Left = 688
      Height = 15
      Top = 85
      Width = 98
      Caption = 'Display row count:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seWidth: TSpinEdit
      Left = 609
      Height = 23
      Top = 110
      Width = 58
      OnChange = seWidthChange
      TabOrder = 10
    end
    object lblWidth: TLabel
      Left = 547
      Height = 15
      Top = 113
      Width = 35
      Caption = 'Width:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seHeigth: TSpinEdit
      Left = 609
      Height = 23
      Top = 138
      Width = 58
      OnChange = seHeigthChange
      TabOrder = 11
    end
    object lblHeight: TLabel
      Left = 547
      Height = 15
      Top = 141
      Width = 39
      Caption = 'Heigth:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object lblDisplayCharCount: TLabel
      Left = 688
      Height = 15
      Top = 113
      Width = 94
      Caption = 'Display col count:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object seDisplayCharCount: TSpinEdit
      Left = 798
      Height = 23
      Hint = 'Set 0 for AutoSize'
      Top = 112
      Width = 58
      OnChange = seDisplayCharCountChange
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
    end
    object cbColorSchemes: TComboBox
      Left = 272
      Height = 23
      Top = 26
      Width = 100
      ItemHeight = 15
      Items.Strings = (
        'csCustom'
        'csBlue'
        'csGreen'
        'csInvGreen'
      )
      OnChange = cbColorSchemesChange
      TabOrder = 4
      Text = 'cbColorSchemes'
    end
    object lblColorScheme: TLabel
      Left = 272
      Height = 15
      Top = 8
      Width = 76
      Caption = 'Color scheme:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object lblCustomColors: TLabel
      Left = 272
      Height = 15
      Top = 64
      Width = 119
      Caption = 'Custom color scheme:'
      Color = clDefault
      ParentColor = False
      Transparent = False
    end
    object btnSaveCharDefs: TButton
      AnchorSideLeft.Control = rgFrameStyle
      AnchorSideRight.Control = rgFrameStyle
      AnchorSideRight.Side = asrBottom
      Left = 8
      Height = 25
      Top = 124
      Width = 108
      Anchors = [akTop, akLeft, akRight]
      Caption = 'Save char defs'
      OnClick = btnSaveCharDefsClick
      TabOrder = 1
    end
    object btnLoadCharDefs: TButton
      AnchorSideLeft.Control = rgFrameStyle
      AnchorSideRight.Control = rgFrameStyle
      AnchorSideRight.Side = asrBottom
      Left = 8
      Height = 25
      Top = 152
      Width = 108
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      Caption = 'Load char defs'
      OnClick = btnLoadCharDefsClick
      TabOrder = 2
    end
    object lblLinesText: TLabel
      Left = 688
      Height = 15
      Top = 8
      Width = 50
      Caption = 'Lines text'
    end
  end
  object pnlLCD: TPanel
    Left = 0
    Height = 333
    Top = 0
    Width = 921
    Align = alClient
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 0
  end
  object Bevel1: TBevel
    Left = 8
    Height = 4
    Top = 333
    Width = 905
    Align = alBottom
    BorderSpacing.Left = 8
    BorderSpacing.Right = 8
    Shape = bsBottomLine
  end
end