pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Main Windows: allow the "Save" action to also work for XSD files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5274 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2016-10-20 11:54:13 +00:00
parent 69bca65173
commit e5fdfc382c
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
View File

@ -12,7 +12,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
OnShow = FormShow OnShow = FormShow
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '1.4.1.0' LCLVersion = '1.6.1.0'
object SB: TStatusBar object SB: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 20

6
wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
View File

@ -668,13 +668,15 @@ end;
procedure TfWstTypeLibraryEdit.actSaveXSDExecute(Sender : TObject); procedure TfWstTypeLibraryEdit.actSaveXSDExecute(Sender : TObject);
var var
oldFilter : string; oldFilter, locFileName : string;
begin begin
oldFilter := SD.Filter; oldFilter := SD.Filter;
SD.Filter := 'XSD files ( *.xsd )|*.xsd'; SD.Filter := 'XSD files ( *.xsd )|*.xsd';
try try
if SD.Execute() then begin if SD.Execute() then begin
SaveToFile(ChangeFileExt(SD.FileName,'.xsd')); locFileName := ChangeFileExt(SD.FileName,'.xsd');
SaveToFile(locFileName);
FCurrentFileName := locFileName;
end; end;
finally finally
SD.Filter := oldFilter; SD.Filter := oldFilter;