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

IDE: Refactor menu gets "Add unit to uses section" entry.

Browse Source 
git-svn-id: trunk@29775 -
This commit is contained in:
juha 2011-03-09 22:56:16 +00:00
parent 2512c99bc8
commit 62c2fd5bc1
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -2612,6 +2612,7 @@ resourcestring
srkmecWordCompletion = 'Word completion';
srkmecCompletecode = 'Complete code';
lisMenuCompleteCode = 'Complete Code';
lisMenuUseUnit = 'Add unit to uses section';
srkmecShowCodeContext = 'Show code context';
srkmecExtractProc = 'Extract procedure';
lisMenuExtractProc = 'Extract procedure ...';

8
ide/main.pp
View File

@ -267,6 +267,7 @@ type
// refactor menu
procedure mnuRefactorClicked(Sender: TObject);
procedure mnuRefactorCompleteCodeClicked(Sender: TObject);
procedure mnuRefactorUseUnitClicked(Sender: TObject);
procedure mnuRefactorRenameIdentifierClicked(Sender: TObject);
procedure mnuRefactorExtractProcClicked(Sender: TObject);
procedure mnuRefactorInvertAssignmentClicked(Sender: TObject);
@ -2454,6 +2455,7 @@ begin
with MainIDEBar do begin
mnuRefactor.OnClick:=@mnuRefactorClicked;
itmRefactorCompleteCode.OnClick:=@mnuRefactorCompleteCodeClicked;
itmRefactorUseUnit.OnClick:=@mnuRefactorUseUnitClicked;
itmRefactorRenameIdentifier.OnClick:=@mnuRefactorRenameIdentifierClicked;
itmRefactorExtractProc.OnClick:=@mnuRefactorExtractProcClicked;
itmRefactorInvertAssignment.OnClick:=@mnuRefactorInvertAssignmentClicked;
@ -3826,6 +3828,7 @@ begin
with MainIDEBar do begin
//itmRefactorCodeTools
itmRefactorCompleteCode.Enabled:=Editable;
itmRefactorUseUnit.Enabled:=Editable;
itmRefactorRenameIdentifier.Enabled:=Editable;
itmRefactorExtractProc.Enabled:=SelEditable;
itmRefactorInvertAssignment.Enabled:=SelEditable;
@ -17726,6 +17729,11 @@ begin
DoCompleteCodeAtCursor;
end;
procedure TMainIDE.mnuRefactorUseUnitClicked(Sender: TObject);
begin
DoSourceEditorCommand(ecUseProjectUnit);
end;
procedure TMainIDE.mnuRefactorRenameIdentifierClicked(Sender: TObject);
begin
DoFindRenameIdentifier(true);

1
ide/mainbar.pas
View File

@ -195,6 +195,7 @@ type
//mnuRefactor: TIDEMenuSection;
//itmRefactorCodeTools: TIDEMenuSection;
itmRefactorCompleteCode: TIDEMenuCommand;
itmRefactorUseUnit: TIDEMenuCommand;
itmRefactorRenameIdentifier: TIDEMenuCommand;
itmRefactorExtractProc: TIDEMenuCommand;
itmRefactorInvertAssignment: TIDEMenuCommand;

2
ide/mainbase.pas
View File

@ -555,6 +555,7 @@ begin
CreateMenuSeparatorSection(mnuRefactor,itmRefactorCodeTools,'itmRefactorCodeTools');
ParentMI:=itmRefactorCodeTools;
CreateMenuItem(ParentMI,itmRefactorCompleteCode,'itmRefactorCompleteCode',lisMenuCompleteCode);
CreateMenuItem(ParentMI,itmRefactorUseUnit,'itmRefactorUseUnit',lisMenuUseUnit);
CreateMenuItem(ParentMI,itmRefactorRenameIdentifier,'itmRefactorRenameIdentifier',lisMenuRenameIdentifier);
CreateMenuItem(ParentMI,itmRefactorExtractProc,'itmRefactorExtractProc',lisMenuExtractProc);
CreateMenuItem(ParentMI,itmRefactorInvertAssignment,'itmInvertAssignment',uemInvertAssignment);
@ -920,6 +921,7 @@ begin
// refactor menu
itmRefactorCompleteCode.Command:=GetCommand(ecCompleteCode);
itmRefactorUseUnit.Command:=GetCommand(ecUseProjectUnit);
itmRefactorRenameIdentifier.Command:=GetCommand(ecRenameIdentifier);
itmRefactorExtractProc.Command:=GetCommand(ecExtractProc);
itmRefactorInvertAssignment.Command:=GetCommand(ecInvertAssignment);