paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +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

14
ide/codeexplorer.pas
View File

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

14
ide/uniteditor.pp
View File

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