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

JCF2: localized Unit Names Capitalisation tab

Browse Source 
git-svn-id: trunk@24410 -
This commit is contained in:
maxim 2010-04-04 22:08:29 +00:00
parent fb8c073c4d
commit 3d5a555230
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -225,6 +225,11 @@ resourcestring
lisCapsNotIdentifiersSetCapitalisationOnTheseNonIdentifiers = 'Set capitalisa'
+'tion on these non-identifiers:';
//Unit Names Capitalisation tab
lisCapsUnitNamesUnitNames = 'Unit Names';
lisCapsUnitNamesSetCapitalisationOnTheseUnitNames = 'Set capitalisation on '
+'these unit names:';
implementation
end.

6
components/jcf2/Ui/Settings/frUnitCaps.pas
View File

@ -56,7 +56,7 @@ implementation
{$R *.lfm}
uses
JcfSettings;
JcfSettings, jcfuiconsts;
constructor TfrUnitNameCaps.Create(AOwner: TComponent);
begin
@ -66,12 +66,14 @@ end;
function TfrUnitNameCaps.GetTitle: String;
begin
Result := 'Unit Name';
Result := lisCapsUnitNamesUnitNames;
end;
procedure TfrUnitNameCaps.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
inherited Setup(ADialog);
cbEnableAnyWords.Caption := lisCapsAnyWordEnable;
Label1.Caption := lisCapsUnitNamesSetCapitalisationOnTheseUnitNames;
end;
procedure TfrUnitNameCaps.ReadSettings(AOptions: TAbstractIDEOptions);