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