Browse Source

* patch by Marģers: fix wrong button caption in Options -> Save As dialog, resolves #34533

git-svn-id: trunk@40743 -
florian 6 years ago
parent
commit
e74a5c89b0
2 changed files with 2 additions and 2 deletions
  1. 1 1
      packages/ide/fpide.pas
  2. 1 1
      packages/ide/fpmopts.inc

+ 1 - 1
packages/ide/fpide.pas

@@ -681,7 +681,7 @@ resourcestring  menu_local_gotosource = '~G~oto source';
                 msg_errorsavingconfigfile = 'Error saving config file.';
                 msg_errorsavingconfigfile = 'Error saving config file.';
 
 
                 {Save options dialog.}
                 {Save options dialog.}
-                dialog_saveoptions = 'Save Options';
+                dialog_saveoptions = 'Save Options As';
                 dialog_ini_filename = 'Name of INI file';
                 dialog_ini_filename = 'Name of INI file';
 
 
                 {Window list dialog.}
                 {Window list dialog.}

+ 1 - 1
packages/ide/fpmopts.inc

@@ -1588,7 +1588,7 @@ var D: PFileDialog;
     FileName: string;
     FileName: string;
     CanWrite: boolean;
     CanWrite: boolean;
 begin
 begin
-  New(D, Init('*'+ExtOf(INIFileName),dialog_saveoptions,dialog_ini_filename,fdOpenButton,hidSaveIniFile));
+  New(D, Init('*'+ExtOf(INIFileName),dialog_saveoptions,dialog_ini_filename,fdOkButton,hidSaveIniFile));
   D^.HelpCtx:=hcSaveAsINI;
   D^.HelpCtx:=hcSaveAsINI;
   if Desktop^.ExecView(D)<>cmCancel then
   if Desktop^.ExecView(D)<>cmCancel then
     begin
     begin