[Lazarus] (no subject)

[Peter Williams]

Hi Mattias,
see below changes to writeln statement.

From: pewilliams2010 at live.com
To: lazarus at lists.lazarus.freepascal.org
Date: Sun, 26 Dec 2010 14:07:45 +1100
Subject: [Lazarus] (no subject)








Dear Mattias,
Here are my attempts to find your memory leak. So far it does not compile. Too many parameters.
See attached file.
/lazarus/lcl/interfaces/win32/win32object.inc
PEW
procedure TWin32WidgetSet.AppInit(var ScreenInfo: TScreenInfo);const  Win32ClassesToInit: array[0..5] of DWord = (ICC_DATE_CLASSES,    ICC_UPDOWN_CLASS, ICC_TAB_CLASSES, ICC_PROGRESS_CLASS, ICC_BAR_CLASSES,    ICC_PAGESCROLLER_CLASS);var  ICC: TINITCOMMONCONTROLSEX;  SysMenu: HMENU;  Handle: HWND;  DC: HDC;  AIcon: HICON;  i: integer;  f: Text;begin  Assert(False, 'Trace:Win32Object.Init - Start');  if not WinRegister then  begin    Assert(False, 'Trace:Win32Object.Init - Register Failed');    DebugLn('Trace:Win32Object.Init - Register Failed');    Exit;  end
  // lines added by PEW 26 December 2010  else  begin    Assign(f, '/tmp/AppInit_backtrace.txt');    Rewrite(f);    try      // end lines added by PEW 26 December 2010   
      OleInitialize(nil);
[...]
      // lines added by PEW 26 December 2010      except        on e: Exception do begin
>         Writeln(f, e.ClassName, ' : ', e.Message);
// I think this should be
          Writeln(f, e.ClassName + ' : ' + e.Message); 
          DumpExceptionBackTrace(f);        end;      end;      Close(f);    end; // try  end; // if  // end lines added by PEW 26 December 2010end;
 		 	   		  

--
_______________________________________________
Lazarus mailing list
Lazarus at lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20101226/5870de78/attachment-0003.html>