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

IDE: messages windows: added docking popup menu item

Browse Source 
git-svn-id: trunk@14399 -
This commit is contained in:
mattias 2008-03-03 22:21:09 +00:00
parent 1842d84966
commit 2132d8a81f
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -268,6 +268,7 @@ resourcestring
lisCopyAllAndHiddenMessagesToClipboard = 'Copy all and hidden messages '
+'to clipboard';
lisSaveAllMessagesToFile = 'Save all messages to file';
lisMVDocking = 'Docking';
lisMenuViewSearchResults = 'Search Results';
lisSearchAgain = 'Search again';
lisSRClosePage = 'Close page';

17
ide/msgview.pp
View File

@ -72,6 +72,7 @@ type
procedure CopyAllMenuItemClick(Sender: TObject);
procedure CopyAllAndHiddenMenuItemClick(Sender: TObject);
procedure CopyMenuItemClick(Sender: TObject);
procedure DockMenuItemClick(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure HelpMenuItemClick(Sender: TObject);
procedure ClearMenuItemClick(Sender: TObject);
@ -155,13 +156,14 @@ type
var
MessagesView: TMessagesView = nil;
MsgQuickFixIDEMenuSection: TIDEMenuSection;
MsgClearIDEMenuCommand: TIDEMenuCommand;
MsgCopyIDEMenuCommand: TIDEMenuCommand;
MsgCopyAllIDEMenuCommand: TIDEMenuCommand;
MsgCopyAllAndHiddenIDEMenuCommand: TIDEMenuCommand;
MsgHelpIDEMenuCommand: TIDEMenuCommand;
MsgSaveAllToFileIDEMenuCommand: TIDEMenuCommand;
MsgQuickFixIDEMenuSection: TIDEMenuSection;
MsgDockIDEMenuCommand: TIDEMenuCommand;
const
MessagesMenuRootName = 'Messages';
@ -226,6 +228,7 @@ var
begin
MessagesMenuRoot := RegisterIDEMenuRoot(MessagesMenuRootName);
Path := MessagesMenuRoot.Name;
MsgQuickFixIDEMenuSection := RegisterIDEMenuSection(Path, 'Quick Fix');
MsgClearIDEMenuCommand :=
RegisterIDEMenuCommand(Path, 'Clear', srVK_CLEAR);
MsgCopyIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy selected',
@ -240,7 +243,8 @@ begin
MsgSaveAllToFileIDEMenuCommand :=
RegisterIDEMenuCommand(Path, 'Copy selected',
lisSaveAllMessagesToFile);
MsgQuickFixIDEMenuSection := RegisterIDEMenuSection(Path, 'Quick Fix');
MsgDockIDEMenuCommand :=
RegisterIDEMenuCommand(Path, 'Docking', lisMVDocking);
end;
function MessageLinesAsText(ListOfTLazMessageLine: TFPList): string;
@ -301,6 +305,10 @@ begin
MsgCopyAllIDEMenuCommand.OnClick := @CopyAllMenuItemClick;
MsgCopyAllAndHiddenIDEMenuCommand.OnClick := @CopyAllAndHiddenMenuItemClick;
MsgSaveAllToFileIDEMenuCommand.OnClick := @SaveAllToFileMenuItemClick;
MsgDockIDEMenuCommand.OnClick :=@DockMenuItemClick;
{$IFNDEF EnableIDEDocking}
MsgDockIDEMenuCommand.Visible:=false;
{$ENDIF}
EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
ControlDocker:=TLazControlDocker.Create(Self);
@ -856,6 +864,11 @@ begin
Clipboard.AsText := GetSelectedMessagesAsText;
end;
procedure TMessagesView.DockMenuItemClick(Sender: TObject);
begin
ControlDocker.ShowDockingEditor;
end;
procedure TMessagesView.FormDeactivate(Sender: TObject);
begin
FLastSelectedIndex:=-1;