Jedi code format: add a form to edit JCF global settings.

This commit is contained in:
DomingoGP 2024-01-28 12:05:34 +01:00
parent 719f66bebf
commit 2721f3c588
21 changed files with 2600 additions and 9 deletions

View File

@ -275,6 +275,10 @@
<Filename Value="jcfuiconsts.pas"/>
<UnitName Value="JcfUIConsts"/>
</Item>
<Item>
<Filename Value="..\..\Ui\Settings\fRegistrySettings.pas"/>
<UnitName Value="fRegistrySettings"/>
</Item>
</Files>
<i18n>
<EnableI18N Value="True"/>

View File

@ -15,7 +15,8 @@ uses
frReservedCapsSettings, frAnyCapsSettings, frIdentifierCapsSettings,
frNotIdentifierCapsSettings, frUnitCaps, frReplace, frUses, frTransform,
frAsm, frPreProcessor, Diff, diffmerge, EditorConverter, Delay, JcfHelp,
JcfUiToolsGUI, fAbout, fJcfErrorDisplay, JcfUIConsts, LazarusPackageIntf;
JcfUiToolsGUI, fAbout, fJcfErrorDisplay, JcfUIConsts, fRegistrySettings,
LazarusPackageIntf;
implementation

View File

@ -45,7 +45,8 @@ uses
Menus, Dialogs, Controls,
// local
EditorConverter, FileConverter, Converter, ConvertTypes,
JcfUIConsts, JcfStringUtils, JcfSettings, fAbout, frFiles;
JcfUIConsts, JcfStringUtils, JcfSettings, fAbout, frFiles,
JcfRegistrySettings, fRegistrySettings;
type
@ -400,12 +401,9 @@ begin
end;
procedure TJcfIdeMain.DoRegistrySettings(Sender: TObject);
{var
var
lcAbout: TfmRegistrySettings;
}
begin
ShowMessage('unimplemented');
{ TODO: convert JCF registry settings (it contains some TJvXXX components atm)
if not GetRegSettings.HasRead then
GetRegSettings.ReadAll;
@ -415,7 +413,6 @@ begin
finally
lcAbout.Free;
end;
}
end;
procedure TJcfIdeMain.LogIDEMessage(const psFile, psMessage: string;

View File

@ -73,6 +73,7 @@ const
FORMAT_PROJECT_MENU_NAME = 'jcfAllFilesinProject';
FORMAT_OPEN_MENU_NAME = 'jcfAllOpenWindows';
FORMAT_SETTINGS_MENU_NAME = 'jcfFormatSettings';
FORMAT_REG_SETTINGS_MENU_NAME = 'jcfRegSettings';
FORMAT_ABOUT_MENU_NAME = 'jcfAbout';
FORMAT_CATEGORY_IDECMD_NAME = 'jcfFormat';
FORMAT_MENU_SECTION1 = 'jcfSection1';
@ -141,8 +142,8 @@ begin
// settings
SubSection := RegisterIDEMenuSection(fcMainMenu, FORMAT_MENU_SECTION1);
//RegisterIDEMenuCommand(SubSection, FORMAT_REG_SETTINGS_MENU_NAME, FORMAT_REG_SETTINGS_MENU,
// lcJCFIDE.DoRegistrySettings);
RegisterIDEMenuCommand(SubSection, FORMAT_REG_SETTINGS_MENU_NAME, FORMAT_REG_SETTINGS_MENU,
lcJCFIDE.DoRegistrySettings);
RegisterIDEMenuCommand(SubSection, FORMAT_SETTINGS_MENU_NAME, FORMAT_SETTINGS_MENU,
lcJCFIDE.DoFormatSettings);

View File

@ -11,6 +11,7 @@ resourcestring
FORMAT_PROJECT_MENU = '&All Files in Project';
FORMAT_OPEN_MENU = 'All &Open Windows';
FORMAT_SETTINGS_MENU = '&Format Settings ...';
FORMAT_REG_SETTINGS_MENU= 'Global Settings ...';
FORMAT_ABOUT_MENU = '&About ...';
FORMAT_CATEGORY_IDECMD = 'JEDI Code Format';
@ -330,6 +331,55 @@ resourcestring
lisErrorAct = 'Error';
lisWarnAct = 'Warn';
//Registry Settings
lisCnfCaption='JCF Global Settings';
// tabs
lisCnfTabGeneral='General';
lisCnfTabLogFile='Log file';
lisCnfTabExclusions='Exclusions';
//lisCnfDelphiIDE='Delphi IDE';
// tab general
lisHintApplicationDefault='Application Default: ';
lisCnfGenConvertSettingsFile='Convert settings file';
lisCnfGenWriteSettings='&Write settings file';
lisCnfGenAlways='Always';
lisCnfGenFail='Fail quietly';
lisCnfGenNever='Never';
lisCnfGenOnParseError='On parse error';
lisCnfGenShowParseTree='Show parse &tree during parse';
//lisCnfGenMru='MRU max items';
//lisCnfGenClearMru='Clear MRU';
//lisCnfGenCheckMultibyte='Check for &multibyte chars';
// tab Log File
lisCnfLogDetailLevel='Log file detail level';
lisCnfLogErrorsOnly='Errors only';
lisCnfLogFile='File';
lisCnfLogToken='Token';
lisCnfLogFileDir='Log file directory';
lisCnfLogTemp='Temp';
lisCnfLogApplication='Application';
lisCnfLogSpecified='Specified';
lisCnfLogSelectDir='Select specified directory';
lisCnfLogViewLog='View log after each run';
lisCnfLogTime='Log time taken to process';
lisCnfLogViewLogNow='View Log now';
lisCnfLogBackupFileExt='Backup file extension';
lisCnfLogOutputFileExt='Output file extension';
//tab Exclusions
lisCnfExcludeFiles='Individual files to exclude from batch processing:';
lisCnfExcludeDirs='Directories to exclude from batch processing:';
//tab Delphi Ide
//lisCnfIdeIntegration='&Editor Integration';
//lisCnfIdeFormatAfterLoad='Format after &Load';
//lisCnfIdeFormatBeforeSave='Format before &Save';
lisCnfOk='Ok';
lisCnfCancel='Cancel';
implementation
end.

View File

@ -44,6 +44,10 @@ msgctxt "jcfuiconsts.format_project_menu"
msgid "&All Files in Project"
msgstr "&Všechny soubory v Projektu"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -396,6 +400,126 @@ msgstr ""
msgid "Run &only these"
msgstr "Spustit pouze tyto"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Vždy"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Nikdy"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr ""
@ -497,6 +621,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr ""
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -43,6 +43,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "&Alle Dateien im Projekt"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -396,6 +400,126 @@ msgstr "Einmalige Einstellung"
msgid "Run &only these"
msgstr "Nur die ausführen"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Immer"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Nie"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Leere »{}«-Kommentare löschen"
@ -498,6 +622,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr "Version, die die Datei geschrieben hat:"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -43,6 +43,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Todos los Archivos en el &Proyecto"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -394,6 +398,124 @@ msgstr ""
msgid "Run &only these"
msgstr ""
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr ""
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr ""
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr ""
@ -495,6 +617,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr ""
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -45,6 +45,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Tous les fichiers d&ans le projet"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr "Exécuter une seule fois"
msgid "Run &only these"
msgstr "N'exécuter que ceux-ci"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Toujours"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Jamais"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Supprimer les commentaires vides \"{ }\""
@ -499,6 +623,10 @@ msgstr "Le fichier de paramètres est :"
msgid "Version that wrote this file: %s"
msgstr "Version d'écriture de ce fichier : %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -45,6 +45,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Minden fájl a projektben"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr "Futtatáskor"
msgid "Run &only these"
msgstr "Csak ezek fussanak"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Mindig"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Soha"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Üres '{ }' megjegyzések eltávolítása"
@ -500,6 +624,10 @@ msgstr "A beállítási fájl:"
msgid "Version that wrote this file: %s"
msgstr "A fájlt író változat: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -46,6 +46,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Tutti i file nel &progetto"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -398,6 +402,126 @@ msgstr "Esegui solo una volta"
msgid "Run &only these"
msgstr "Esegui &solo quelli"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Sempre"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Mai"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Togli commenti '{ }' vuoti"
@ -500,6 +624,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr "File creato dalla versione %s di questo programma"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -45,6 +45,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "プロジェクト内すべてのファイル(&A)"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr "整形済みコメント"
msgid "Run &only these"
msgstr "コメントのみ埋め込む(&o)"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "常に行う"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "なくす"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "空の '{ }' コメントを除去する"
@ -499,6 +623,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr "このファイルが書かれたバージョン:%s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -45,6 +45,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Visuose projekto &failuose"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr "Vykdyti tik kartą"
msgid "Run &only these"
msgstr "Vykdyti &tik šiuos"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Visada"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Niekada"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Šalinti tuščius „{}“ komentarus"
@ -499,6 +623,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr "Versija, kuria įrašutas šis failas: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -46,6 +46,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Wszystkie pliki projektu"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr ""
msgid "Run &only these"
msgstr ""
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Zawsze"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Nigdy"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr ""
@ -499,6 +623,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr ""
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -29,6 +29,10 @@ msgstr ""
msgid "&All Files in Project"
msgstr ""
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
msgid "&Format Settings ..."
msgstr ""
@ -378,6 +382,124 @@ msgstr ""
msgid "Run &only these"
msgstr ""
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr ""
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr ""
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr ""
@ -479,6 +601,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr ""
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -45,6 +45,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Todos os &Arquivos no Projeto"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr "Executar uma vez (offs)"
msgid "Run &only these"
msgstr "Executar a&penas estes"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Sempre"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Nunca"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Remover comentários vazios '{ }'"
@ -499,6 +623,10 @@ msgstr "Arquivo de configurações é:"
msgid "Version that wrote this file: %s"
msgstr "Versão que gravou este arquivo: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -43,6 +43,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Все файлы &проекта"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
msgid "&Format Settings ..."
msgstr "П&араметры форматирования ..."
@ -392,6 +396,126 @@ msgstr "Однократные операции"
msgid "Run &only these"
msgstr "Выполнять &только их"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Всегда"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Никогда"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Удалять пустые комментарии в фигурных скобках '{ }'"
@ -493,6 +617,10 @@ msgstr "Файл параметров:"
msgid "Version that wrote this file: %s"
msgstr "Файл записан версией: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr "Действие с несбалансированным комментарием"

View File

@ -48,6 +48,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "Всі &файли у проєкті"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -400,6 +404,126 @@ msgstr "Виконати одноразові"
msgid "Run &only these"
msgstr "Виконати &лише ці"
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "Завжди"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "Ніколи"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "Видалити порожні коментарі '{ }'"
@ -502,6 +626,10 @@ msgstr "Файл налаштувань є:"
msgid "Version that wrote this file: %s"
msgstr "Файл записаний версією: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -46,6 +46,10 @@ msgctxt "jcfideregister.format_project_menu"
msgid "&All Files in Project"
msgstr "项目中的所有文件(&A)"
#: jcfuiconsts.format_reg_settings_menu
msgid "Global Settings ..."
msgstr ""
#: jcfuiconsts.format_settings_menu
#, fuzzy
#| msgid "&Format Settings"
@ -397,6 +401,126 @@ msgstr ""
msgid "Run &only these"
msgstr ""
#: jcfuiconsts.liscnfcancel
msgid "Cancel"
msgstr ""
#: jcfuiconsts.liscnfcaption
msgid "JCF Global Settings"
msgstr ""
#: jcfuiconsts.liscnfexcludedirs
msgid "Directories to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfexcludefiles
msgid "Individual files to exclude from batch processing:"
msgstr ""
#: jcfuiconsts.liscnfgenalways
#, fuzzy
msgctxt "jcfuiconsts.liscnfgenalways"
msgid "Always"
msgstr "总是"
#: jcfuiconsts.liscnfgenconvertsettingsfile
msgid "Convert settings file"
msgstr ""
#: jcfuiconsts.liscnfgenfail
msgid "Fail quietly"
msgstr ""
#: jcfuiconsts.liscnfgennever
#, fuzzy
msgctxt "jcfuiconsts.liscnfgennever"
msgid "Never"
msgstr "从不"
#: jcfuiconsts.liscnfgenonparseerror
msgid "On parse error"
msgstr ""
#: jcfuiconsts.liscnfgenshowparsetree
msgid "Show parse &tree during parse"
msgstr ""
#: jcfuiconsts.liscnfgenwritesettings
msgid "&Write settings file"
msgstr ""
#: jcfuiconsts.liscnflogapplication
msgid "Application"
msgstr ""
#: jcfuiconsts.liscnflogbackupfileext
msgid "Backup file extension"
msgstr ""
#: jcfuiconsts.liscnflogdetaillevel
msgid "Log file detail level"
msgstr ""
#: jcfuiconsts.liscnflogerrorsonly
msgid "Errors only"
msgstr ""
#: jcfuiconsts.liscnflogfile
msgid "File"
msgstr ""
#: jcfuiconsts.liscnflogfiledir
msgid "Log file directory"
msgstr ""
#: jcfuiconsts.liscnflogoutputfileext
msgid "Output file extension"
msgstr ""
#: jcfuiconsts.liscnflogselectdir
msgid "Select specified directory"
msgstr ""
#: jcfuiconsts.liscnflogspecified
msgid "Specified"
msgstr ""
#: jcfuiconsts.liscnflogtemp
msgid "Temp"
msgstr ""
#: jcfuiconsts.liscnflogtime
msgid "Log time taken to process"
msgstr ""
#: jcfuiconsts.liscnflogtoken
msgid "Token"
msgstr ""
#: jcfuiconsts.liscnflogviewlog
msgid "View log after each run"
msgstr ""
#: jcfuiconsts.liscnflogviewlognow
msgid "View Log now"
msgstr ""
#: jcfuiconsts.liscnfok
msgid "Ok"
msgstr ""
#: jcfuiconsts.liscnftabexclusions
msgid "Exclusions"
msgstr ""
#: jcfuiconsts.liscnftabgeneral
msgid "General"
msgstr ""
#: jcfuiconsts.liscnftablogfile
msgid "Log file"
msgstr ""
#: jcfuiconsts.liscommentsremoveemptycurlybracescomments
msgid "Remove empty '{ }' comments"
msgstr "移除空的'{ }'注释"
@ -499,6 +623,10 @@ msgstr ""
msgid "Version that wrote this file: %s"
msgstr "写入这个文件的版本: %s"
#: jcfuiconsts.lishintapplicationdefault
msgid "Application Default: "
msgstr ""
#: jcfuiconsts.lisimbalancedcommentact
msgid "Imbalanced comment action"
msgstr ""

View File

@ -0,0 +1,396 @@
object fmRegistrySettings: TfmRegistrySettings
Left = 728
Height = 389
Top = 264
Width = 771
BorderStyle = bsDialog
Caption = 'JCF Global Settings'
ClientHeight = 389
ClientWidth = 771
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -15
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
OnResize = FormResize
object pgPages: TPageControl
Left = 0
Height = 334
Top = 0
Width = 771
ActivePage = tsGeneral
Align = alClient
Font.Color = clWindowText
Font.Height = -15
ParentFont = False
TabIndex = 0
TabOrder = 0
object tsGeneral: TTabSheet
Caption = '&General'
ClientHeight = 301
ClientWidth = 763
object sbFile: TSpeedButton
AnchorSideLeft.Control = eSettingsFile
AnchorSideLeft.Side = asrBottom
Left = 639
Height = 25
Top = 13
Width = 28
BorderSpacing.Around = 6
Caption = '...'
OnClick = sbFileClick
end
object Label1: TLabel
Left = 11
Height = 20
Top = 12
Width = 131
Caption = 'Convert settings file'
end
object Label2: TLabel
Left = 11
Height = 20
Top = 252
Width = 104
Caption = 'MRU max items'
Visible = False
end
object eSettingsFile: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
Left = 148
Height = 28
Top = 11
Width = 485
BorderSpacing.Around = 6
TabOrder = 0
OnKeyUp = eSettingsFileKeyUp
end
object btnClearMRU: TButton
AnchorSideLeft.Control = eMRUMaxItems
AnchorSideLeft.Side = asrBottom
Left = 184
Height = 25
Top = 250
Width = 92
BorderSpacing.Around = 6
Caption = 'Clear MRU'
TabOrder = 1
Visible = False
OnClick = btnClearMRUClick
end
object rgShowParseTree: TRadioGroup
Left = 11
Height = 92
Top = 139
Width = 370
AutoFill = True
Caption = 'Show parse &tree during parse'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 67
ClientWidth = 366
Items.Strings = (
'&Always'
'&On parse error'
'&Never'
)
ParentBackground = False
TabOrder = 2
end
object rgWriteSettingsFile: TRadioGroup
Left = 11
Height = 94
Top = 39
Width = 370
AutoFill = True
Caption = '&Write settings file'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 69
ClientWidth = 366
Items.Strings = (
'&Always'
'&Fail quietly'
'&Never'
)
ParentBackground = False
TabOrder = 3
end
object cbCheckMultibyteChars: TCheckBox
Left = 411
Height = 24
Top = 49
Width = 185
Caption = 'Check for &multibyte chars'
TabOrder = 4
Visible = False
end
object eMRUMaxItems: TSpinEdit
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
Left = 121
Height = 28
Top = 248
Width = 57
BorderSpacing.Around = 6
TabOrder = 5
Visible = False
end
end
object tsLogFile: TTabSheet
Caption = '&Log file'
ClientHeight = 301
ClientWidth = 763
ImageIndex = 1
object sbSpecifedDir: TSpeedButton
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
Left = 180
Height = 25
Top = 197
Width = 29
BorderSpacing.Around = 6
Caption = '...'
OnClick = sbSpecifedDirClick
end
object Label3: TLabel
Left = 7
Height = 20
Top = 199
Width = 167
Caption = 'Select specified directory'
end
object lblBackupFileExt: TLabel
Left = 306
Height = 20
Top = 20
Width = 140
Caption = 'Backup file extension'
end
object lblOutputFileExt: TLabel
Left = 306
Height = 20
Top = 49
Width = 138
Caption = 'Output file extension'
end
object rgLogLevel: TRadioGroup
Left = 7
Height = 90
Top = 7
Width = 281
AutoFill = True
Caption = 'Log file detail level'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 65
ClientWidth = 277
Items.Strings = (
'Errors only'
'File'
'Token'
)
ParentBackground = False
TabOrder = 0
end
object rgLogDir: TRadioGroup
Left = 7
Height = 97
Top = 99
Width = 746
AutoFill = True
Caption = 'Log file directory'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 72
ClientWidth = 742
Items.Strings = (
'Temp'
'Application'
'Specified'
)
ParentBackground = False
TabOrder = 3
end
object btnViewLog: TButton
Left = 392
Height = 25
Top = 255
Width = 110
Caption = 'View Log now'
TabOrder = 6
OnClick = btnViewLogClick
end
object cbViewLog: TCheckBox
Left = 7
Height = 24
Top = 231
Width = 171
Caption = 'View log after each run'
TabOrder = 4
end
object edtBackupExt: TEdit
AnchorSideLeft.Control = lblBackupFileExt
AnchorSideLeft.Side = asrBottom
Left = 452
Height = 28
Top = 15
Width = 55
BorderSpacing.Around = 6
MaxLength = 3
TabOrder = 1
end
object edtOutputExt: TEdit
AnchorSideLeft.Control = lblOutputFileExt
AnchorSideLeft.Side = asrBottom
Left = 450
Height = 28
Top = 49
Width = 55
BorderSpacing.Around = 6
MaxLength = 3
TabOrder = 2
end
object cbLogTime: TCheckBox
Left = 7
Height = 24
Top = 256
Width = 189
Caption = 'Log time taken to process'
TabOrder = 5
end
end
object tsExclusions: TTabSheet
Caption = '&Exclusions'
ClientHeight = 301
ClientWidth = 763
ImageIndex = 2
OnResize = tsExclusionsResize
object lblFilesCaption: TLabel
Left = 11
Height = 20
Top = 5
Width = 324
Caption = 'Individual files to exclude from batch processing:'
end
object lblDirsCaption: TLabel
Left = 11
Height = 20
Top = 148
Width = 300
Caption = 'Directories to exclude from batch processing:'
end
object mFiles: TMemo
Left = 11
Height = 114
Top = 25
Width = 742
TabOrder = 0
end
object mDirs: TMemo
Left = 11
Height = 119
Top = 168
Width = 742
TabOrder = 1
end
end
object tsIde: TTabSheet
Caption = 'IDE'
ClientHeight = 301
ClientWidth = 763
ImageIndex = 3
TabVisible = False
object cbEditorIntegration: TCheckBox
Left = 11
Height = 24
Top = 15
Width = 135
Caption = '&Editor Integration'
TabOrder = 0
end
object cbFormatBeforeSave: TCheckBox
Left = 11
Height = 24
Top = 59
Width = 148
Caption = 'Format before &Save'
TabOrder = 1
OnClick = cbFormatBeforeSaveClick
end
object cbFormatAfterLoad: TCheckBox
Left = 11
Height = 24
Top = 37
Width = 137
Caption = 'Format after &Load'
TabOrder = 2
OnClick = cbFormatAfterLoadClick
end
end
end
object pnlBottom: TPanel
Left = 0
Height = 55
Top = 334
Width = 771
Align = alBottom
BevelOuter = bvNone
ClientHeight = 55
ClientWidth = 771
ParentBackground = False
TabOrder = 1
object btnOK: TButton
Left = 300
Height = 25
Top = 8
Width = 92
Caption = 'Ok'
TabOrder = 0
OnClick = btnOKClick
end
object btnCancel: TButton
AnchorSideLeft.Control = btnOK
AnchorSideLeft.Side = asrBottom
Left = 404
Height = 25
Top = 8
Width = 92
BorderSpacing.Around = 12
Caption = 'Cancel'
TabOrder = 1
OnClick = btnCancelClick
end
end
object dlgOpen: TOpenDialog
DefaultExt = '.*.cfg'
Left = 608
Top = 256
end
object dlgSelectDirectory: TSelectDirectoryDialog
Left = 608
Top = 184
end
end

View File

@ -0,0 +1,354 @@
unit fRegistrySettings;
{ settings form for JCF notepad registy options }
{(*}
(*------------------------------------------------------------------------------
Delphi Code formatter source code
The Original Code is fRegistrySettings, released May 2003.
The Initial Developer of the Original Code is Anthony Steele.
Portions created by Anthony Steele are Copyright (C) 1999-2008 Anthony Steele.
All Rights Reserved.
Contributor(s): Anthony Steele.
The contents of this file are subject to the Mozilla Public License Version 1.1
(the "License"). you may not use this file except in compliance with the License.
You may obtain a copy of the License at http://www.mozilla.org/NPL/
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either express or implied.
See the License for the specific language governing rights and limitations
under the License.
Alternatively, the contents of this file may be used under the terms of
the GNU General Public License Version 2 or later (the "GPL")
See http://www.gnu.org/licenses/gpl.html
------------------------------------------------------------------------------*)
{*)}
{$I JcfGlobal.inc}
interface
uses
SysUtils, Classes, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin;
type
TfmRegistrySettings = class(TForm)
btnCancel: TButton;
btnOK: TButton;
dlgOpen: TOpenDialog;
pgPages: TPageControl;
dlgSelectDirectory: TSelectDirectoryDialog;
eMRUMaxItems: TSpinEdit;
tsGeneral: TTabSheet;
tsLogFile: TTabSheet;
eSettingsFile: TEdit;
sbFile: TSpeedButton;
Label1: TLabel;
btnClearMRU: TButton;
Label2: TLabel;
rgShowParseTree: TRadioGroup;
pnlBottom: TPanel;
sbSpecifedDir: TSpeedButton;
Label3: TLabel;
lblBackupFileExt: TLabel;
lblOutputFileExt: TLabel;
rgLogLevel: TRadioGroup;
rgLogDir: TRadioGroup;
btnViewLog: TButton;
cbViewLog: TCheckBox;
edtBackupExt: TEdit;
edtOutputExt: TEdit;
cbLogTime: TCheckBox;
tsExclusions: TTabSheet;
lblFilesCaption: TLabel;
lblDirsCaption: TLabel;
mFiles: TMemo;
mDirs: TMemo;
rgWriteSettingsFile: TRadioGroup;
cbCheckMultibyteChars: TCheckBox;
tsIde: TTabSheet;
cbEditorIntegration: TCheckBox;
cbFormatBeforeSave: TCheckBox;
cbFormatAfterLoad: TCheckBox;
procedure btnOKClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure btnClearMRUClick(Sender: TObject);
{$push}{$warn 5024 off}
procedure eSettingsFileKeyUp(Sender: TObject; var Key: word;
Shift: TShiftState);
{$pop}
procedure FormCreate(Sender: TObject);
procedure sbFileClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure sbSpecifedDirClick(Sender: TObject);
procedure btnViewLogClick(Sender: TObject);
procedure tsExclusionsResize(Sender: TObject);
procedure cbFormatAfterLoadClick(Sender: TObject);
procedure cbFormatBeforeSaveClick(Sender: TObject);
private
fsSpecifiedDirectory: string;
procedure ShowDirs;
procedure ReadSettings;
procedure WriteSettings;
public
procedure Execute;
end;
implementation
uses
LCLType, ConvertTypes, JcfRegistrySettings, JcfSettings, JcfUIConsts;
{$R *.lfm}
procedure TfmRegistrySettings.ReadSettings;
var
lcSet: TJCFRegistrySettings;
begin
lcSet := GetRegSettings;
Assert(lcSet <> nil);
{ general }
eSettingsFile.TextHint := lisHintApplicationDefault + lcSet.FormatConfigFileName;
if lcSet.FormatConfigNameSpecified then
eSettingsFile.Text := lcSet.FormatConfigFileName
else
eSettingsFile.Text := '';
rgWriteSettingsFile.ItemIndex := Ord(lcSet.FormatFileWriteOption);
eMRUMaxItems.Value := lcSet.MRUMaxItems;
rgShowParseTree.ItemIndex := Ord(lcSet.ShowParseTreeOption);
cbCheckMultibyteChars.Checked := lcSet.CheckMultiByteChars;
{ mru }
btnClearMRU.Enabled := GetRegSettings.CanClearMRU;
{ log }
rgLogLevel.ItemIndex := Ord(lcSet.LogLevel);
rgLogDir.ItemIndex := Ord(lcSet.LogPlace);
fsSpecifiedDirectory := lcSet.SpecifiedDirectory;
cbViewLog.Checked := lcSet.ViewLogAfterRun;
cbLogTime.Checked := lcSet.LogTime;
edtBackupExt.Text := lcSet.BackupExtension;
edtOutputExt.Text := lcSet.OutputExtension;
{ exclusions}
mFiles.Lines.Assign(lcSet.ExclusionsFiles);
mDirs.Lines.Assign(lcSet.ExclusionsDirs);
ShowDirs;
{ IDE }
cbEditorIntegration.Checked := lcSet.EditorIntegration;
cbFormatAfterLoad.Checked := lcSet.FormatAfterLoad;
cbFormatBeforeSave.Checked := lcSet.FormatBeforeSave;
end;
procedure TfmRegistrySettings.WriteSettings;
var
lcSet: TJCFRegistrySettings;
lsSettingsFile:string;
begin
lcSet := GetRegSettings;
Assert(lcSet <> nil);
lsSettingsFile:=TrimRight(eSettingsFile.Text);
if lcSet.FormatConfigFileName <> lsSettingsFile then
begin
lcSet.FormatConfigFileName := lsSettingsFile;
if lsSettingsFile <> '' then
FormattingSettings.ReadFromFile(lsSettingsFile, True);
end;
lcSet.FormatFileWriteOption := TFormatFileWriteOption(rgWriteSettingsFile.ItemIndex);
lcSet.MRUMaxItems := eMRUMaxItems.Value;
lcSet.ShowParseTreeOption := TShowParseTreeOption(rgShowParseTree.ItemIndex);
lcSet.CheckMultiByteChars := cbCheckMultibyteChars.Checked;
{ log files }
lcSet.LogLevel := TLogLevel(rgLogLevel.ItemIndex);
lcSet.LogPlace := TLogPlace(rgLogDir.ItemIndex);
lcSet.SpecifiedDirectory := fsSpecifiedDirectory;
lcSet.ViewLogAfterRun := cbViewLog.Checked;
lcSet.LogTime := cbLogTime.Checked;
lcSet.BackupExtension := edtBackupExt.Text;
lcSet.OutputExtension := edtOutputExt.Text;
{ exclusions }
lcSet.ExclusionsFiles.Assign(mFiles.Lines);
lcSet.ExclusionsDirs.Assign(mDirs.Lines);
{ IDE }
lcSet.EditorIntegration := cbEditorIntegration.Checked;
lcSet.FormatAfterLoad := cbFormatAfterLoad.Checked;
lcSet.FormatBeforeSave := cbFormatBeforeSave.Checked;
lcSet.WriteAll;
end;
procedure TfmRegistrySettings.Execute;
begin
ReadSettings;
FormResize(nil);
pgPages.ActivePage := tsGeneral;
ShowModal;
end;
procedure TfmRegistrySettings.btnOKClick(Sender: TObject);
begin
WriteSettings;
Close;
end;
procedure TfmRegistrySettings.btnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TfmRegistrySettings.btnClearMRUClick(Sender: TObject);
begin
GetRegSettings.ClearMRU;
btnClearMRU.Enabled := False;
end;
{$push}{$warn 5024 off}
procedure TfmRegistrySettings.eSettingsFileKeyUp(Sender: TObject;
var Key: word; Shift: TShiftState);
begin
if Key = VK_RETURN then
sbFileClick(Sender);
end;
{$pop}
procedure TfmRegistrySettings.FormCreate(Sender: TObject);
begin
Caption := lisCnfCaption;
tsGeneral.Caption := lisCnfTabGeneral;
tsLogFile.Caption := lisCnfTabLogFile;
tsExclusions.Caption := lisCnfTabExclusions;
//tsIde.Caption := lisCnfDelphiIDE;
label1.Caption := lisCnfGenConvertSettingsFile;
rgWriteSettingsFile.Caption := lisCnfGenWriteSettings;
rgWriteSettingsFile.Items[0] := lisCnfGenAlways;
rgWriteSettingsFile.Items[1] := lisCnfGenFail;
rgWriteSettingsFile.Items[2] := lisCnfGenNever;
rgShowParseTree.Caption := lisCnfGenShowParseTree;
rgShowParseTree.Items[0] := lisCnfGenAlways;
rgShowParseTree.Items[1] := lisCnfGenOnParseError;
rgShowParseTree.Items[2] := lisCnfGenNever;
//label2.Caption := lisCnfGenMru;
//btnClearMRU.Caption := lisCnfGenClearMru;
//cbCheckMultibyteChars.Caption := lisCnfGenCheckMultibyte;
rgLogLevel.Caption := lisCnfLogDetailLevel;
rgLogLevel.Items[0] := lisCnfLogErrorsOnly;
rgLogLevel.Items[1] := lisCnfLogFile;
rgLogLevel.Items[2] := lisCnfLogToken;
rgLogDir.Caption := lisCnfLogFileDir;
rgLogDir.Items[0] := lisCnfLogTemp;
rgLogDir.Items[1] := lisCnfLogApplication;
rgLogDir.Items[2] := lisCnfLogSpecified;
Label3.Caption := lisCnfLogSelectDir;
cbViewLog.Caption := lisCnfLogViewLog;
cbLogTime.Caption := lisCnfLogTime;
btnViewLog.Caption := lisCnfLogViewLogNow;
lblBackupFileExt.Caption := lisCnfLogBackupFileExt;
lblOutputFileExt.Caption := lisCnfLogOutputFileExt;
lblFilesCaption.Caption := lisCnfExcludeFiles;
lblDirsCaption.Caption := lisCnfExcludeDirs;
//cbEditorIntegration.Caption := lisCnfIdeIntegration;
//cbFormatAfterLoad.Caption := lisCnfIdeFormatAfterLoad;
//cbFormatBeforeSave.Caption := lisCnfIdeFormatBeforeSave;
btnOK.Caption := lisCnfOk;
btnCancel.Caption := lisCnfCancel;
end;
procedure TfmRegistrySettings.sbFileClick(Sender: TObject);
begin
dlgOpen.Filter := CONFIG_FILE_FILTERS;
dlgOpen.InitialDir := ExtractFilePath(eSettingsFile.Text);
dlgOpen.FileName := ExtractFileName(eSettingsFile.Text);
if dlgOpen.Execute then
eSettingsFile.Text := dlgOpen.FileName;
end;
procedure TfmRegistrySettings.FormResize(Sender: TObject);
const
SPACING = 8;
SMALL_SPACE = 4;
begin
sbFile.Left := tsGeneral.ClientWidth - (sbFile.Width + SPACING);
eSettingsFile.Width := tsGeneral.ClientWidth -
(eSettingsFile.Left + sbFile.Width + SPACING + SMALL_SPACE);
rgLogDir.Width := tsGeneral.ClientWidth - (rgLogDir.Left + SPACING);
btnViewLog.Left := tsGeneral.ClientWidth - (btnViewLog.Width + SPACING);
end;
procedure TfmRegistrySettings.sbSpecifedDirClick(Sender: TObject);
begin
dlgSelectDirectory.InitialDir := fsSpecifiedDirectory;
if (dlgSelectDirectory.Execute) then
begin
fsSpecifiedDirectory := IncludeTrailingPathDelimiter(
dlgSelectDirectory.FileName);
ShowDirs;
end;
end;
procedure TfmRegistrySettings.btnViewLogClick(Sender: TObject);
begin
GetRegSettings.ViewLog;
end;
procedure TfmRegistrySettings.ShowDirs;
begin
rgLogDir.Items[0] := 'Temp: ' + GetTempDir;
rgLogDir.Items[1] := 'Application: ' + IncludeTrailingPathDelimiter(
ExtractFileDir(ParamStr(0)));
rgLogDir.Items[2] := 'Specified: ' + fsSpecifiedDirectory;
end;
procedure TfmRegistrySettings.tsExclusionsResize(Sender: TObject);
const
SPACING = 8;
begin
mFiles.Left := SPACING;
mFiles.Width := tsExclusions.ClientWidth - (SPACING * 2);
mDirs.Left := SPACING;
mDirs.Width := tsExclusions.ClientWidth - (SPACING * 2);
end;
procedure TfmRegistrySettings.cbFormatAfterLoadClick(Sender: TObject);
begin
if cbFormatAfterLoad.Checked then
cbEditorIntegration.Checked := True;
end;
procedure TfmRegistrySettings.cbFormatBeforeSaveClick(Sender: TObject);
begin
if cbFormatBeforeSave.Checked then
cbEditorIntegration.Checked := True;
end;
end.