paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:20:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: add "Close All Other Pages" command to the source editor menu

Browse Source 
git-svn-id: trunk@20120 -
This commit is contained in:
paul 2009-05-22 06:42:05 +00:00
parent 2ab7776d76
commit b7c4f73c4f
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -1769,6 +1769,7 @@ resourcestring
uemOpenFileAtCursor = '&Open file at cursor';
uemProcedureJump = 'Procedure Jump';
uemClosePage = '&Close Page';
uemCloseOtherPages = 'Close All &Other Pages';
uemCut = 'Cut';
uemCopy = 'Copy';
uemPaste = 'Paste';

18
ide/sourceeditor.pp
View File

@ -685,6 +685,7 @@ type
procedure CloseTabClicked(Sender: TObject);
procedure CloseClicked(Sender: TObject);
procedure CloseOtherPagesClicked(Sender: TObject);
procedure ToggleFormUnitClicked(Sender: TObject);
procedure ToggleObjectInspClicked(Sender: TObject);
@ -842,6 +843,7 @@ var
// open file
SrcEditMenuOpenFileAtCursor: TIDEMenuCommand;
SrcEditMenuClosePage: TIDEMenuCommand;
SrcEditMenuCloseOtherPages: TIDEMenuCommand;
SrcEditMenuCut: TIDEMenuCommand;
SrcEditMenuCopy: TIDEMenuCommand;
SrcEditMenuPaste: TIDEMenuCommand;
@ -931,8 +933,10 @@ begin
SrcEditMenuSectionPages := RegisterIDEMenuSection(SourceEditorMenuRoot,
'Pages');
SrcEditMenuClosePage:=RegisterIDEMenuCommand(SrcEditMenuSectionPages,
'Close Page',uemClosePage, nil, nil, nil, 'menu_close');
SrcEditMenuClosePage := RegisterIDEMenuCommand(SrcEditMenuSectionPages,
'Close Page',uemClosePage, nil, nil, nil, 'menu_close');
SrcEditMenuCloseOtherPages := RegisterIDEMenuCommand(SrcEditMenuSectionPages,
'Close All Other Pages',uemCloseOtherPages, nil, nil, nil);
// register the Move Page sub menu
SrcEditSubMenuMovePage:=RegisterIDESubMenu(SrcEditMenuSectionPages,
@ -4449,6 +4453,7 @@ begin
SrcEditMenuOpenFileAtCursor.OnClick:=@OpenAtCursorClicked;
SrcEditMenuClosePage.OnClick:=@CloseClicked;
SrcEditMenuCloseOtherPages.OnClick:=@CloseOtherPagesClicked;
SrcEditMenuCut.OnClick:=@CutClicked;
SrcEditMenuCopy.OnClick:=@CopyClicked;
SrcEditMenuPaste.OnClick:=@PasteClicked;
@ -6044,7 +6049,12 @@ end;
Procedure TSourceNotebook.CloseClicked(Sender: TObject);
Begin
if Assigned(FOnCloseClicked) then FOnCloseClicked(Sender,false);
if Assigned(FOnCloseClicked) then FOnCloseClicked(Sender, False);
end;
procedure TSourceNotebook.CloseOtherPagesClicked(Sender: TObject);
begin
if Assigned(FOnCloseClicked) then FOnCloseClicked(Sender, True);
end;
Function TSourceNotebook.FindUniquePageName(FileName:string;
@ -6855,7 +6865,7 @@ end;
procedure TSourceNotebook.CloseTabClicked(Sender: TObject);
begin
if Assigned(FOnCloseClicked) then
FOnCloseClicked(Sender,GetKeyState(VK_CONTROL)<0);
FOnCloseClicked(Sender, GetKeyState(VK_CONTROL) < 0);
end;
{ TSynEditPlugin1 }