IDE: rename UseProjectUnit -> UseUnit

git-svn-id: trunk@32378 -
This commit is contained in:
juha 2011-09-17 08:57:57 +00:00
parent 822e5e8cda
commit e6fc44167c
5 changed files with 11 additions and 11 deletions

View File

@ -442,7 +442,7 @@ begin
ecShowAbstractMethods: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRemoveEmptyMethods: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRemoveUnusedUnits: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecUseProjectUnit: SetResult(VK_F11,[ssAlt],VK_UNKNOWN,[]);
ecUseUnit: SetResult(VK_F11,[ssAlt],VK_UNKNOWN,[]);
ecFindOverloads: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
// source notebook
@ -2164,7 +2164,7 @@ begin
ecShowAbstractMethods : Result:= srkmecShowAbstractMethods;
ecRemoveEmptyMethods : Result:= srkmecRemoveEmptyMethods;
ecRemoveUnusedUnits : Result:= srkmecRemoveUnusedUnits;
ecUseProjectUnit : Result:= lisUseUnit;
ecUseUnit : Result:= lisUseUnit;
ecFindOverloads : Result:= srkmecFindOverloads;
// project (menu string resource)
@ -2678,7 +2678,7 @@ begin
AddDefault(C, 'Show abstract methods', srkmecShowAbstractMethods, ecShowAbstractMethods);
AddDefault(C, 'Remove empty methods', srkmecRemoveEmptyMethods, ecRemoveEmptyMethods);
AddDefault(C, 'Remove unused units', srkmecRemoveUnusedUnits, ecRemoveUnusedUnits);
AddDefault(C, 'Add unit to uses section', lisUseUnit, ecUseProjectUnit);
AddDefault(C, 'Add unit to uses section', lisUseUnit, ecUseUnit);
AddDefault(C, 'Find overloads', srkmecFindOverloads, ecFindOverloads);
AddDefault(C, 'Make resource string', srkmecMakeResourceString, ecMakeResourceString);

View File

@ -1024,7 +1024,7 @@ type
function DoShowAbstractMethods: TModalResult;
function DoRemoveEmptyMethods: TModalResult;
function DoRemoveUnusedUnits: TModalResult;
function DoUseProjectUnit: TModalResult;
function DoUseUnit: TModalResult;
function DoFindOverloads: TModalResult;
function DoInitIdentCompletion(JumpToError: boolean): boolean;
function DoShowCodeContext(JumpToError: boolean): boolean;
@ -3303,8 +3303,8 @@ begin
ecRemoveUnusedUnits:
DoRemoveUnusedUnits;
ecUseProjectUnit:
DoUseProjectUnit;
ecUseUnit:
DoUseUnit;
ecFindOverloads:
DoFindOverloads;
@ -15493,7 +15493,7 @@ begin
Result:=ShowUnusedUnitsDialog;
end;
function TMainIDE.DoUseProjectUnit: TModalResult;
function TMainIDE.DoUseUnit: TModalResult;
begin
Result:=ShowUseUnitDialog;
end;
@ -18257,7 +18257,7 @@ end;
procedure TMainIDE.mnuSourceUseUnitClicked(Sender: TObject);
begin
DoSourceEditorCommand(ecUseProjectUnit);
DoSourceEditorCommand(ecUseUnit);
end;
procedure TMainIDE.mnuRefactorRenameIdentifierClicked(Sender: TObject);

View File

@ -907,7 +907,7 @@ begin
itmSourceEncloseBlock.Command:=GetCommand(ecSelectionEnclose);
itmSourceEncloseInIFDEF.Command:=GetCommand(ecSelectionEncloseIFDEF);
itmSourceCompleteCode.Command:=GetCommand(ecCompleteCode);
itmSourceUseUnit.Command:=GetCommand(ecUseProjectUnit);
itmSourceUseUnit.Command:=GetCommand(ecUseUnit);
itmSourceSyntaxCheck.Command:=GetCommand(ecSyntaxCheck);
itmSourceGuessUnclosedBlock.Command:=GetCommand(ecGuessUnclosedBlock);

View File

@ -8690,7 +8690,7 @@ begin
SrcEditMenuEncloseSelection.Command:=GetCommand(ecSelectionEnclose);
SrcEditMenuEncloseInIFDEF.Command:=GetCommand(ecSelectionEncloseIFDEF);
SrcEditMenuCompleteCode.Command:=GetCommand(ecCompleteCode);
SrcEditMenuUseUnit.Command:=GetCommand(ecUseProjectUnit);
SrcEditMenuUseUnit.Command:=GetCommand(ecUseUnit);
{%endregion}
{%region *** Refactoring Section ***}

View File

@ -142,7 +142,7 @@ const
ecShowAbstractMethods = ecFirstLazarus + 119;
ecRemoveEmptyMethods = ecFirstLazarus + 120;
ecRemoveUnusedUnits = ecFirstLazarus + 121;
ecUseProjectUnit = ecFirstLazarus + 122;
ecUseUnit = ecFirstLazarus + 122;
ecFindOverloads = ecFirstLazarus + 123;
// file menu