object MacroListViewer: TMacroListViewer Left = 390 Height = 609 Top = 249 Width = 569 Caption = 'MacroListViewer' ClientHeight = 609 ClientWidth = 569 Constraints.MinHeight = 562 Constraints.MinWidth = 450 DesignTimePPI = 120 OnActivate = FormActivate OnDeactivate = FormActivate object Panel1: TPanel AnchorSideRight.Control = pnlButtons AnchorSideBottom.Control = gbAddMacro Left = 8 Height = 456 Top = 8 Width = 435 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 BevelOuter = bvNone ClientHeight = 456 ClientWidth = 435 TabOrder = 0 object lbMacroView: TListView Left = 0 Height = 396 Top = 28 Width = 435 Align = alClient AutoWidthLastColumn = True Columns = < item Width = 435 end> PopupMenu = PopupMenu1 RowSelect = True ShowColumnHeaders = False SortType = stText TabOrder = 1 ViewStyle = vsReport OnSelectItem = lbMacroViewSelectItem end object ToolBar1: TToolBar Left = 0 Height = 28 Top = 0 Width = 435 AutoSize = True BorderSpacing.InnerBorder = 1 EdgeBorders = [] ParentShowHint = False ShowCaptions = True ShowHint = True TabOrder = 0 object tbRecorded: TToolButton Tag = 1 Left = 1 Top = 0 Caption = 'tbRecorded' Down = True Grouped = True OnClick = tbRecordedClick Style = tbsCheck end object tbProject: TToolButton Tag = 1 Left = 97 Top = 0 Caption = 'tbProject' Grouped = True OnClick = tbProjectClick Style = tbsCheck end object tbIDE: TToolButton Tag = 1 Left = 175 Top = 0 Caption = 'tbIDE' Grouped = True OnClick = tbIDEClick Style = tbsCheck end object ToolButton3: TToolButton Left = 87 Height = 28 Top = 0 Caption = 'ToolButton3' Style = tbsSeparator end object ToolButton4: TToolButton Left = 165 Height = 28 Top = 0 Caption = 'ToolButton4' Style = tbsSeparator end end object ToolBar2: TToolBar Left = 0 Height = 28 Top = 428 Width = 435 Align = alBottom AutoSize = True BorderSpacing.Top = 4 EdgeBorders = [] Flat = False ShowCaptions = True TabOrder = 2 object lbMoveTo: TLabel Left = 1 Height = 22 Top = 0 Width = 66 Align = alLeft Caption = 'lbMoveTo' Layout = tlCenter end object tbMoveProject: TToolButton Left = 67 Top = 0 Caption = 'tbMoveProject' OnClick = tbMoveProjectClick end object tbMoveIDE: TToolButton Left = 172 Top = 0 Caption = 'tbMoveIDE' OnClick = tbMoveIDEClick end end end object ButtonPanel1: TButtonPanel Left = 8 Height = 38 Top = 563 Width = 553 BorderSpacing.Around = 8 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 2 ShowButtons = [pbClose, pbHelp] end object pnlButtons: TPanel AnchorSideTop.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 451 Height = 312 Top = 28 Width = 118 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Top = 20 BevelOuter = bvNone ClientHeight = 312 ClientWidth = 118 Constraints.MinHeight = 312 TabOrder = 1 object PanelRepeat: TPanel AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnPlay AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom Left = 8 Height = 65 Top = 239 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 4 BorderSpacing.Right = 8 BorderSpacing.Bottom = 4 BevelOuter = bvNone BorderStyle = bsSingle ClientHeight = 61 ClientWidth = 98 TabOrder = 0 object edRepeat: TSpinEdit AnchorSideLeft.Control = PanelRepeat AnchorSideTop.Control = chkRepeat AnchorSideTop.Side = asrBottom AnchorSideRight.Control = PanelRepeat AnchorSideRight.Side = asrBottom Left = 4 Height = 28 Top = 29 Width = 90 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 MaxValue = 999 MinValue = 1 TabOrder = 0 Value = 1 end object chkRepeat: TCheckBox AnchorSideLeft.Control = PanelRepeat AnchorSideTop.Side = asrBottom AnchorSideRight.Control = PanelRepeat AnchorSideRight.Side = asrBottom Left = 4 Height = 24 Top = 1 Width = 90 Anchors = [akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 Caption = 'chkRepeat' TabOrder = 1 end end object btnPlay: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnDelete AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom Left = 8 Height = 30 Top = 205 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 15 BorderSpacing.Right = 8 BorderSpacing.Bottom = 4 Caption = 'btnPlay' OnClick = btnPlayClick TabOrder = 1 end object btnDelete: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnEdit AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 30 Top = 160 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'btnDelete' OnClick = btnDeleteClick TabOrder = 2 end object btnEdit: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnSetKeys AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 30 Top = 122 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'btnEdit' OnClick = btnEditClick TabOrder = 3 end object btnSetKeys: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnRename AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 30 Top = 84 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'btnSetKeys' OnClick = btnSetKeysClick TabOrder = 4 end object btnRename: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = btnSelect AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 30 Top = 46 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'btnRename' OnClick = btnRenameClick TabOrder = 5 end object btnSelect: TBitBtn AnchorSideLeft.Control = pnlButtons AnchorSideTop.Control = pnlButtons AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 30 Top = 8 Width = 102 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'btnSelect' OnClick = btnSelectClick TabOrder = 6 end end object PanelWarnings: TPanel AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ButtonPanel1 Left = 8 Height = 28 Top = 527 Width = 553 Anchors = [akLeft, akRight, akBottom] BevelOuter = bvNone ClientHeight = 28 ClientWidth = 553 TabOrder = 3 Visible = False object LabelWarning: TLabel AnchorSideTop.Control = PanelWarnings AnchorSideTop.Side = asrCenter AnchorSideRight.Control = BtnWarnClose Left = 0 Height = 20 Top = 4 Width = 515 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 4 Caption = 'LabelWarning' Font.Color = clRed ParentFont = False WordWrap = True end object BtnWarnClose: TSpeedButton AnchorSideTop.Control = PanelWarnings AnchorSideTop.Side = asrCenter AnchorSideRight.Control = PanelWarnings AnchorSideRight.Side = asrBottom Left = 519 Height = 28 Top = 0 Width = 32 Anchors = [akTop, akRight] BorderSpacing.Right = 2 OnClick = BtnWarnCloseClick end end object gbAddMacro: TGroupBox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlButtons AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = PanelWarnings Left = 8 Height = 59 Top = 468 Width = 553 Anchors = [akLeft, akRight, akBottom] AutoSize = True BorderSpacing.Top = 4 BorderSpacing.Right = 8 Caption = 'gbAddMacro' ClientHeight = 34 ClientWidth = 549 TabOrder = 4 object btnRecord: TBitBtn AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 8 Height = 30 Top = 0 Width = 95 AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Bottom = 4 Caption = 'btnRecord' OnClick = btnRecordClick TabOrder = 0 end object btnRecordStop: TBitBtn AnchorSideLeft.Control = btnRecord AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnRecord AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 111 Height = 30 Top = 0 Width = 126 AutoSize = True BorderSpacing.Left = 8 Caption = 'btnRecordStop' OnClick = btnRecordStopClick TabOrder = 1 end object btnAddEditNew: TBitBtn AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnRecordStop AnchorSideRight.Control = gbAddMacro AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 409 Height = 30 Top = 0 Width = 132 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 Caption = 'btnAddEditNew' OnClick = btnAddEditNewClick TabOrder = 2 end end object PopupMenu1: TPopupMenu Left = 180 Top = 90 object mnExport: TMenuItem Caption = 'New Item1' OnClick = mnExportClick end object mnImport: TMenuItem Caption = 'New Item2' OnClick = mnImportClick end end object SaveDialog1: TSaveDialog DefaultExt = '.xml' Filter = 'xml|*.xml|*|*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail] Left = 30 Top = 70 end object OpenDialog1: TOpenDialog DefaultExt = '.xml' Filter = 'xml|*.xml|*|*' Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] Left = 110 Top = 80 end end