mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 01:39:18 +02:00
JCF2: localized Transform tab
git-svn-id: trunk@24545 -
This commit is contained in:
parent
cc4e4f5b3b
commit
8e55520c9d
@ -242,6 +242,30 @@ resourcestring
|
|||||||
lisUsesInsertIntoImplementation = 'Insert into Implementation';
|
lisUsesInsertIntoImplementation = 'Insert into Implementation';
|
||||||
lisUsesReplace = 'Replace';
|
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
|
implementation
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -64,7 +64,7 @@ implementation
|
|||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
SettingsTypes, JcfSettings, JcfHelp, SetTransform;
|
SettingsTypes, JcfSettings, JcfHelp, SetTransform,jcfuiconsts;
|
||||||
|
|
||||||
constructor TfTransform.Create(AOwner: TComponent);
|
constructor TfTransform.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
@ -74,12 +74,32 @@ end;
|
|||||||
|
|
||||||
function TfTransform.GetTitle: String;
|
function TfTransform.GetTitle: String;
|
||||||
begin
|
begin
|
||||||
Result := 'Transform';
|
Result := lisTransformTransform;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfTransform.Setup(ADialog: TAbstractOptionsEditorDialog);
|
procedure TfTransform.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||||
begin
|
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;
|
end;
|
||||||
|
|
||||||
procedure TfTransform.ReadSettings(AOptions: TAbstractIDEOptions);
|
procedure TfTransform.ReadSettings(AOptions: TAbstractIDEOptions);
|
||||||
|
Loading…
Reference in New Issue
Block a user