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