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

IDE: Added InvertAssignment to refactoring menu. Some reordering.

Browse Source 
git-svn-id: trunk@29723 -
This commit is contained in:
juha 2011-03-04 09:00:04 +00:00
parent dc92d03dc0
commit de8d9f7ea8
3 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/main.pp
View File

@ -260,10 +260,11 @@ type
// refactor menu
procedure mnuRefactorClicked(Sender: TObject);
procedure mnuRefactorEncloseBlockClicked(Sender: TObject);
procedure mnuRefactorCompleteCodeClicked(Sender: TObject);
procedure mnuRefactorExtractProcClicked(Sender: TObject);
procedure mnuRefactorRenameIdentifierClicked(Sender: TObject);
procedure mnuRefactorEncloseBlockClicked(Sender: TObject);
procedure mnuRefactorExtractProcClicked(Sender: TObject);
procedure mnuRefactorInvertAssignmentClicked(Sender: TObject);
// view menu
procedure mnuViewInspectorClicked(Sender: TObject);
@ -2442,9 +2443,10 @@ begin
with MainIDEBar do begin
mnuRefactor.OnClick:=@mnuRefactorClicked;
itmRefactorCompleteCode.OnClick:=@mnuRefactorCompleteCodeClicked;
itmSourceEncloseBlock.OnClick:=@mnuRefactorEncloseBlockClicked;
itmRefactorExtractProc.OnClick:=@mnuRefactorExtractProcClicked;
itmRefactorRenameIdentifier.OnClick:=@mnuRefactorRenameIdentifierClicked;
itmRefactorEncloseBlock.OnClick:=@mnuRefactorEncloseBlockClicked;
itmRefactorExtractProc.OnClick:=@mnuRefactorExtractProcClicked;
itmRefactorInvertAssignment.OnClick:=@mnuRefactorInvertAssignmentClicked;
end;
end;
@ -3808,8 +3810,10 @@ begin
with MainIDEBar do begin
//itmRefactorMenuCodeTools: TIDEMenuSection;
itmRefactorCompleteCode.Enabled:=Editable;
itmSourceEncloseBlock.Enabled:=SelEditable;
itmRefactorRenameIdentifier.Enabled:=Editable;
itmRefactorEncloseBlock.Enabled:=SelEditable;
itmRefactorExtractProc.Enabled:=SelEditable;
itmRefactorInvertAssignment.Enabled:=SelEditable;
end;
end;
@ -17697,14 +17701,19 @@ begin
DoCompleteCodeAtCursor;
end;
procedure TMainIDE.mnuRefactorRenameIdentifierClicked(Sender: TObject);
begin
DoFindRenameIdentifier(true);
end;
procedure TMainIDE.mnuRefactorExtractProcClicked(Sender: TObject);
begin
DoExtractProcFromSelection;
end;
procedure TMainIDE.mnuRefactorRenameIdentifierClicked(Sender: TObject);
procedure TMainIDE.mnuRefactorInvertAssignmentClicked(Sender: TObject);
begin
DoFindRenameIdentifier(true);
DoSourceEditorCommand(ecInvertAssignment);
end;
procedure TMainIDE.DoCommand(ACommand: integer);

5
ide/mainbar.pas
View File

@ -189,9 +189,10 @@ type
//mnuRefactor: TIDEMenuSection;
//itmEditMenuCodeTools: TIDEMenuSection;
itmRefactorCompleteCode: TIDEMenuCommand;
itmSourceEncloseBlock: TIDEMenuCommand;
itmRefactorExtractProc: TIDEMenuCommand;
itmRefactorRenameIdentifier: TIDEMenuCommand;
itmRefactorEncloseBlock: TIDEMenuCommand;
itmRefactorExtractProc: TIDEMenuCommand;
itmRefactorInvertAssignment: TIDEMenuCommand;
// view menu
//mnuView: TIDEMenuSection;

10
ide/mainbase.pas
View File

@ -551,9 +551,10 @@ begin
CreateMenuSeparatorSection(mnuRefactor,itmRefactorMenuCodeTools,'itmRefactorMenuCodeTools');
ParentMI:=itmRefactorMenuCodeTools;
CreateMenuItem(ParentMI,itmRefactorCompleteCode,'itmRefactorCompleteCode',lisMenuCompleteCode);
CreateMenuItem(ParentMI,itmSourceEncloseBlock,'itmSourceEncloseBlock',lisMenuEncloseSelection);
CreateMenuItem(ParentMI,itmRefactorExtractProc,'itmRefactorExtractProc',lisMenuExtractProc);
CreateMenuItem(ParentMI,itmRefactorRenameIdentifier,'itmRefactorRenameIdentifier',lisMenuRenameIdentifier);
CreateMenuItem(ParentMI,itmRefactorEncloseBlock,'itmSourceEncloseBlock',lisMenuEncloseSelection);
CreateMenuItem(ParentMI,itmRefactorExtractProc,'itmRefactorExtractProc',lisMenuExtractProc);
CreateMenuItem(ParentMI,itmRefactorInvertAssignment,'InvertAssignment',uemInvertAssignment);
end;
end;
@ -898,7 +899,6 @@ begin
// source menu
itmSourceIndentBlock.Command:=GetCommand(ecBlockIndent);
itmSourceUnindentBlock.Command:=GetCommand(ecBlockUnindent);
itmSourceEncloseBlock.Command:=GetCommand(ecSelectionEnclose);
itmSourceUpperCaseBlock.Command:=GetCommand(ecSelectionUpperCase);
itmSourceLowerCaseBlock.Command:=GetCommand(ecSelectionLowerCase);
itmSourceTabsToSpacesBlock.Command:=GetCommand(ecSelectionTabs2Spaces);
@ -928,8 +928,10 @@ begin
// refactor menu
itmRefactorCompleteCode.Command:=GetCommand(ecCompleteCode);
itmRefactorExtractProc.Command:=GetCommand(ecExtractProc);
itmRefactorRenameIdentifier.Command:=GetCommand(ecRenameIdentifier);
itmRefactorEncloseBlock.Command:=GetCommand(ecSelectionEnclose);
itmRefactorExtractProc.Command:=GetCommand(ecExtractProc);
itmRefactorInvertAssignment.Command:=GetCommand(ecInvertAssignment);
// view menu
itmViewInspector.Command:=GetCommand(ecToggleObjectInsp);