1object MacroListView: TMacroListView 2 Left = 390 3 Height = 387 4 Top = 249 5 Width = 424 6 Caption = 'MacroListView' 7 ClientHeight = 387 8 ClientWidth = 424 9 Constraints.MinHeight = 365 10 Constraints.MinWidth = 300 11 OnActivate = FormActivate 12 OnDeactivate = FormActivate 13 LCLVersion = '2.1.0.0' 14 object Panel1: TPanel 15 AnchorSideRight.Control = pnlButtons 16 Left = 6 17 Height = 313 18 Top = 6 19 Width = 295 20 Align = alLeft 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 BorderSpacing.Left = 6 23 BorderSpacing.Top = 6 24 BorderSpacing.Right = 6 25 BevelOuter = bvNone 26 ClientHeight = 313 27 ClientWidth = 295 28 TabOrder = 0 29 object lbMacroView: TListView 30 Left = 0 31 Height = 266 32 Top = 22 33 Width = 295 34 Align = alClient 35 AutoWidthLastColumn = True 36 Columns = < 37 item 38 Width = 291 39 end> 40 PopupMenu = PopupMenu1 41 RowSelect = True 42 ShowColumnHeaders = False 43 SortType = stText 44 TabOrder = 1 45 ViewStyle = vsReport 46 OnSelectItem = lbMacroViewSelectItem 47 end 48 object ToolBar1: TToolBar 49 Left = 0 50 Height = 22 51 Top = 0 52 Width = 295 53 AutoSize = True 54 BorderSpacing.InnerBorder = 1 55 EdgeBorders = [] 56 ParentShowHint = False 57 ShowCaptions = True 58 ShowHint = True 59 TabOrder = 0 60 object tbRecorded: TToolButton 61 Tag = 1 62 Left = 1 63 Top = 0 64 Caption = 'tbRecorded' 65 Down = True 66 Grouped = True 67 OnClick = tbRecordedClick 68 Style = tbsCheck 69 end 70 object tbProject: TToolButton 71 Tag = 1 72 Left = 78 73 Top = 0 74 Caption = 'tbProject' 75 Grouped = True 76 OnClick = tbProjectClick 77 Style = tbsCheck 78 end 79 object tbIDE: TToolButton 80 Tag = 1 81 Left = 142 82 Top = 0 83 Caption = 'tbIDE' 84 Grouped = True 85 OnClick = tbIDEClick 86 Style = tbsCheck 87 end 88 object ToolButton3: TToolButton 89 Left = 70 90 Height = 22 91 Top = 0 92 Caption = 'ToolButton3' 93 Style = tbsSeparator 94 end 95 object ToolButton4: TToolButton 96 Left = 134 97 Height = 22 98 Top = 0 99 Caption = 'ToolButton4' 100 Style = tbsSeparator 101 end 102 end 103 object ToolBar2: TToolBar 104 Left = 0 105 Height = 22 106 Top = 291 107 Width = 295 108 Align = alBottom 109 AutoSize = True 110 BorderSpacing.Top = 3 111 EdgeBorders = [] 112 Flat = False 113 ShowCaptions = True 114 TabOrder = 2 115 object lbMoveTo: TLabel 116 Left = 1 117 Height = 22 118 Top = 0 119 Width = 52 120 Align = alLeft 121 Caption = 'lbMoveTo' 122 Layout = tlCenter 123 ParentColor = False 124 end 125 object tbMoveProject: TToolButton 126 Left = 53 127 Top = 0 128 Caption = 'tbMoveProject' 129 OnClick = tbMoveProjectClick 130 end 131 object tbMoveIDE: TToolButton 132 Left = 139 133 Top = 0 134 Caption = 'tbMoveIDE' 135 OnClick = tbMoveIDEClick 136 end 137 end 138 end 139 object ButtonPanel1: TButtonPanel 140 Left = 6 141 Height = 34 142 Top = 347 143 Width = 412 144 OKButton.Name = 'OKButton' 145 OKButton.DefaultCaption = True 146 HelpButton.Name = 'HelpButton' 147 HelpButton.DefaultCaption = True 148 HelpButton.OnClick = HelpButtonClick 149 CloseButton.Name = 'CloseButton' 150 CloseButton.DefaultCaption = True 151 CancelButton.Name = 'CancelButton' 152 CancelButton.DefaultCaption = True 153 TabOrder = 2 154 ShowButtons = [pbClose, pbHelp] 155 end 156 object pnlButtons: TPanel 157 Left = 307 158 Height = 319 159 Top = 0 160 Width = 117 161 Align = alRight 162 AutoSize = True 163 BevelOuter = bvNone 164 ClientHeight = 319 165 ClientWidth = 117 166 Constraints.MinHeight = 250 167 TabOrder = 1 168 object btnSelect: TButton 169 AnchorSideLeft.Control = pnlButtons 170 AnchorSideTop.Control = pnlButtons 171 AnchorSideRight.Control = pnlButtons 172 AnchorSideRight.Side = asrBottom 173 AnchorSideBottom.Side = asrBottom 174 Left = 6 175 Height = 25 176 Top = 6 177 Width = 105 178 Anchors = [akTop, akLeft, akRight] 179 AutoSize = True 180 BorderSpacing.Left = 6 181 BorderSpacing.Top = 6 182 BorderSpacing.Right = 6 183 Caption = 'btnSelect' 184 OnClick = btnSelectClick 185 TabOrder = 0 186 end 187 object btnRename: TButton 188 AnchorSideLeft.Control = pnlButtons 189 AnchorSideTop.Control = btnSelect 190 AnchorSideTop.Side = asrBottom 191 AnchorSideRight.Control = pnlButtons 192 AnchorSideRight.Side = asrBottom 193 AnchorSideBottom.Side = asrBottom 194 Left = 6 195 Height = 25 196 Top = 37 197 Width = 105 198 Anchors = [akTop, akLeft, akRight] 199 AutoSize = True 200 BorderSpacing.Left = 6 201 BorderSpacing.Top = 6 202 BorderSpacing.Right = 6 203 Caption = 'btnRename' 204 OnClick = btnRenameClick 205 TabOrder = 1 206 end 207 object btnPlay: TButton 208 AnchorSideLeft.Control = pnlButtons 209 AnchorSideTop.Side = asrBottom 210 AnchorSideRight.Control = pnlButtons 211 AnchorSideRight.Side = asrBottom 212 AnchorSideBottom.Control = PanelRepeat 213 Left = 6 214 Height = 25 215 Top = 178 216 Width = 105 217 Anchors = [akLeft, akRight, akBottom] 218 AutoSize = True 219 BorderSpacing.Left = 6 220 BorderSpacing.Right = 6 221 BorderSpacing.Bottom = 3 222 Caption = 'btnPlay' 223 OnClick = btnPlayClick 224 TabOrder = 5 225 end 226 object btnRecord: TButton 227 AnchorSideLeft.Control = pnlButtons 228 AnchorSideTop.Control = btnRename 229 AnchorSideTop.Side = asrBottom 230 AnchorSideRight.Control = pnlButtons 231 AnchorSideRight.Side = asrBottom 232 AnchorSideBottom.Control = btnRecordStop 233 Left = 6 234 Height = 25 235 Top = 263 236 Width = 105 237 Anchors = [akLeft, akRight, akBottom] 238 AutoSize = True 239 BorderSpacing.Left = 6 240 BorderSpacing.Right = 6 241 BorderSpacing.Bottom = 6 242 Caption = 'btnRecord' 243 OnClick = btnRecordClick 244 TabOrder = 6 245 end 246 object btnRecordStop: TButton 247 AnchorSideLeft.Control = pnlButtons 248 AnchorSideTop.Control = btnRename 249 AnchorSideTop.Side = asrBottom 250 AnchorSideRight.Control = pnlButtons 251 AnchorSideRight.Side = asrBottom 252 AnchorSideBottom.Control = pnlButtons 253 AnchorSideBottom.Side = asrBottom 254 Left = 6 255 Height = 25 256 Top = 294 257 Width = 105 258 Anchors = [akLeft, akRight, akBottom] 259 AutoSize = True 260 BorderSpacing.Left = 6 261 BorderSpacing.Right = 6 262 Caption = 'btnRecordStop' 263 OnClick = btnRecordStopClick 264 TabOrder = 7 265 end 266 object btnDelete: TButton 267 AnchorSideLeft.Control = pnlButtons 268 AnchorSideTop.Control = btnEdit 269 AnchorSideTop.Side = asrBottom 270 AnchorSideRight.Control = pnlButtons 271 AnchorSideRight.Side = asrBottom 272 AnchorSideBottom.Side = asrBottom 273 Left = 6 274 Height = 25 275 Top = 130 276 Width = 105 277 Anchors = [akTop, akLeft, akRight] 278 AutoSize = True 279 BorderSpacing.Left = 6 280 BorderSpacing.Top = 6 281 BorderSpacing.Right = 6 282 Caption = 'btnDelete' 283 OnClick = btnDeleteClick 284 TabOrder = 4 285 end 286 object btnSetKeys: TButton 287 AnchorSideLeft.Control = pnlButtons 288 AnchorSideTop.Control = btnRename 289 AnchorSideTop.Side = asrBottom 290 AnchorSideRight.Control = pnlButtons 291 AnchorSideRight.Side = asrBottom 292 AnchorSideBottom.Side = asrBottom 293 Left = 6 294 Height = 25 295 Top = 68 296 Width = 105 297 Anchors = [akTop, akLeft, akRight] 298 AutoSize = True 299 BorderSpacing.Left = 6 300 BorderSpacing.Top = 6 301 BorderSpacing.Right = 6 302 Caption = 'btnSetKeys' 303 OnClick = btnSetKeysClick 304 TabOrder = 2 305 end 306 object btnEdit: TButton 307 AnchorSideLeft.Control = pnlButtons 308 AnchorSideTop.Control = btnSetKeys 309 AnchorSideTop.Side = asrBottom 310 AnchorSideRight.Control = pnlButtons 311 AnchorSideRight.Side = asrBottom 312 AnchorSideBottom.Side = asrBottom 313 Left = 6 314 Height = 25 315 Top = 99 316 Width = 105 317 Anchors = [akTop, akLeft, akRight] 318 AutoSize = True 319 BorderSpacing.Left = 6 320 BorderSpacing.Top = 6 321 BorderSpacing.Right = 6 322 Caption = 'btnEdit' 323 OnClick = btnEditClick 324 TabOrder = 3 325 end 326 object PanelRepeat: TPanel 327 AnchorSideLeft.Control = pnlButtons 328 AnchorSideTop.Control = btnPlay 329 AnchorSideTop.Side = asrBottom 330 AnchorSideRight.Control = pnlButtons 331 AnchorSideRight.Side = asrBottom 332 AnchorSideBottom.Control = btnRecord 333 Left = 6 334 Height = 54 335 Top = 206 336 Width = 105 337 Anchors = [akLeft, akRight, akBottom] 338 AutoSize = True 339 BorderSpacing.Left = 6 340 BorderSpacing.Top = 3 341 BorderSpacing.Right = 6 342 BorderSpacing.Bottom = 3 343 BevelOuter = bvNone 344 BorderStyle = bsSingle 345 ClientHeight = 50 346 ClientWidth = 101 347 TabOrder = 8 348 object edRepeat: TSpinEdit 349 AnchorSideLeft.Control = PanelRepeat 350 AnchorSideTop.Control = chkRepeat 351 AnchorSideTop.Side = asrBottom 352 AnchorSideRight.Control = PanelRepeat 353 AnchorSideRight.Side = asrBottom 354 Left = 3 355 Height = 23 356 Top = 24 357 Width = 95 358 Anchors = [akTop, akLeft, akRight] 359 BorderSpacing.Left = 3 360 BorderSpacing.Top = 3 361 BorderSpacing.Right = 3 362 BorderSpacing.Bottom = 3 363 MaxValue = 999 364 MinValue = 1 365 TabOrder = 0 366 Value = 1 367 end 368 object chkRepeat: TCheckBox 369 AnchorSideLeft.Control = PanelRepeat 370 AnchorSideTop.Side = asrBottom 371 AnchorSideRight.Control = PanelRepeat 372 AnchorSideRight.Side = asrBottom 373 AnchorSideBottom.Control = edRepeat 374 Left = 3 375 Height = 19 376 Top = 2 377 Width = 95 378 Anchors = [akLeft, akRight] 379 BorderSpacing.Left = 3 380 BorderSpacing.Right = 3 381 BorderSpacing.Bottom = 3 382 Caption = 'chkRepeat' 383 TabOrder = 1 384 end 385 end 386 end 387 object PanelWarnings: TPanel 388 Left = 0 389 Height = 22 390 Top = 319 391 Width = 424 392 Align = alBottom 393 AutoSize = True 394 BevelOuter = bvNone 395 ClientHeight = 22 396 ClientWidth = 424 397 TabOrder = 3 398 Visible = False 399 object LabelWarning: TLabel 400 Left = 0 401 Height = 22 402 Top = 0 403 Width = 401 404 Align = alClient 405 Font.Color = clRed 406 ParentColor = False 407 ParentFont = False 408 WordWrap = True 409 end 410 object PnlWarnClose: TPanel 411 Left = 401 412 Height = 22 413 Top = 0 414 Width = 23 415 Align = alRight 416 AutoSize = True 417 BevelOuter = bvNone 418 ClientHeight = 22 419 ClientWidth = 23 420 TabOrder = 0 421 object BtnWarnClose: TSpeedButton 422 Left = 0 423 Height = 22 424 Top = 0 425 Width = 23 426 OnClick = BtnWarnCloseClick 427 end 428 end 429 end 430 object PopupMenu1: TPopupMenu 431 left = 144 432 top = 72 433 object mnExport: TMenuItem 434 Caption = 'New Item1' 435 OnClick = mnExportClick 436 end 437 object mnImport: TMenuItem 438 Caption = 'New Item2' 439 OnClick = mnImportClick 440 end 441 end 442 object SaveDialog1: TSaveDialog 443 DefaultExt = '.xml' 444 Filter = 'xml|*.xml|*|*' 445 Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail] 446 left = 24 447 top = 56 448 end 449 object OpenDialog1: TOpenDialog 450 DefaultExt = '.xml' 451 Filter = 'xml|*.xml|*|*' 452 Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] 453 left = 88 454 top = 64 455 end 456end 457