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

IDE: show message view: using IDEIntf

Browse Source 
git-svn-id: trunk@25607 -
This commit is contained in:
mattias 2010-05-24 14:55:52 +00:00
parent 3c92861bf8
commit 81f45d505e
2 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/ideoptiondefs.pas
View File

@ -925,25 +925,25 @@ begin
begin
NewBounds.Top:=DockSiblingBounds.Top;
NewBounds.Bottom:=DockSiblingBounds.Bottom;
OffsetRect(NewBounds,DockSiblingBounds.Left-NewBounds.Right,0);
OffsetRect(NewBounds,DockSiblingBounds.Left-6-NewBounds.Right,0);
end;
alRight:
begin
NewBounds.Top:=DockSiblingBounds.Top;
NewBounds.Bottom:=DockSiblingBounds.Bottom;
OffsetRect(NewBounds,DockSiblingBounds.Right-NewBounds.Left,0);
OffsetRect(NewBounds,DockSiblingBounds.Right+6-NewBounds.Left,0);
end;
alTop:
begin
NewBounds.Left:=DockSiblingBounds.Left;
NewBounds.Right:=DockSiblingBounds.Right;
OffsetRect(NewBounds,0,DockSiblingBounds.Top-NewBounds.Bottom);
OffsetRect(NewBounds,0,DockSiblingBounds.Top-25-NewBounds.Bottom);
end;
alBottom:
begin
NewBounds.Left:=DockSiblingBounds.Left;
NewBounds.Right:=DockSiblingBounds.Right;
OffsetRect(NewBounds,0,DockSiblingBounds.Bottom-NewBounds.Top);
OffsetRect(NewBounds,0,DockSiblingBounds.Bottom+25-NewBounds.Top);
end;
alClient:
NewBounds:=DockSibling.BoundsRect;

12
ide/main.pp
View File

@ -3037,7 +3037,7 @@ begin
ecToggleMessages:
// user used shortcut/menu item to show the window, so focusing is ok.
MessagesView.EnsureVisible;
DoShowMessagesView;
ecToggleCodeExpl:
DoShowCodeExplorer(true);
@ -10652,10 +10652,7 @@ begin
end;
// show messages
if EnvironmentOptions.MsgViewFocus then
MessagesView.EnsureVisible
else
MessagesView.Visible:=true;
IDEWindowCreators.ShowForm(MessagesView,EnvironmentOptions.MsgViewFocus);
MessagesView.BeginBlock;
try
@ -10882,10 +10879,7 @@ begin
MessagesView.EndBlock;
end;
if EnvironmentOptions.MsgViewFocus then
MessagesView.EnsureVisible
else
MessagesView.Visible:=true;
IDEWindowCreators.ShowForm(MessagesView,EnvironmentOptions.MsgViewFocus);
Result:=mrOk;
end;