paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: options: save desktop settings: append default extension lds, bug #13934

Browse Source 
git-svn-id: trunk@20554 -
This commit is contained in:
mattias 2009-06-09 16:49:42 +00:00
parent 02fbb36db5
commit 1bfc14e70e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/desktop_options.pas
View File

@ -240,6 +240,7 @@ procedure TDesktopOptionsFrame.SaveDesktopSettingsToFileButtonClick(Sender: TObj
var
AnEnvironmentOptions: TEnvironmentOptions;
SaveDialog: TSaveDialog;
AFilename: String;
begin
//debugln('TEnvironmentOptionsDialog.SaveDesktopSettingsToFileButtonClick A');
SaveDialog := TSaveDialog.Create(nil);
@ -251,9 +252,12 @@ begin
+'|'+dlgAllFiles+' ('+GetAllFilesMask+')|' + GetAllFilesMask;
if SaveDialog.Execute then
begin
AFilename:=SaveDialog.Filename;
if ExtractFileExt(AFilename)='' then
AFilename:=AFilename+'.lds';
AnEnvironmentOptions := TEnvironmentOptions.Create;
try
AnEnvironmentOptions.Filename := SaveDialog.Filename;
AnEnvironmentOptions.Filename := AFilename;
DoSaveSettings(AnEnvironmentOptions);
AnEnvironmentOptions.Save(true);
finally