lazarus/ide/editormacrolistviewer.lfm

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