paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 15:32:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Filename filters for External Tools dialog Export/Import. Issue #24350, patch from Cyrax

Browse Source 
git-svn-id: trunk@41008 -
This commit is contained in:
juha 2013-05-02 22:13:57 +00:00
parent 77326c8e80
commit fc64e5affe
2 changed files with 24 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/exttooldialog.lfm
View File

@ -12,7 +12,7 @@ object ExternalToolDialog: TExternalToolDialog
LCLVersion = '1.1'
object ToolBar: TToolBar
Left = 0
Height = 94
Height = 48
Top = 0
Width = 451
AutoSize = True
@ -24,28 +24,28 @@ object ExternalToolDialog: TExternalToolDialog
ShowHint = True
TabOrder = 0
object MoveDownButton: TToolButton
Left = 1
Top = 48
Left = 281
Top = 2
Caption = 'MoveDownButton'
ImageIndex = 4
OnClick = MoveDownButtonClick
end
object MoveUpButton: TToolButton
Left = 252
Left = 202
Top = 2
Caption = 'MoveUpButton'
ImageIndex = 3
OnClick = MoveUpButtonClick
end
object EditButton: TToolButton
Left = 173
Left = 139
Top = 2
Caption = 'EditButton'
ImageIndex = 2
OnClick = EditButtonClick
end
object RemoveButton: TToolButton
Left = 75
Left = 60
Top = 2
Caption = 'RemoveButton'
ImageIndex = 1
@ -59,30 +59,30 @@ object ExternalToolDialog: TExternalToolDialog
OnClick = AddButtonClick
end
object tbSeparator: TToolButton
Left = 247
Left = 197
Top = 2
Width = 5
Caption = 'tbSeparator'
Style = tbsDivider
end
object tbSeparator2: TToolButton
Left = 117
Top = 48
Left = 374
Top = 2
Width = 5
Caption = 'tbSeparator2'
Style = tbsDivider
end
object ExtraButton: TToolButton
Left = 122
Top = 48
Left = 379
Top = 2
Caption = 'ExtraButton'
DropdownMenu = PopupDropdownMenu
end
end
object ListBox: TListBox
Left = 0
Height = 215
Top = 94
Height = 261
Top = 48
Width = 451
Align = alClient
BorderSpacing.Bottom = 6
@ -127,11 +127,13 @@ object ExternalToolDialog: TExternalToolDialog
end
end
object SaveDialog1: TSaveDialog
Options = [ofPathMustExist, ofEnableSizing, ofViewDetail]
Filter = 'XML configuration file (*.xml)|*.xml|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 312
top = 40
end
object OpenDialog1: TOpenDialog
Filter = 'XML configuration file (*.xml)|*.xml|All files (*.*)|*.*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 384
top = 48

9
ide/exttooldialog.pas
View File

@ -640,9 +640,16 @@ end;
procedure TExternalToolDialog.MenuItemExportClick(Sender: TObject);
Var
FileConfig : TXMLOptionsStorage;
AFileName : String;
begin
If SaveDialog1.Execute Then Begin
FileConfig := TXMLOptionsStorage.Create(SaveDialog1.FileName, False);
AFileName := SaveDialog1.FileName;
Case SaveDialog1.FilterIndex Of
1 : Begin
AFileName := ChangeFileExt(AFileName, '.xml');
end;
end;
FileConfig := TXMLOptionsStorage.Create(AFileName, False);
fExtToolList.Save(FileConfig);
FileConfig.WriteToDisk;
FreeAndNil(FileConfig);