IDE: File filters in ExtTooldialog. Issue #28255, patch from Alexey Torgashin.

git-svn-id: trunk@49292 -

ide/exttooldialog.lfm

@@ -4,15 +4,15 @@ object ExternalToolDialog: TExternalToolDialog
   Top = 226
   Width = 451
   ActiveControl = ListBox
-  BorderStyle = bsSizeToolWin
+  BorderIcons = [biSystemMenu]
   Caption = 'ExternalToolDialog'
   ClientHeight = 347
   ClientWidth = 451
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.5'
   object ToolBar: TToolBar
     Left = 0
-    Height = 48
+    Height = 94
     Top = 0
     Width = 451
     AutoSize = True
@@ -24,28 +24,28 @@ object ExternalToolDialog: TExternalToolDialog
     ShowHint = True
     TabOrder = 0
     object MoveDownButton: TToolButton
-      Left = 281
+      Left = 312
       Top = 2
       Caption = 'MoveDownButton'
       ImageIndex = 4
       OnClick = MoveDownButtonClick
     end
     object MoveUpButton: TToolButton
-      Left = 202
+      Left = 223
       Top = 2
       Caption = 'MoveUpButton'
       ImageIndex = 3
       OnClick = MoveUpButtonClick
     end
     object EditButton: TToolButton
-      Left = 139
+      Left = 154
       Top = 2
       Caption = 'EditButton'
       ImageIndex = 2
       OnClick = EditButtonClick
     end
     object RemoveButton: TToolButton
-      Left = 60
+      Left = 67
       Top = 2
       Caption = 'RemoveButton'
       ImageIndex = 1
@@ -59,30 +59,32 @@ object ExternalToolDialog: TExternalToolDialog
       OnClick = AddButtonClick
     end
     object tbSeparator: TToolButton
-      Left = 197
+      Left = 218
+      Height = 46
       Top = 2
       Width = 5
       Caption = 'tbSeparator'
       Style = tbsDivider
     end
     object tbSeparator2: TToolButton
-      Left = 374
+      Left = 417
+      Height = 46
       Top = 2
       Width = 5
       Caption = 'tbSeparator2'
       Style = tbsDivider
     end
     object ExtraButton: TToolButton
-      Left = 379
-      Top = 2
+      Left = 1
+      Top = 48
       Caption = 'ExtraButton'
       DropdownMenu = PopupDropdownMenu
     end
   end
   object ListBox: TListBox
     Left = 0
-    Height = 261
-    Top = 48
+    Height = 215
+    Top = 94
     Width = 451
     Align = alClient
     BorderSpacing.Bottom = 6

ide/exttooldialog.pas

@@ -40,7 +40,7 @@ uses
   {$ENDIF}
   Classes, SysUtils, Process, LCLType, LCLProc, Controls, Forms,
   Buttons, StdCtrls, ComCtrls, Dialogs, ExtCtrls, ButtonPanel, Menus,
-  FileProcs,
+  FileProcs, FileUtil,
   IDEExternToolIntf, IDEImagesIntf, IDEDialogs, IDEHelpIntf, IDECommands,
   ProjectIntf,
   EnvironmentOpts,
@@ -156,6 +156,9 @@ begin
   MoveDownButton.ImageIndex := IDEImages.LoadImage(16, 'arrow_down');
 
   fExtToolList:=TExternalUserTools.Create;
+
+  OpenDialog1.Filter:= dlgFilterXML+'|*.xml|'+dlgFilterAll+'|'+GetAllFilesMask;
+  SaveDialog1.Filter:= OpenDialog1.Filter;
 end;
 
 destructor TExternalToolDialog.Destroy;