1object KeyValPropEditorFrm: TKeyValPropEditorFrm 2 Left = 416 3 Height = 302 4 Top = 487 5 Width = 400 6 Caption = 'KeyValPropEditorFrm' 7 ClientHeight = 302 8 ClientWidth = 400 9 Constraints.MinHeight = 160 10 Constraints.MinWidth = 180 11 OnClose = FormClose 12 OnCreate = FormCreate 13 Position = poScreenCenter 14 LCLVersion = '1.9.0.0' 15 object TextGroupBox: TGroupBox 16 AnchorSideLeft.Control = Owner 17 AnchorSideTop.Control = Owner 18 AnchorSideRight.Control = Owner 19 AnchorSideRight.Side = asrBottom 20 AnchorSideBottom.Control = BtnPanel 21 Left = 6 22 Height = 257 23 Top = 6 24 Width = 388 25 Align = alTop 26 Anchors = [akTop, akLeft, akRight, akBottom] 27 BorderSpacing.Around = 6 28 ClientHeight = 253 29 ClientWidth = 384 30 TabOrder = 0 31 object StatusLabel: TLabel 32 AnchorSideBottom.Control = TextGroupBox 33 AnchorSideBottom.Side = asrBottom 34 Left = 9 35 Height = 15 36 Top = 232 37 Width = 71 38 Anchors = [akLeft, akBottom] 39 BorderSpacing.Around = 6 40 Caption = 'StatusLabel' 41 ParentColor = False 42 end 43 object SortButton: TButton 44 AnchorSideLeft.Side = asrBottom 45 AnchorSideRight.Control = TextGroupBox 46 AnchorSideRight.Side = asrBottom 47 Left = 274 48 Height = 25 49 Top = 6 50 Width = 104 51 Anchors = [akTop, akRight] 52 AutoSize = True 53 BorderSpacing.Around = 6 54 Caption = 'Sort (not used)' 55 Constraints.MinWidth = 75 56 OnClick = SortButtonClick 57 TabOrder = 0 58 end 59 object ValueListEdit: TValueListEditor 60 AnchorSideLeft.Control = TextGroupBox 61 AnchorSideRight.Control = SortButton 62 AnchorSideBottom.Control = StatusLabel 63 Left = 6 64 Height = 220 65 Top = 6 66 Width = 262 67 Anchors = [akTop, akLeft, akRight, akBottom] 68 BorderSpacing.Around = 6 69 DefaultColWidth = 100 70 FixedCols = 0 71 RowCount = 2 72 TabOrder = 1 73 KeyOptions = [keyEdit, keyAdd, keyDelete] 74 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking] 75 Strings.Strings = ( 76 '' 77 ) 78 ColWidths = ( 79 100 80 158 81 ) 82 end 83 end 84 object BtnPanel: TButtonPanel 85 Left = 6 86 Height = 27 87 Top = 269 88 Width = 388 89 OKButton.Name = 'OKButton' 90 OKButton.DefaultCaption = True 91 HelpButton.Name = 'HelpButton' 92 HelpButton.DefaultCaption = True 93 CloseButton.Name = 'CloseButton' 94 CloseButton.DefaultCaption = True 95 CancelButton.Name = 'CancelButton' 96 CancelButton.DefaultCaption = True 97 TabOrder = 1 98 ShowButtons = [pbOK, pbCancel] 99 ShowBevel = False 100 end 101end 102