paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-07 22:12:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: localized Obfuscate Settings tab

Browse Source 
git-svn-id: trunk@23907 -
This commit is contained in:
maxim 2010-03-10 01:10:11 +00:00
parent f778e14f09
commit d2cee7af25
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,6 +15,19 @@ resourcestring
lisFrFilesDescription = 'Description:'; lisFrFilesDescription = 'Description:';
lisFrFilesFormatFile = 'Format File'; lisFrFilesFormatFile = 'Format File';
//Obfuscate settings tab
lisObfsObfuscate = 'Obfuscate';
lisObfsObfuscateMode = '&Obfuscate mode';
lisObfsObfuscateWordCaps = 'Obfuscate word &caps';
lisObfsAllCapitals = 'ALL CAPITALS';
lisObfsAllLowerCase = 'all lowercase';
lisObfsMixedCase = 'Mixed Case';
lisObfsLeaveAlone = 'Leave alone';
lisObfsRemoveWhiteSpace = 'Remove &white space';
lisObfsRemoveComments = 'Remove c&omments';
lisObfsRemoveIndent = 'Remove &indent';
lisObfsRebreakLines = 'Rebreak &lines';
implementation implementation
end. end.

17
components/jcf2/Ui/Settings/frObfuscateSettings.pas
View File

@ -60,7 +60,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
JcfSettings, SettingsTypes, JcfHelp, SetObfuscate; JcfSettings, SettingsTypes, JcfHelp, SetObfuscate, jcfuiconsts;
{ TfObfuscateSettings } { TfObfuscateSettings }
@ -72,12 +72,23 @@ end;
function TfObfuscateSettings.GetTitle: String; function TfObfuscateSettings.GetTitle: String;
begin begin
Result := 'Obfuscate'; Result := lisObfsObfuscate;
end; end;
procedure TfObfuscateSettings.Setup(ADialog: TAbstractOptionsEditorDialog); procedure TfObfuscateSettings.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
// nothing cbEnabled.Caption := lisObfsObfuscateMode;
rgObfuscateCaps.Caption := lisObfsObfuscateWordCaps;
rgObfuscateCaps.Items[0] := lisObfsAllCapitals;
rgObfuscateCaps.Items[1] := lisObfsAllLowerCase;
rgObfuscateCaps.Items[2] := lisObfsMixedCase;
rgObfuscateCaps.Items[3] := lisObfsLeaveAlone;
cbRemoveWhiteSpace.Caption := lisObfsRemoveWhiteSpace;
cbRemoveComments.Caption := lisObfsRemoveComments;
cbRemoveIndent.Caption := lisObfsRemoveIndent;
cbRebreak.Caption := lisObfsRebreakLines;
end; end;
procedure TfObfuscateSettings.ReadSettings(AOptions: TAbstractIDEOptions); procedure TfObfuscateSettings.ReadSettings(AOptions: TAbstractIDEOptions);