1object BuildModesForm: TBuildModesForm 2 Left = 396 3 Height = 354 4 Top = 484 5 Width = 612 6 ActiveControl = BuildModesStringGrid 7 BorderIcons = [biSystemMenu] 8 Caption = 'BuildModesForm' 9 ClientHeight = 354 10 ClientWidth = 612 11 OnCreate = FormCreate 12 OnDestroy = FormDestroy 13 OnShow = FormShow 14 Position = poScreenCenter 15 LCLVersion = '2.1.0.0' 16 object ButtonPanel1: TButtonPanel 17 Left = 6 18 Height = 26 19 Top = 322 20 Width = 600 21 OKButton.Name = 'OKButton' 22 OKButton.DefaultCaption = True 23 HelpButton.Name = 'HelpButton' 24 HelpButton.DefaultCaption = True 25 CloseButton.Name = 'CloseButton' 26 CloseButton.DefaultCaption = True 27 CancelButton.Name = 'CancelButton' 28 CancelButton.DefaultCaption = True 29 TabOrder = 4 30 ShowButtons = [pbOK, pbCancel, pbHelp] 31 ShowBevel = False 32 end 33 object ToolBar1: TToolBar 34 AnchorSideLeft.Control = btnCreateDefaultModes 35 AnchorSideTop.Control = btnCreateDefaultModes 36 AnchorSideTop.Side = asrBottom 37 Left = 6 38 Height = 28 39 Top = 37 40 Width = 154 41 Align = alNone 42 BorderSpacing.Top = 6 43 ButtonHeight = 26 44 ButtonWidth = 26 45 Caption = 'ToolBar1' 46 EdgeBorders = [] 47 EdgeInner = esNone 48 EdgeOuter = esNone 49 ParentShowHint = False 50 ShowHint = True 51 TabOrder = 1 52 object ToolButtonAdd: TToolButton 53 Left = 1 54 Top = 0 55 Caption = 'ToolButtonAdd' 56 OnClick = AddSpeedButtonClick 57 end 58 object ToolButtonDelete: TToolButton 59 Left = 27 60 Top = 0 61 Caption = 'ToolButtonDelete' 62 OnClick = DeleteSpeedButtonClick 63 end 64 object ToolButtonMoveUp: TToolButton 65 Left = 58 66 Top = 0 67 Caption = 'ToolButtonMoveUp' 68 OnClick = MoveUpSpeedButtonClick 69 end 70 object ToolButtonMoveDown: TToolButton 71 Left = 84 72 Top = 0 73 Caption = 'ToolButtonMoveDown' 74 OnClick = MoveDownSpeedButtonClick 75 end 76 object ToolButton5: TToolButton 77 Left = 110 78 Height = 26 79 Top = 0 80 Caption = 'ToolButton5' 81 Style = tbsDivider 82 end 83 object ToolButtonDiff: TToolButton 84 Left = 115 85 Top = 0 86 Caption = 'ToolButtonDiff' 87 OnClick = DiffSpeedButtonClick 88 end 89 object ToolButton1: TToolButton 90 Left = 53 91 Height = 26 92 Top = 0 93 Caption = 'ToolButton1' 94 Style = tbsDivider 95 end 96 end 97 object NoteLabel: TLabel 98 AnchorSideLeft.Control = ToolBar1 99 AnchorSideLeft.Side = asrBottom 100 AnchorSideTop.Control = ToolBar1 101 AnchorSideTop.Side = asrCenter 102 Left = 166 103 Height = 15 104 Top = 44 105 Width = 55 106 BorderSpacing.Left = 6 107 Caption = 'NoteLabel' 108 Font.Color = clMaroon 109 Font.Style = [fsItalic] 110 ParentColor = False 111 ParentFont = False 112 end 113 object BuildModesStringGrid: TStringGrid 114 AnchorSideLeft.Control = ToolBar1 115 AnchorSideTop.Control = ToolBar1 116 AnchorSideTop.Side = asrBottom 117 Left = 6 118 Height = 244 119 Top = 71 120 Width = 602 121 Anchors = [akTop, akLeft, akRight, akBottom] 122 AutoFillColumns = True 123 BorderSpacing.Top = 6 124 ColCount = 3 125 Columns = < 126 item 127 ButtonStyle = cbsCheckboxColumn 128 MaxSize = 50 129 Title.Caption = 'Active' 130 Width = 200 131 end 132 item 133 ButtonStyle = cbsCheckboxColumn 134 MaxSize = 50 135 Title.Caption = 'InSession' 136 Width = 200 137 end 138 item 139 MaxSize = 500 140 SizePriority = 100 141 Title.Caption = 'Title' 142 Width = 200 143 end> 144 FixedCols = 0 145 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect, goThumbTracking, goSmoothScroll] 146 TabOrder = 3 147 TitleStyle = tsNative 148 OnCheckboxToggled = BuildModesCheckboxToggled 149 OnDrawCell = BuildModesStringGridDrawCell 150 OnSelection = BuildModesStringGridSelection 151 OnValidateEntry = BuildModesStringGridValidateEntry 152 ColWidths = ( 153 200 154 200 155 200 156 ) 157 end 158 object btnCreateDefaultModes: TButton 159 AnchorSideLeft.Control = Owner 160 AnchorSideTop.Control = Owner 161 Left = 6 162 Height = 25 163 Top = 6 164 Width = 166 165 AutoSize = True 166 BorderSpacing.Left = 6 167 BorderSpacing.Top = 6 168 Caption = 'Create now for this project' 169 OnClick = btnCreateDefaultModesClick 170 ParentShowHint = False 171 ShowHint = True 172 TabOrder = 0 173 end 174 object RenameButton: TButton 175 AnchorSideTop.Control = btnCreateDefaultModes 176 AnchorSideRight.Control = BuildModesStringGrid 177 AnchorSideRight.Side = asrBottom 178 Left = 539 179 Height = 25 180 Top = 6 181 Width = 69 182 Anchors = [akTop, akRight] 183 AutoSize = True 184 Caption = '&Rename' 185 OnClick = RenameButtonClick 186 TabOrder = 2 187 end 188 object BuildModesPopupMenu: TPopupMenu 189 left = 168 190 top = 260 191 end 192end 193