paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:29:12 +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

21
lcl/include/control.inc
View File

@ -1897,7 +1897,23 @@ end;
------------------------------------------------------------------------------}
function TControl.HasParent : Boolean;
begin
Result := (FParent <> nil);
Result := (FParent <> nil);
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;
{------------------------------------------------------------------------------
@ -1987,6 +2003,9 @@ end;
{ =============================================================================
$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
MG: fixed ControlAtPos