IDE: new images for 'close tabs' toolbuttons in search results dialog, patch by FTurtle, bug #36908

git-svn-id: trunk@62961 -

ide/searchresultview.lfm

@@ -13,7 +13,6 @@ object SearchResultsView: TSearchResultsView
   OnClose = FormClose
   OnCreate = Form1Create
   OnKeyDown = FormKeyDown
-  LCLVersion = '2.1.0.0'
   object ResultsNoteBook: TPageControl
     Left = 0
     Height = 249
@@ -70,7 +69,7 @@ object SearchResultsView: TSearchResultsView
       Left = 53
       Height = 23
       Top = 2
-      Width = 542
+      Width = 550
       ButtonWidth = 23
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Left = 2
@@ -83,10 +82,10 @@ object SearchResultsView: TSearchResultsView
       OnChange = SearchInListChange
     end
     object CloseTabs: TToolBar
-      Left = 600
+      Left = 616
       Height = 22
       Top = 3
-      Width = 118
+      Width = 102
       Align = alNone
       Anchors = [akTop, akRight, akBottom]
       BorderSpacing.Around = 2
@@ -97,50 +96,36 @@ object SearchResultsView: TSearchResultsView
       TabOrder = 2
       Wrapable = False
       object tbbCloseLeft: TToolButton
-        AnchorSideRight.Control = ToolButton1
         Left = 2
         Top = 0
         Action = actCloseLeft
       end
       object tbbCloseRight: TToolButton
-        Left = 64
+        Left = 48
         Top = 0
         Action = actCloseRight
       end
       object tbbCloseOthers: TToolButton
-        Left = 33
+        Left = 25
         Top = 0
         Action = actCloseOthers
       end
-      object ToolButton1: TToolButton
-        Left = 25
-        Height = 22
-        Top = 0
-        Style = tbsSeparator
-      end
       object ToolButton3: TToolButton
-        Left = 87
+        Left = 71
         Height = 22
         Top = 0
         Style = tbsSeparator
       end
       object tbbCloseAll: TToolButton
-        Left = 95
+        Left = 79
         Top = 0
         Action = actCloseAll
       end
-      object ToolButton2: TToolButton
-        Left = 56
-        Height = 22
-        Top = 0
-        Caption = 'ToolButton2'
-        Style = tbsSeparator
-      end
     end
   end
   object popList: TPopupMenu
-    Left = 129
-    Top = 48
+    left = 129
+    top = 48
     object mniCopyItem: TMenuItem
       Caption = 'Copy Item'
       OnClick = mniCopyItemClick
@@ -166,8 +151,8 @@ object SearchResultsView: TSearchResultsView
     end
   end
   object ActionList: TActionList
-    Left = 32
-    Top = 48
+    left = 32
+    top = 48
     object actClosePage: TAction
       ImageIndex = 1
       OnExecute = ClosePageButtonClick

ide/searchresultview.pp

@@ -159,10 +159,8 @@ type
     ToolBar: TToolBar;
     SearchAgainButton: TToolButton;
     CloseTabs: TToolBar;
-    ToolButton1: TToolButton;
     ClosePageButton: TToolButton;
     SearchInListEdit: TTreeFilterEdit;
-    ToolButton2: TToolButton;
     ToolButton3: TToolButton;
     tbbCloseAll: TToolButton;
     procedure actNextPageExecute(Sender: TObject);

images/copyright.txt

@@ -33,6 +33,10 @@ actions directory:
 	previous_word.png
 	restore_default.png
 	restore_defaults.png
+	tab_close_All.png
+	tab_close_L.png
+	tab_close_LR.png
+	tab_close_R.png
 
 debugger directory:
 	debugger_call_stack.png