Industrial: Add basic TCharDefs property editor and TLCDDisplay component editor (not yet complete).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8312 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/industrialstuff/source/indlcddisplay_editorform.lfm

@@ -0,0 +1,95 @@
+object LCDCharDefsEditor: TLCDCharDefsEditor
+  Left = 415
+  Height = 338
+  Top = 175
+  Width = 506
+  AutoSize = True
+  Caption = 'LCDCharDefsEditor'
+  ClientHeight = 338
+  ClientWidth = 506
+  OnActivate = FormActivate
+  OnCloseQuery = FormCloseQuery
+  OnDestroy = FormDestroy
+  LCLVersion = '2.3.0.0'
+  object ButtonPanel: TButtonPanel
+    Left = 6
+    Height = 34
+    Top = 298
+    Width = 494
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
+    TabOrder = 3
+    ShowButtons = [pbOK, pbCancel]
+  end
+  object btnDelete: TButton
+    AnchorSideLeft.Control = dgEditor
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = dgEditor
+    Left = 224
+    Height = 25
+    Top = 64
+    Width = 75
+    BorderSpacing.Left = 12
+    BorderSpacing.Right = 12
+    Caption = 'Delete'
+    OnClick = btnDeleteClick
+    TabOrder = 2
+  end
+  object dgEditor: TDrawGrid
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = cbCharSelector
+    AnchorSideTop.Side = asrBottom
+    Left = 12
+    Height = 192
+    Top = 64
+    Width = 200
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 12
+    BorderSpacing.Bottom = 6
+    BorderStyle = bsNone
+    ColCount = 1
+    DefaultColWidth = 22
+    ExtendedSelect = False
+    FixedCols = 0
+    FixedRows = 0
+    RowCount = 1
+    ScrollBars = ssNone
+    TabOrder = 1
+    OnPrepareCanvas = dgEditorPrepareCanvas
+  end
+  object Label1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 12
+    Height = 15
+    Top = 12
+    Width = 105
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 12
+    Caption = 'Available characters'
+  end
+  object cbCharSelector: TComboBox
+    AnchorSideLeft.Control = Label1
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    Left = 12
+    Height = 23
+    Top = 29
+    Width = 114
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending]
+    BorderSpacing.Top = 2
+    ItemHeight = 15
+    MaxLength = 1
+    OnChange = cbCharSelectorChange
+    OnKeyDown = cbCharSelectorKeyDown
+    OnKeyUp = cbCharSelectorKeyUp
+    TabOrder = 0
+    Text = 'cbCharSelector'
+  end
+end