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

don't change uniteditor height to fit messageview into visible area if messageview is docked into another window

Browse Source 
git-svn-id: trunk@14380 -
This commit is contained in:
paul 2008-03-03 10:14:23 +00:00
parent 60bf098654
commit 63bd92b363
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -10403,13 +10403,15 @@ procedure TMainIDE.DoArrangeSourceEditorAndMessageView(PutOnTop: boolean);
begin
DoShowMessagesView;
if (iwpDefault=EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(
if (iwpDefault = EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(
nmiwSourceNoteBookName).WindowPlacement)
and ((SourceNotebook.Top+SourceNotebook.Height) > MessagesView.Top) then
and ((SourceNotebook.Top + SourceNotebook.Height) > MessagesView.Top) and (MessagesView.Parent = nil) then
SourceNotebook.Height := Max(50,Min(SourceNotebook.Height,
MessagesView.Top-SourceNotebook.Top));
if PutOnTop then begin
MessagesView.ShowOnTop;
if PutOnTop then
begin
if MessagesView.Parent = nil then
MessagesView.ShowOnTop;
SourceNotebook.ShowOnTop;
end;
end;