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

JCF2: localized Transform tab

Browse Source 
git-svn-id: trunk@24545 -
This commit is contained in:
maxim 2010-04-09 22:22:59 +00:00
parent cc4e4f5b3b
commit 8e55520c9d
2 changed files with 47 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -242,6 +242,30 @@ resourcestring
lisUsesInsertIntoImplementation = 'Insert into Implementation';
lisUsesReplace = 'Replace';
//Transform tab
lisTransformTransform = 'Transform';
lisTransformAddOrRemoveBeginAndEndFromSingleStatements = 'Add or Remove &'
+'begin and end from single statements';
lisTransformAddBeginAndEndToSingleStatements = 'Add begin and end to single '
+'statements';
lisTransformLeaveBeginAndEndAsIs = 'Leave begin and end as is';
lisTransformRemoveBeginAndEndFromAroundSingleStatements = 'Remove begin and '
+'end from around single statements';
lisTransformPutSemicolonsAfterLastStatementInABlock = 'Put &semicolons '
+'after last statement in a block';
lisTransformSortUsesClauses = 'Sort &uses clauses';
lisTransformSortINterfaceUses = 'Sort i&nterface uses';
lisTransformSortIMplementationUses = 'Sort i&mplementation uses';
lisTransformSortProgramUses = 'Sort &program uses';
lisTransformBreakOnReturn = 'Break on &return';
lisTransformBreakOnComment = 'Break on &comment';
lisTransformOnlyWithNoComments = 'Only with no comments';
lisTransformUsesSortOrder = 'Uses sort &order';
lisTransformAlphabetic = 'Alphabetic';
lisTransformReverseAlphabetic = 'Reverse Alphabetic';
lisTransformShortestToLongest = 'Shortest to longest';
lisTransformLongestToShortest = 'Longest to shortest';
implementation
end.

26
components/jcf2/Ui/Settings/frTransform.pas
View File

@ -64,7 +64,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfSettings, JcfHelp, SetTransform;
SettingsTypes, JcfSettings, JcfHelp, SetTransform,jcfuiconsts;
constructor TfTransform.Create(AOwner: TComponent);
begin
@ -74,12 +74,32 @@ end;
function TfTransform.GetTitle: String;
begin
Result := 'Transform';
Result := lisTransformTransform;
end;
procedure TfTransform.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
rbBeginEnd.Caption := lisTransformAddOrRemoveBeginAndEndFromSingleStatements;
rbBeginEnd.Items[0] := lisTransformAddBeginAndEndToSingleStatements;
rbBeginEnd.Items[1] := lisTransformLeaveBeginAndEndAsIs;
rbBeginEnd.Items[2] := lisTransformRemoveBeginAndEndFromAroundSingleStatements;
cbBlockEndSemicolons.Caption :=
lisTransformPutSemicolonsAfterLastStatementInABlock;
bgSortUses.Caption := lisTransformSortUsesClauses;
cbSortInterfaceUses.Caption := lisTransformSortINterfaceUses;
cbSortImplementationUses.Caption := lisTransformSortIMplementationUses;
cbSortProgramUses.Caption := lisTransformSortProgramUses;
cbBreakUsesSortOnReturn.Caption := lisTransformBreakOnReturn;
cbBreakUsesSortOnComment.Caption := lisTransformBreakOnComment;
cbNoComments.Caption := lisTransformOnlyWithNoComments;
rgUsesSortOrder.Caption := lisTransformUsesSortOrder;
rgUsesSortOrder.Items[0] := lisTransformAlphabetic;
rgUsesSortOrder.Items[1] := lisTransformReverseAlphabetic;
rgUsesSortOrder.Items[2] := lisTransformShortestToLongest;
rgUsesSortOrder.Items[3] := lisTransformLongestToShortest;
end;
procedure TfTransform.ReadSettings(AOptions: TAbstractIDEOptions);