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

LCL: TCustomForm.MoveToDefaultPosition: simplified

Browse Source 
git-svn-id: trunk@26712 -
This commit is contained in:
mattias 2010-07-17 10:44:12 +00:00
parent 7cd4907dfe
commit 85b029304f
1 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lcl/include/customform.inc
View File

@ -1162,37 +1162,34 @@ begin
p:=Position;
if (Position = poMainFormCenter) and (Application.Mainform=nil) then
p:=poScreenCenter;
if (P = poMainFormCenter)
and (FormStyle = fsMDIChild)
and (Self <> Application.Mainform)
then begin
X := (Application.Mainform.ClientWidth - Width) div 2;
Y := (Application.Mainform.ClientHeight - Height) div 2;
end
else begin
case P of
poDesktopCenter :
begin
X := (Screen.DesktopWidth - Width) div 2;
Y := (Screen.DesktopHeight - Height) div 2;
end;
poScreenCenter :
begin
X := (Screen.Width - Width) div 2;
Y := (Screen.Height - Height) div 2;
end;
poMainFormCenter :
if (Self <> Application.MainForm) then
case P of
poDesktopCenter :
begin
X := (Screen.DesktopWidth - Width) div 2;
Y := (Screen.DesktopHeight - Height) div 2;
end;
poScreenCenter :
begin
X := (Screen.Width - Width) div 2;
Y := (Screen.Height - Height) div 2;
end;
poMainFormCenter :
if (Self <> Application.MainForm) then
begin
if FormStyle = fsMDIChild then
begin
X := (Application.Mainform.ClientWidth - Width) div 2;
Y := (Application.Mainform.ClientHeight - Height) div 2;
end else begin
X := ((Application.MainForm.Width - Width) div 2) + Application.MainForm.Left;
Y := ((Application.MainForm.Height - Height) div 2) + Application.MainForm.Top;
end;
poOwnerFormCenter :
if (Owner is TCustomForm) then
begin
X := ((TCustomForm(Owner).Width - Width) div 2) + TCustomForm(Owner).Left;
Y := ((TCustomForm(Owner).Height - Height) div 2) + TCustomForm(Owner).Top;
end;
end;
poOwnerFormCenter :
if (Owner is TCustomForm) then
begin
X := ((TCustomForm(Owner).Width - Width) div 2) + TCustomForm(Owner).Left;
Y := ((TCustomForm(Owner).Height - Height) div 2) + TCustomForm(Owner).Top;
end;
end;
if (Position in [poScreenCenter, poMainFormCenter, poOwnerFormCenter]) then