diff --git a/ide/editormacrolistviewer.lfm b/ide/editormacrolistviewer.lfm
index b83a934847..8e56680150 100644
--- a/ide/editormacrolistviewer.lfm
+++ b/ide/editormacrolistviewer.lfm
@@ -1,41 +1,41 @@
 object MacroListView: TMacroListView
   Left = 390
-  Height = 487
+  Height = 609
   Top = 249
-  Width = 455
+  Width = 569
   Caption = 'MacroListView'
-  ClientHeight = 487
-  ClientWidth = 455
-  Constraints.MinHeight = 450
-  Constraints.MinWidth = 360
+  ClientHeight = 609
+  ClientWidth = 569
+  Constraints.MinHeight = 562
+  Constraints.MinWidth = 450
+  DesignTimePPI = 120
   OnActivate = FormActivate
   OnDeactivate = FormActivate
-  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     AnchorSideRight.Control = pnlButtons
     AnchorSideBottom.Control = gbAddMacro
-    Left = 6
-    Height = 346
-    Top = 6
-    Width = 333
+    Left = 8
+    Height = 456
+    Top = 8
+    Width = 435
     Anchors = [akTop, akLeft, akRight, akBottom]
-    BorderSpacing.Left = 6
-    BorderSpacing.Top = 6
-    BorderSpacing.Right = 6
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
     BevelOuter = bvNone
-    ClientHeight = 346
-    ClientWidth = 333
+    ClientHeight = 456
+    ClientWidth = 435
     TabOrder = 0
     object lbMacroView: TListView
       Left = 0
-      Height = 299
-      Top = 22
-      Width = 333
+      Height = 396
+      Top = 28
+      Width = 435
       Align = alClient
       AutoWidthLastColumn = True
       Columns = <      
         item
-          Width = 311
+          Width = 435
         end>
       PopupMenu = PopupMenu1
       RowSelect = True
@@ -47,9 +47,9 @@ object MacroListView: TMacroListView
     end
     object ToolBar1: TToolBar
       Left = 0
-      Height = 22
+      Height = 28
       Top = 0
-      Width = 333
+      Width = 435
       AutoSize = True
       BorderSpacing.InnerBorder = 1
       EdgeBorders = []
@@ -69,7 +69,7 @@ object MacroListView: TMacroListView
       end
       object tbProject: TToolButton
         Tag = 1
-        Left = 89
+        Left = 97
         Top = 0
         Caption = 'tbProject'
         Grouped = True
@@ -78,7 +78,7 @@ object MacroListView: TMacroListView
       end
       object tbIDE: TToolButton
         Tag = 1
-        Left = 161
+        Left = 175
         Top = 0
         Caption = 'tbIDE'
         Grouped = True
@@ -86,15 +86,15 @@ object MacroListView: TMacroListView
         Style = tbsCheck
       end
       object ToolButton3: TToolButton
-        Left = 81
-        Height = 22
+        Left = 87
+        Height = 28
         Top = 0
         Caption = 'ToolButton3'
         Style = tbsSeparator
       end
       object ToolButton4: TToolButton
-        Left = 153
-        Height = 22
+        Left = 165
+        Height = 28
         Top = 0
         Caption = 'ToolButton4'
         Style = tbsSeparator
@@ -102,12 +102,12 @@ object MacroListView: TMacroListView
     end
     object ToolBar2: TToolBar
       Left = 0
-      Height = 22
-      Top = 324
-      Width = 333
+      Height = 28
+      Top = 428
+      Width = 435
       Align = alBottom
       AutoSize = True
-      BorderSpacing.Top = 3
+      BorderSpacing.Top = 4
       EdgeBorders = []
       Flat = False
       ShowCaptions = True
@@ -116,19 +116,19 @@ object MacroListView: TMacroListView
         Left = 1
         Height = 22
         Top = 0
-        Width = 60
+        Width = 66
         Align = alLeft
         Caption = 'lbMoveTo'
         Layout = tlCenter
       end
       object tbMoveProject: TToolButton
-        Left = 61
+        Left = 67
         Top = 0
         Caption = 'tbMoveProject'
         OnClick = tbMoveProjectClick
       end
       object tbMoveIDE: TToolButton
-        Left = 160
+        Left = 172
         Top = 0
         Caption = 'tbMoveIDE'
         OnClick = tbMoveIDEClick
@@ -136,10 +136,11 @@ object MacroListView: TMacroListView
     end
   end
   object ButtonPanel1: TButtonPanel
