paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 15:09:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: localized options caption and settings file related error messages

Browse Source 
git-svn-id: trunk@23977 -
This commit is contained in:
maxim 2010-03-13 17:54:34 +00:00
parent 110e7b7c88
commit e915927961
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas
View File

@ -5,6 +5,14 @@ unit jcfuiconsts;
interface
resourcestring
//Settings caption and error messages
lisJCFFormatSettings = 'JCF Format Settings';
lisTheSettingsFileDoesNotExist = 'The settings file "%s" does not exist.%s'+
'The formatter will work better if it is configured to use a valid settings file';
lisErrorWritingSettingsFileReadOnly = 'Error writing settings file: %s is read only';
lisErrorWritingSettingsException = 'Error writing settings file %s:%s%s';
lisNoSettingsFound = 'No settings found';
//Format File settings tab
lisFrFilesFileIsWritable = 'File is writable';
lisFrFilesFormatFileIs = 'Format file is %s';

19
components/jcf2/Settings/JcfSettings.pas
View File

@ -173,7 +173,8 @@ uses
{ local }
JcfStringUtils,
JcfSetBase,
JcfRegistrySettings;
JcfRegistrySettings,
jcfuiconsts;
constructor TFormatSettings.Create(const pbReadRegFile: boolean);
@ -243,7 +244,7 @@ end;
class function TFormatSettings.GetGroupCaption: String;
begin
Result := 'JCF Format Settings';
Result := lisJCFFormatSettings;
end;
class function TFormatSettings.GetInstance: TAbstractIDEOptions;
@ -303,8 +304,7 @@ begin
begin
if pbMustExist then
begin
MessageDlg('The settings file "' + psFileName + '" does not exist.' + NativeLineBreak +
'The formatter will work better if it is configured to use a valid settings file',
MessageDlg(Format(lisTheSettingsFileDoesNotExist, [psFileName, NativeLineBreak]),
mtError, [mbOK], 0);
end;
end;
@ -347,9 +347,7 @@ begin
begin
{ fail quietly? }
if lcReg.FormatFileWriteOption = eAlwaysWrite then
MessageDlg('Error writing settings file: ' +
lcReg.FormatConfigFileName + ' is read only', mtError, [mbOK], 0);
MessageDlg(Format(lisErrorWritingSettingsFileReadOnly, [lcReg.FormatConfigFileName]), mtError, [mbOK], 0);
exit;
end;
@ -373,9 +371,8 @@ begin
begin
if lcReg.FormatFileWriteOption = eAlwaysWrite then
begin
MessageDlg('Error writing settings file ' +
GetRegSettings.FormatConfigFileName + NativeLineBreak + ' :' +
E.Message, mtError, [mbOK], 0);
MessageDlg(Format(lisErrorWritingSettingsException, [GetRegSettings.FormatConfigFileName, NativeLineBreak, E.Message]),
mtError, [mbOK], 0);
end;
end;
end;
@ -461,7 +458,7 @@ begin
lcAllSettings := pcStream.ExtractSection(CODEFORMAT_SETTINGS_SECTION);
if lcAllSettings = nil then
begin
ShowMessage('No settings found');
ShowMessage(lisNoSettingsFound);
exit;
end;