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

IDE: added anchordocking menu items

Browse Source 
git-svn-id: trunk@14400 -
This commit is contained in:
mattias 2008-03-03 22:52:50 +00:00
parent 2132d8a81f
commit f859d23979
2 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codeexplorer.pas
View File

@ -106,6 +106,7 @@ type
procedure DirectivesTreeViewDeletion(Sender: TObject; Node: TTreeNode);
procedure DirectivesTreeViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DockingMenuItemClick(Sender: TObject);
procedure JumpToMenuitemClick(Sender: TObject);
procedure MainNotebookPageChanged(Sender: TObject);
procedure ModeSpeedButtonClick(Sender: TObject);
@ -212,6 +213,7 @@ var
CodeExplorerView: TCodeExplorerView;
CEJumpToIDEMenuCommand: TIDEMenuCommand;
CERefreshIDEMenuCommand: TIDEMenuCommand;
CEDockingIDEMenuCommand: TIDEMenuCommand;
procedure InitCodeExplorerOptions;
procedure LoadCodeExplorerOptions;
@ -260,6 +262,8 @@ begin
);
CERefreshIDEMenuCommand:=RegisterIDEMenuCommand(Path, 'Refresh',
dlgUnitDepRefresh);
CEDockingIDEMenuCommand:=RegisterIDEMenuCommand(Path, 'Docking', lisMVDocking
);
end;
{ TViewNodeData }
@ -355,10 +359,13 @@ begin
CodeExplorerMenuRoot.MenuItem:=TreePopupMenu.Items;
//CodeExplorerMenuRoot.Items.WriteDebugReport(' ');
// what horrible hack is this ??
CEJumpToIDEMenuCommand.OnClick:=@JumpToMenuitemCLICK;
CERefreshIDEMenuCommand.OnClick:=@RefreshMenuitemCLICK;
CEDockingIDEMenuCommand.OnClick:=@DockingMenuItemClick;
{$IFNDEF EnableIDEDocking}
CEDockingIDEMenuCommand.Visible:=false;
{$ENDIF}
Application.AddOnIdleHandler(@OnApplicationIdle);
end;
@ -417,6 +424,11 @@ begin
JumpToSelection;
end;
procedure TCodeExplorerView.DockingMenuItemClick(Sender: TObject);
begin
ControlDocker.ShowDockingEditor;
end;
procedure TCodeExplorerView.CodeExplorerViewCLOSE(Sender: TObject;
var CloseAction: TCloseAction);
begin

14
ide/uniteditor.pp
View File

@ -445,6 +445,7 @@ type
procedure MoveEditorRightClicked(Sender: TObject);
procedure MoveEditorFirstClicked(Sender: TObject);
procedure MoveEditorLastClicked(Sender: TObject);
procedure DockingClicked(Sender: TObject);
procedure NotebookPageChanged(Sender: TObject);
procedure NotebookShowTabHint(Sender: TObject; HintInfo: PHintInfo);
procedure OpenAtCursorClicked(Sender: TObject);
@ -849,6 +850,7 @@ var
SrcEditMenuMoveEditorRight: TIDEMenuCommand;
SrcEditMenuMoveEditorFirst: TIDEMenuCommand;
SrcEditMenuMoveEditorLast: TIDEMenuCommand;
SrcEditMenuDocking: TIDEMenuCommand;
SrcEditMenuReadOnly: TIDEMenuCommand;
SrcEditMenuShowLineNumbers: TIDEMenuCommand;
SrcEditMenuShowUnitInfo: TIDEMenuCommand;
@ -979,6 +981,11 @@ begin
uemMoveEditorLeftmost);
SrcEditMenuMoveEditorLast:=RegisterIDEMenuCommand(AParent,'MoveEditorRightmost',
uemMoveEditorRightmost);
SrcEditMenuDocking:=RegisterIDEMenuCommand(AParent, 'Docking', lisMVDocking
);
{$IFNDEF EnableIDEDocking}
SrcEditMenuDocking.Visible:=false;
{$ENDIF}
// register the Refactoring submenu
SrcEditSubMenuRefactor:=RegisterIDESubMenu(SourceEditorMenuRoot,
@ -4080,6 +4087,8 @@ begin
SrcEditMenuMoveEditorRight.OnClick:=@MoveEditorRightClicked;
SrcEditMenuMoveEditorFirst.OnClick:=@MoveEditorFirstClicked;
SrcEditMenuMoveEditorLast.OnClick:=@MoveEditorLastClicked;
SrcEditMenuMoveEditorLast.OnClick:=@MoveEditorLastClicked;
SrcEditMenuDocking.OnClick:=@DockingClicked;
SrcEditMenuInsertTodo.OnClick:=@InsertTodoClicked;
@ -5168,6 +5177,11 @@ begin
MoveActivePageLast;
end;
procedure TSourceNotebook.DockingClicked(Sender: TObject);
begin
ControlDocker.ShowDockingEditor;
end;
{This is called from outside to toggle a bookmark}
Procedure TSourceNotebook.ToggleBookmark(Value: Integer);
Begin