-    Left = 6
-    Height = 42
-    Top = 439
-    Width = 443
+    Left = 8
+    Height = 38
+    Top = 563
+    Width = 553
+    BorderSpacing.Around = 8
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
     HelpButton.Name = 'HelpButton'
@@ -155,17 +156,17 @@ object MacroListView: TMacroListView
   object pnlButtons: TPanel
     AnchorSideTop.Control = Panel1
     AnchorSideRight.Side = asrBottom
-    Left = 345
-    Height = 307
-    Top = 22
-    Width = 110
+    Left = 451
+    Height = 312
+    Top = 28
+    Width = 118
     Anchors = [akTop, akRight]
     AutoSize = True
-    BorderSpacing.Top = 16
+    BorderSpacing.Top = 20
     BevelOuter = bvNone
-    ClientHeight = 307
-    ClientWidth = 110
-    Constraints.MinHeight = 250
+    ClientHeight = 312
+    ClientWidth = 118
+    Constraints.MinHeight = 312
     TabOrder = 1
     object PanelRepeat: TPanel
       AnchorSideLeft.Control = pnlButtons
@@ -173,20 +174,20 @@ object MacroListView: TMacroListView
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 61
-      Top = 243
-      Width = 98
+      Left = 8
+      Height = 65
+      Top = 239
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 3
-      BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 3
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
+      BorderSpacing.Bottom = 4
       BevelOuter = bvNone
       BorderStyle = bsSingle
-      ClientHeight = 59
-      ClientWidth = 96
+      ClientHeight = 61
+      ClientWidth = 98
       TabOrder = 0
       object edRepeat: TSpinEdit
         AnchorSideLeft.Control = PanelRepeat
@@ -194,15 +195,15 @@ object MacroListView: TMacroListView
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Control = PanelRepeat
         AnchorSideRight.Side = asrBottom
-        Left = 3
-        Height = 29
-        Top = 27
+        Left = 4
+        Height = 28
+        Top = 29
         Width = 90
         Anchors = [akTop, akLeft, akRight]
-        BorderSpacing.Left = 3
-        BorderSpacing.Top = 3
-        BorderSpacing.Right = 3
-        BorderSpacing.Bottom = 3
+        BorderSpacing.Left = 4
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 4
+        BorderSpacing.Bottom = 4
         MaxValue = 999
         MinValue = 1
         TabOrder = 0
@@ -213,14 +214,14 @@ object MacroListView: TMacroListView
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Control = PanelRepeat
         AnchorSideRight.Side = asrBottom
-        Left = 3
-        Height = 21
-        Top = 3
+        Left = 4
+        Height = 24
+        Top = 1
         Width = 90
         Anchors = [akLeft, akRight]
-        BorderSpacing.Left = 3
-        BorderSpacing.Right = 3
-        BorderSpacing.Bottom = 3
+        BorderSpacing.Left = 4
+        BorderSpacing.Right = 4
+        BorderSpacing.Bottom = 4
         Caption = 'chkRepeat'
         TabOrder = 1
       end
@@ -231,16 +232,16 @@ object MacroListView: TMacroListView
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 33
-      Top = 207
-      Width = 98
+      Left = 8
+      Height = 30
+      Top = 205
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 12
-      BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 3
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 15
+      BorderSpacing.Right = 8
+      BorderSpacing.Bottom = 4
       Caption = 'btnPlay'
       OnClick = btnPlayClick
       TabOrder = 1
@@ -252,15 +253,15 @@ object MacroListView: TMacroListView
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 33
-      Top = 162
-      Width = 98
+      Left = 8
+      Height = 30
+      Top = 160
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'btnDelete'
       OnClick = btnDeleteClick
       TabOrder = 2
@@ -272,15 +273,15 @@ object MacroListView: TMacroListView
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 33
-      Top = 123
-      Width = 98
+      Left = 8
+      Height = 30
+      Top = 122
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'btnEdit'
       OnClick = btnEditClick
       TabOrder = 3
@@ -292,15 +293,15 @@ object MacroListView: TMacroListView
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 33
+      Left = 8
+      Height = 30
       Top = 84
-      Width = 98
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'btnSetKeys'
       OnClick = btnSetKeysClick
       TabOrder = 4
@@ -312,15 +313,15 @@ object MacroListView: TMacroListView
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 33
-      Top = 45
-      Width = 98
+      Left = 8
+      Height = 30
+      Top = 46
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'btnRename'
       OnClick = btnRenameClick
       TabOrder = 5
