<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
<div><font class="Apple-style-span" size="2" face="'Courier New'">Dear Mattias,</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">Here are my attempts to find your memory leak. So far it does not compile. Too many parameters.</font></div><div><font class="Apple-style-span" face="'Courier New'" size="2"><br></font></div><div><font class="Apple-style-span" face="'Courier New'" size="2">See attached file.</font></div><div><font class="Apple-style-span" face="'Courier New'" size="2"><br></font></div><div><font class="Apple-style-span" face="'Courier New'" size="2">/lazarus/lcl/interfaces/win32/win32object.inc</font></div><div><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 10pt; "><br></span></div><div><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 10pt; ">PEW</span></div><div><font class="Apple-style-span" size="2" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">procedure TWin32WidgetSet.AppInit(var ScreenInfo: TScreenInfo);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">const</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  Win32ClassesToInit: array[0..5] of DWord = (ICC_DATE_CLASSES,</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    ICC_UPDOWN_CLASS, ICC_TAB_CLASSES, ICC_PROGRESS_CLASS, ICC_BAR_CLASSES,</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    ICC_PAGESCROLLER_CLASS);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">var</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  ICC: TINITCOMMONCONTROLSEX;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  SysMenu: HMENU;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  Handle: HWND;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  DC: HDC;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  AIcon: HICON;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  i: integer;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  f: Text;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">begin</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  Assert(False, 'Trace:Win32Object.Init - Start');</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  if not WinRegister then</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  begin</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    Assert(False, 'Trace:Win32Object.Init - Register Failed');</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    DebugLn('Trace:Win32Object.Init - Register Failed');</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    Exit;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  end</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  // lines added by PEW 26 December 2010</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  else</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  begin</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    Assign(f, '/tmp/AppInit_backtrace.txt');</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    Rewrite(f);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    try</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      // end lines added by PEW 26 December 2010   </font></div><div><font class="Apple-style-span" size="2" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      OleInitialize(nil);</font></div><div style="font-size: 10pt; "><font class="Apple-style-span" face="'Courier New'"><br></font></div><div style="font-size: 10pt; "><font class="Apple-style-span" face="'Courier New'">[...]</font></div><div style="font-size: 10pt; "><font class="Apple-style-span" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      // lines added by PEW 26 December 2010</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      except</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">        on e: Exception do begin</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">          Writeln(f, e.ClassName, ' : ', e.Message);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">          DumpExceptionBackTrace(f);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">        end;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      end;</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">      Close(f);</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">    end; // try</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  end; // if</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">  // end lines added by PEW 26 December 2010</font></div><div><font class="Apple-style-span" size="2" face="'Courier New'">end;</font></div><div><br></div>                                    </body>
</html>