paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 17:58:05 +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
PkgFilename: String;
ANode: TAVLTreeNode;
ARect: TRect;
ARect, ABounds: TRect;
begin
if fLayouts=nil then LoadLayouts;
PkgFilename:=AnEditor.LazPackage.Filename;
ANode:=fLayouts.FindKey(Pointer(PkgFilename),@CompareFilenameWithLayout);
if fLayouts = nil then LoadLayouts;
PkgFilename := AnEditor.LazPackage.Filename;
ANode := fLayouts.FindKey(Pointer(PkgFilename), @CompareFilenameWithLayout);
// find a nice position for the editor
if ANode<>nil then
ARect:=TPackageEditorLayout(ANode.Data).Rectangle
if ANode <> nil then
ARect := TPackageEditorLayout(ANode.Data).Rectangle
else
ARect:=Rect(0,0,0,0);
if (ARect.Bottom<ARect.Top+50) or (ARect.Right<ARect.Left+50)
or (ARect.Bottom>Screen.Height) or (ARect.Right>Screen.Width) then
ARect:=CreateNiceWindowPosition(500,400);
AnEditor.SetBounds(ARect.Left,ARect.Top,
ARect.Right-ARect.Left,ARect.Bottom-ARect.Top);
ARect := Rect(0, 0, 0, 0);
if Screen.ActiveCustomForm <> nil then
ABounds := Screen.ActiveCustomForm.Monitor.BoundsRect
else
ABounds := Screen.PrimaryMonitor.BoundsRect;
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;
procedure TPackageEditors.SaveLayout(AnEditor: TPackageEditorForm);