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

lcl: simplify code of TScreen.GetDesktopRect

Browse Source 
git-svn-id: trunk@33405 -
This commit is contained in:
paul 2011-11-08 02:58:38 +00:00
parent 2a56348bba
commit 68f94a04da
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/screen.inc
View File

@ -636,7 +636,7 @@ end;
function TScreen.GetDataModuleCount: Integer;
begin
Result:=FDataModuleList.Count;
Result := FDataModuleList.Count;
end;
function TScreen.GetDataModules(AIndex: Integer): TDataModule;
@ -661,7 +661,13 @@ end;
function TScreen.GetDesktopRect: TRect;
begin
Result := Bounds(DesktopLeft, DesktopTop, DesktopWidth, DesktopHeight);
with Result do
begin
Left := DesktopLeft;
Top := DesktopTop;
Right := Left + DesktopWidth;
Bottom := Top + DesktopHeight;
end;
end;
function TScreen.GetDesktopTop: Integer;