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

LCL: fixed typo GetChildsRect GetChildrenRect

Browse Source 
git-svn-id: trunk@44663 -
This commit is contained in:
mattias 2014-04-09 15:12:36 +00:00
parent 204323d3ab
commit 2f637d4295
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -1532,7 +1532,7 @@ type
function ControlToScreen(const APoint: TPoint): TPoint;
function ClientToParent(const Point: TPoint; AParent: TWinControl = nil): TPoint;
function ParentToClient(const Point: TPoint; AParent: TWinControl = nil): TPoint;
function GetChildsRect(Scrolled: boolean): TRect; virtual;
function GetChildrenRect(Scrolled: boolean): TRect; virtual;
procedure Show;
procedure Update; virtual;
function HandleObjectShouldBeVisible: boolean; virtual;
@ -2141,7 +2141,7 @@ type
procedure InvalidateClientRectCache(WithChildControls: boolean);
function ClientRectNeedsInterfaceUpdate: boolean;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
function GetChildsRect(Scrolled: boolean): TRect; override;
function GetChildrenRect(Scrolled: boolean): TRect; override;
procedure DisableAlign;
procedure EnableAlign;
procedure ReAlign; // realign all children

4
lcl/include/control.inc
View File

@ -1949,13 +1949,13 @@ begin
end;
{------------------------------------------------------------------------------
function TControl.GetChildsRect(Scrolled: boolean): TRect;
function TControl.GetChildrenRect(Scrolled: boolean): TRect;
Returns the Client rectangle relative to the controls left, top.
If Scrolled is true, the rectangle is moved by the current scrolling values
(for an example see TScrollingWincontrol).
------------------------------------------------------------------------------}
function TControl.GetChildsRect(Scrolled: boolean): TRect;
function TControl.GetChildrenRect(Scrolled: boolean): TRect;
var
ScrolledOffset: TPoint;
begin

2
lcl/include/statusbar.inc
View File

@ -260,7 +260,7 @@ begin
Result := -1;
if Panels.Count = 0 then
Exit;
R := GetChildsRect(False);
R := GetChildrenRect(False);
P := Point(X, Y);
if not PtInRect(R, P) then
Exit;

8
lcl/include/wincontrol.inc
View File

@ -4060,13 +4060,13 @@ begin
end;
{------------------------------------------------------------------------------
function TWinControl.GetChildsRect(Scrolled: boolean): TRect;
function TWinControl.GetChildrenRect(Scrolled: boolean): TRect;
Returns the Client rectangle relative to the controls left, top.
If Scrolled is true, the rectangle is moved by the current scrolling values
(for an example see TScrollingWincontrol).
------------------------------------------------------------------------------}
function TWinControl.GetChildsRect(Scrolled: boolean): TRect;
function TWinControl.GetChildrenRect(Scrolled: boolean): TRect;
var
ScrolledOffset: TPoint;
begin
@ -4080,7 +4080,7 @@ begin
inc(Result.Bottom,ScrolledOffset.Y);
end;
end else
Result:=inherited GetChildsRect(Scrolled);
Result:=inherited GetChildrenRect(Scrolled);
end;
{------------------------------------------------------------------------------
@ -5056,7 +5056,7 @@ var
(ControlPos.X < Width) and (ControlPos.Y < Height);
if Result and (capfOnlyClientAreas in Flags) then
begin
ControlClientBounds := GetChildsRect(false);
ControlClientBounds := GetChildrenRect(false);
Result:=PtInRect(ControlClientBounds, ControlPos);
end;