@@ -331,15 +332,15 @@ object MacroListView: TMacroListView
       AnchorSideRight.Control = pnlButtons
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 6
-      Height = 33
-      Top = 6
-      Width = 98
+      Left = 8
+      Height = 30
+      Top = 8
+      Width = 102
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
+      BorderSpacing.Left = 8
+      BorderSpacing.Top = 8
+      BorderSpacing.Right = 8
       Caption = 'btnSelect'
       OnClick = btnSelectClick
       TabOrder = 6
@@ -348,14 +349,14 @@ object MacroListView: TMacroListView
   object PanelWarnings: TPanel
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = ButtonPanel1
-    Left = 6
-    Height = 22
-    Top = 411
-    Width = 443
+    Left = 8
+    Height = 28
+    Top = 527
+    Width = 553
     Anchors = [akLeft, akRight, akBottom]
     BevelOuter = bvNone
-    ClientHeight = 22
-    ClientWidth = 443
+    ClientHeight = 28
+    ClientWidth = 553
     TabOrder = 3
     Visible = False
     object LabelWarning: TLabel
@@ -363,11 +364,11 @@ object MacroListView: TMacroListView
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = BtnWarnClose
       Left = 0
-      Height = 19
-      Top = 2
-      Width = 412
+      Height = 20
+      Top = 4
+      Width = 515
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Right = 3
+      BorderSpacing.Right = 4
       Caption = 'LabelWarning'
       Font.Color = clRed
       ParentFont = False
@@ -378,10 +379,10 @@ object MacroListView: TMacroListView
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = PanelWarnings
       AnchorSideRight.Side = asrBottom
-      Left = 415
-      Height = 22
+      Left = 519
+      Height = 28
       Top = 0
-      Width = 26
+      Width = 32
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 2
       OnClick = BtnWarnCloseClick
@@ -392,27 +393,28 @@ object MacroListView: TMacroListView
     AnchorSideRight.Control = pnlButtons
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = PanelWarnings
-    Left = 6
-    Height = 56
-    Top = 355
-    Width = 449
+    Left = 8
+    Height = 59
+    Top = 468
+    Width = 553
     Anchors = [akLeft, akRight, akBottom]
     AutoSize = True
-    BorderSpacing.Top = 3
+    BorderSpacing.Top = 4
+    BorderSpacing.Right = 8
     Caption = 'gbAddMacro'
-    ClientHeight = 36
-    ClientWidth = 447
+    ClientHeight = 34
+    ClientWidth = 549
     TabOrder = 4
     object btnRecord: TBitBtn
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Side = asrBottom
-      Left = 6
-      Height = 33
+      Left = 8
+      Height = 30
       Top = 0
-      Width = 76
+      Width = 95
       AutoSize = True
-      BorderSpacing.Left = 6
-      BorderSpacing.Bottom = 3
+      BorderSpacing.Left = 8
+      BorderSpacing.Bottom = 4
       Caption = 'btnRecord'
       OnClick = btnRecordClick
       TabOrder = 0
@@ -423,36 +425,37 @@ object MacroListView: TMacroListView
       AnchorSideTop.Control = btnRecord
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 88
-      Height = 33
+      Left = 111
+      Height = 30
       Top = 0
-      Width = 104
+      Width = 126
       AutoSize = True
-      BorderSpacing.Left = 6
+      BorderSpacing.Left = 8
       Caption = 'btnRecordStop'
       OnClick = btnRecordStopClick
       TabOrder = 1
     end
     object btnAddEditNew: TBitBtn
-      AnchorSideLeft.Control = btnRecordStop
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = btnRecordStop
+      AnchorSideRight.Control = gbAddMacro
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 219
-      Height = 33
+      Left = 409
+      Height = 30
       Top = 0
-      Width = 109
+      Width = 132
+      Anchors = [akTop, akRight]
       AutoSize = True
-      BorderSpacing.Left = 27
+      BorderSpacing.Right = 8
       Caption = 'btnAddEditNew'
       OnClick = btnAddEditNewClick
       TabOrder = 2
     end
   end
   object PopupMenu1: TPopupMenu
-    Left = 144
-    Top = 72
+    Left = 180
+    Top = 90
     object mnExport: TMenuItem
       Caption = 'New Item1'
       OnClick = mnExportClick
@@ -466,14 +469,14 @@ object MacroListView: TMacroListView
     DefaultExt = '.xml'
     Filter = 'xml|*.xml|*|*'
     Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
-    Left = 24
-    Top = 56
+    Left = 30
+    Top = 70
   end
   object OpenDialog1: TOpenDialog
     DefaultExt = '.xml'
     Filter = 'xml|*.xml|*|*'
     Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
-    Left = 88
-    Top = 64
+    Left = 110
+    Top = 80
   end
 end