paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 14:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added persistent hints for main ide bar

Browse Source 
git-svn-id: trunk@1284 -
This commit is contained in:
lazarus 2002-02-09 01:48:13 +00:00
parent f139594f1a
commit c444873f84
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/control.inc
View File

@ -1900,6 +1900,22 @@ begin
Result := (FParent <> nil); Result := (FParent <> nil);
end; end;
{------------------------------------------------------------------------------
function TControl.IsParentOf(AControl: TControl): boolean;
------------------------------------------------------------------------------}
function TControl.IsParentOf(AControl: TControl): boolean;
begin
Result:=false;
while AControl<>nil do begin
AControl:=AControl.Parent;
if Self=AControl then begin
Result:=true;
exit;
end;
end;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TControl.SendToBack Method: TControl.SendToBack
Params: None Params: None
@ -1987,6 +2003,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.98 2002/11/04 19:49:36 lazarus
MG: added persistent hints for main ide bar
Revision 1.97 2002/11/03 22:40:28 lazarus Revision 1.97 2002/11/03 22:40:28 lazarus
MG: fixed ControlAtPos MG: fixed ControlAtPos