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

MG: fixed save lrs to test dir

Browse Source 
git-svn-id: trunk@898 -
This commit is contained in:
lazarus 2002-02-09 01:47:18 +00:00
parent e7e6bf3d22
commit c07bd9ed79
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/control.inc
View File

@ -344,7 +344,10 @@ end;
function TControl.GetClientOrigin: TPoint;
Begin
Assert(False, Format('Trace:[TControl.GetClientOrigin] %s', [Classname]));
if Parent = nil then Exit;
if Parent = nil then
raise Exception.Create('TControl.GetClientOrigin: Parent=nil for '
+Name+':'+ClassName);
//raise EInvalidOperation.CreateFmt(SParentRequired, [Name]);
Result := Parent.ClientOrigin;
Inc(Result.X, FLeft);
Inc(Result.Y, FTop);
@ -1630,6 +1633,9 @@ end;
{ =============================================================================
$Log$
Revision 1.43 2002/04/21 06:53:55 lazarus
MG: fixed save lrs to test dir
Revision 1.42 2002/04/03 11:26:34 lazarus
MG: fixed mem leaks