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

JCF2: localized Warnings tab

Browse Source 
git-svn-id: trunk@24374 -
This commit is contained in:
maxim 2010-04-02 22:20:02 +00:00
parent 78e034b7c7
commit ddaf9ff104
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -194,6 +194,12 @@ resourcestring
lisCommentsRemoveEmptySlashComments = 'Remove empty ''//'' comments'; lisCommentsRemoveEmptySlashComments = 'Remove empty ''//'' comments';
lisCommentsRemoveEmptyCurlyBracesComments = 'Remove empty ''{ }'' comments'; lisCommentsRemoveEmptyCurlyBracesComments = 'Remove empty ''{ }'' comments';
//Warnings tab
lisWarningsWarnings = 'Warnings';
lisWarningsWarningsOn = '&Warnings On';
lisWarningsWarnAboutUnusedParameters = 'Warn about &unused parameters';
lisWarningsIgnoreUnusedParametersNamed = '&Ignore unused parameters named:';
implementation implementation
end. end.

7
components/jcf2/Ui/Settings/frWarnings.pas
View File

@ -60,7 +60,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
JcfHelp, JcfSettings; JcfHelp, JcfSettings, jcfuiconsts;
constructor TfWarnings.Create(AOwner: TComponent); constructor TfWarnings.Create(AOwner: TComponent);
begin begin
@ -70,12 +70,15 @@ end;
function TfWarnings.GetTitle: String; function TfWarnings.GetTitle: String;
begin begin
Result := 'Warnings'; Result := lisWarningsWarnings;
end; end;
procedure TfWarnings.Setup(ADialog: TAbstractOptionsEditorDialog); procedure TfWarnings.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
inherited Setup(ADialog); inherited Setup(ADialog);
cbWarningsOn.Caption := lisWarningsWarningsOn;
cbWarnUnusedParams.Caption := lisWarningsWarnAboutUnusedParameters;
Label1.Caption := lisWarningsIgnoreUnusedParametersNamed;
end; end;
procedure TfWarnings.ReadSettings(AOptions: TAbstractIDEOptions); procedure TfWarnings.ReadSettings(AOptions: TAbstractIDEOptions);