mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-28 08:49:35 +02:00
IDE: rename UseProjectUnit -> UseUnit
git-svn-id: trunk@32378 -
This commit is contained in:
parent
822e5e8cda
commit
e6fc44167c
@ -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);
|
||||
|
||||
|
10
ide/main.pp
10
ide/main.pp
@ -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);
|
||||
|
@ -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);
|
||||
|
@ -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 ***}
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user