<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Hi Mattias,<div><br></div><div>see below changes to writeln statement.<br><br><div id="SkyDrivePlaceholder" style="font-family: Tahoma; font-size: 10pt; "></div><hr id="stopSpelling" style="font-family: Tahoma; font-size: 10pt; "><font class="Apple-style-span" face="Tahoma" size="2">From: pewilliams2010@live.com</font><br><font class="Apple-style-span" face="Tahoma" size="2">To: lazarus@lists.lazarus.freepascal.org</font><br><font class="Apple-style-span" face="Tahoma" size="2">Date: Sun, 26 Dec 2010 14:07:45 +1100</font><br><font class="Apple-style-span" face="Tahoma" size="2">Subject: [Lazarus] (no subject)</font><br><br>
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<meta name="Generator" content="Microsoft SafeHTML">
<style>
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}
</style>
<div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">Dear Mattias,</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-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 style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" face="'Courier New'" size="2"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" face="'Courier New'" size="2">See attached file.</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" face="'Courier New'" size="2"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" face="'Courier New'" size="2">/lazarus/lcl/interfaces/win32/win32object.inc</font></div><div style="font-family: Tahoma; font-size: 10pt; "><span class="ecxApple-style-span" style="font-family:'Courier New';font-size:10pt"><br></span></div><div style="font-family: Tahoma; font-size: 10pt; "><span class="ecxApple-style-span" style="font-family:'Courier New';font-size:10pt">PEW</span></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">procedure TWin32WidgetSet.AppInit(var ScreenInfo: TScreenInfo);</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">const</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Win32ClassesToInit: array[0..5] of DWord = (ICC_DATE_CLASSES,</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> ICC_UPDOWN_CLASS, ICC_TAB_CLASSES, ICC_PROGRESS_CLASS, ICC_BAR_CLASSES,</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> ICC_PAGESCROLLER_CLASS);</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">var</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> ICC: TINITCOMMONCONTROLSEX;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> SysMenu: HMENU;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Handle: HWND;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> DC: HDC;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> AIcon: HICON;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> i: integer;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> f: Text;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">begin</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Assert(False, 'Trace:Win32Object.Init - Start');</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> if not WinRegister then</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> begin</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Assert(False, 'Trace:Win32Object.Init - Register Failed');</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> DebugLn('Trace:Win32Object.Init - Register Failed');</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Exit;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> end</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> // lines added by PEW 26 December 2010</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> else</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> begin</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Assign(f, '/tmp/AppInit_backtrace.txt');</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Rewrite(f);</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> try</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> // end lines added by PEW 26 December 2010 </font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> OleInitialize(nil);</font></div><div style="font-size: 10pt; font-family: Tahoma; "><font class="ecxApple-style-span" face="'Courier New'"><br></font></div><div style="font-size: 10pt; font-family: Tahoma; "><font class="ecxApple-style-span" face="'Courier New'">[...]</font></div><div style="font-size: 10pt; font-family: Tahoma; "><font class="ecxApple-style-span" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> // lines added by PEW 26 December 2010</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> except</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> on e: Exception do begin</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: small; ">> Writeln(f, e.ClassName, ' : ', e.Message);</span></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">// I think this should be</font></div><div style="font-family: Tahoma; font-size: 10pt; "><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 10pt; "><br></span></div><div style="font-family: Tahoma; font-size: 10pt; "><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: small; "> Writeln(f, e.ClassName + ' : ' + e.Message); </span></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"><br></font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> DumpExceptionBackTrace(f);</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> end;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> end;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> Close(f);</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> end; // try</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> end; // if</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'"> // end lines added by PEW 26 December 2010</font></div><div style="font-family: Tahoma; font-size: 10pt; "><font class="ecxApple-style-span" size="2" face="'Courier New'">end;</font></div><div style="font-family: Tahoma; font-size: 10pt; "><br></div>
<br><font class="Apple-style-span" face="Tahoma" size="2">--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</font></div> </body>
</html>