<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>