paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

packager: ask package editor to reflect current monitor better

Browse Source 
git-svn-id: trunk@19427 -
This commit is contained in:
paul 2009-04-14 12:09:52 +00:00
parent 9e47bff6fa
commit 9480593b9c
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packager/packageeditor.pas
View File

@ -2101,21 +2101,26 @@ procedure TPackageEditors.ApplyLayout(AnEditor: TPackageEditorForm);
var var
PkgFilename: String; PkgFilename: String;
ANode: TAVLTreeNode; ANode: TAVLTreeNode;
ARect: TRect; ARect, ABounds: TRect;
begin begin
if fLayouts=nil then LoadLayouts; if fLayouts = nil then LoadLayouts;
PkgFilename:=AnEditor.LazPackage.Filename; PkgFilename := AnEditor.LazPackage.Filename;
ANode:=fLayouts.FindKey(Pointer(PkgFilename),@CompareFilenameWithLayout); ANode := fLayouts.FindKey(Pointer(PkgFilename), @CompareFilenameWithLayout);
// find a nice position for the editor // find a nice position for the editor
if ANode<>nil then if ANode <> nil then
ARect:=TPackageEditorLayout(ANode.Data).Rectangle ARect := TPackageEditorLayout(ANode.Data).Rectangle
else else
ARect:=Rect(0,0,0,0); ARect := Rect(0, 0, 0, 0);
if (ARect.Bottom<ARect.Top+50) or (ARect.Right<ARect.Left+50) if Screen.ActiveCustomForm <> nil then
or (ARect.Bottom>Screen.Height) or (ARect.Right>Screen.Width) then ABounds := Screen.ActiveCustomForm.Monitor.BoundsRect
ARect:=CreateNiceWindowPosition(500,400); else
AnEditor.SetBounds(ARect.Left,ARect.Top, ABounds := Screen.PrimaryMonitor.BoundsRect;
ARect.Right-ARect.Left,ARect.Bottom-ARect.Top); if (ARect.Bottom < ARect.Top + 50) or (ARect.Right < ARect.Left + 50) or
(ARect.Bottom > ABounds.Bottom) or (ARect.Right > ABounds.Right) or
(Arect.Top < ABounds.Top) or (ARect.Left < ABounds.Left) then
ARect := CreateNiceWindowPosition(500, 400);
AnEditor.SetBounds(ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
end; end;
procedure TPackageEditors.SaveLayout(AnEditor: TPackageEditorForm); procedure TPackageEditors.SaveLayout(AnEditor: TPackageEditorForm);