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

IDE: simple layout: consider docking

Browse Source 
git-svn-id: trunk@25618 -
This commit is contained in:
mattias 2010-05-24 18:16:26 +00:00
parent 7d0b07ee84
commit 6684b85c68
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/ideoptiondefs.pas
View File

@ -579,10 +579,16 @@ begin
end;
procedure TSimpleWindowLayout.ReadCurrentCoordinates;
var
p: TPoint;
begin
if (Form<>nil) and (Form.WindowState=wsNormal) then begin
Left:=Form.Left;
Top:=Form.Top;
if Form.Parent<>nil then
p:=Form.ClientOrigin
else
p:=Point(0,0);
Left:=Form.Left+p.X;
Top:=Form.Top+p.Y;
Width:=Form.Width;
Height:=Form.Height;
end;
@ -590,7 +596,7 @@ end;
procedure TSimpleWindowLayout.ReadCurrentState;
begin
Visible:=(Form<>nil) and Form.Visible;
Visible:=(Form<>nil) and Form.IsVisible;
if Form<>nil then begin
case Form.WindowState of
wsMinimized: fWindowState:=iwsMinimized;