<div>Hi All,</div><div><br></div><div class="gmail_quote"><div>ooppps!!! send from wrong gmail account again. Sorry folks.</div><div class="im"><br></div><div class="im">download a screenshot of the debug info window here:</div>

<div class="im"><br></div><div class="im"><a href="http://hotfile.com/dl/91837658/93055e8/Screenshot-1.png.html">http://hotfile.com/dl/91837658/93055e8/Screenshot-1.png.html</a></div><div class="im"><br></div><div class="im">

then click on [ Regular Download ] button for the .png image.</div><div class="im"><br></div><div><div class="h5"><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">Peter E Williams</b> <span dir="ltr"><<a href="mailto:pewslinuxvault@gmail.com" target="_blank">pewslinuxvault@gmail.com</a>></span><br>


Date: 24 December 2010 18:56<br>Subject: Installation of Lazarus 0.9.29 works fine and no problems (very long message!)<br>To: Lazarus email list <<a href="mailto:lazarus@lazarus.freepascal.org" target="_blank">lazarus@lazarus.freepascal.org</a>><br>


<br><br><div>Merry Christmas 2010 !!!</div><div><br></div><div>Let's hope that this nails down this bug.</div><div><br></div><div>Summary:</div><div><br></div><div>Installation of Lazarus 0.9.29 works fine and no problems.</div>



<div><br></div><div>Wine / Programs / Lazarus menu item is broken</div><div><br></div><div>Open browse to drive c and then open the lazarus folder and right click the StartLazarus.exe file.</div><div><br></div><div>Build all with examples gives errors but without the examples does not give errors.</div>



<div><br></div><div>Important Note to developers:</div><div><br></div><div>Please change the Build All menu option so that BEFORE the build all the menu item Run / Program Reset Debugger.OnClick is called then the Build All is called.</div>



<div><br></div><div>e.g.</div><div><br></div><div>Note: I have NOT looked at the code as that is not my job.</div><div><br></div><div>procedure NewBuildAll.OnClick(Sender: TObject);</div><div>begin</div><div>  ProgramResetDebugger.OnClick(sender);</div>



<div>  BuildAll.OnClick(sender);</div><div>end;</div><div><br></div><div>file:</div><div><br></div><div>Lazarus-0.9.29-28808-fpc-2.4.3-20101223-win32.exe</div><div><br></div><div>(warning: if I try to say this file to a cdrom then the filename is truncated for Windows compatibility).</div>



<div><br></div><div>Open Location Downloads:</div><div><br></div><div>then select the above file and right mouse click and select properties and permissions tab. Then tick the checkbox </div><div><br></div><div>[x] Allow executing file as program and click the [Close] button.</div>



<div><br></div><div>This is a trick you'll need to do for EVERY Windows(tm) .exe file... So take note. After a while it will be second nature to do this.</div><div><br></div><div>I have WINE 1.3 installed which is the unstable new version. The stable version is 1.3.</div>



<div><br></div><div>Now right mouse click on the file and click on:</div><div><br></div><div>Open With Wine Window Program Loader and click on it.</div><div><br></div><div>Wait about 3 seconds on my system and the install program opens with an option for me to select my language and I picked English</div>



<div><br></div><div>'Next >' x 4 times</div><div><br></div><div>Additional icons</div><div>[x] Create a desktop icon and 'Next >'</div><div><br></div><div>Click on 'Install' and the installation proceeds.</div>



<div><br></div><div>(takes about 20 seconds)</div><div><br></div><div>then click on 'Finish' and the setup dialog closes.</div><div><br></div><div>
Close the Downloads window (Linux Mint 10)</div><div><br></div><div>Desktop icon DOES correctly work and opens Lazarus for Windows </div><div><br></div><div>Menu 'Wine' > 'Lazarus' gives Error 'File not found'.</div>



<div><br></div><div>Menu 'Wine' > 'Browse C: drive' now shows 4 folders:</div><div><br></div><div>lazarus, Program Files, users, windows</div><div><br></div><div>lazarus folder contains 16 folders and 18 files.</div>



<div><br></div><div>It appears to be a good installation at initial inspection.</div><div><br></div><div>Select 'StartLazarus.exe' and Now right mouse click on the file and click on:</div><div><br></div><div>Open With Wine Window Program Loader and click on it.</div>



<div><br></div><div>Lazarus now opens.</div><div><br></div><div>Help / About reports</div><div><br></div><div>Version #: 0.9.29</div><div>Date: 2010-12-23</div><div>FPC Version: 2.4.3</div><div>SVN Revision: 28808</div><div>



i386-win32-win32/win64</div><div><br></div><div>Compile and run gives error:</div><div><br></div><div>Project1 project1 raised exception class 'External: SIGSEGV'</div><div>[OK]</div><div><br></div><div>Run / Reset Debugger</div>



<div><br></div><div>Tools / Configure "Build Lazarus"</div><div><br></div><div>Defines</div><div>[x] Debug</div><div>[x] Verbose</div><div><br></div><div>[Save Settings]</div><div><br></div><div>Tools / Build Lazarus with Profile Build All</div>



<div><br></div><div>Do you want to rebuld Lazarus with profile: Build All</div><div><br></div><div>[Yes]</div><div><br></div><div>Compiles and Builds without errors</div><div><br></div><div>Running the default empty project gives the same error</div>



<div><br></div><div>Project "project1" successfully built.</div><div><br></div><div>runtime error</div><div><br></div><div>Project1 project1 raised exception class 'External: SIGSEGV'</div><div>[OK]</div>



<div><br></div><div>Try again with [x] Examples ON</div><div><br></div><div>Error</div><div>Heap dump by heaptrc unit</div><div>1025279 memory blocks allocated : 134018729/136853672</div><div>1025279 memory blocks freed : 134018729/136853672</div>



<div>0 unfreed memory blocks : 0</div><div>True heap size : 1081344 (144 used in System startup)</div><div>True free heap : 1827632</div><div>Should be : 1081200</div><div><br></div><div>[OK]</div><div><br></div><div>Lazarus restarts</div>



<div><br></div><div>File > Close all editor files </div><div><br></div><div>open location > My computer and find my existing and tested lazarus projects on my external NexStar Lite 250GB drive then I copied and pasted then into my Computer / Home / Public / lazarus_source_code folder</div>



<div><br></div><div>Tools / Configure [ ] Examples (unchecked)</div><div><br></div><div>same error now</div><div><br></div><div>as earier. Memory heap error as above.</div><div><br></div><div><br></div><div>Code from win32object.inc</div>



<div><br></div><div>function TWin32WidgetSet.WinRegister: Boolean;</div><div>var</div><div>  WindowClass: WndClass;</div><div>  WindowClassW: WndClassW;</div><div>begin</div><div>  Assert(False, 'Trace:WinRegister - Start');</div>



<div>  if UnicodeEnabledOS then</div><div>  begin</div><div>    with WindowClassW do</div><div>    begin</div><div>      Style := CS_DBLCLKS;</div><div>      LPFnWndProc := @WindowProc;</div><div>      CbClsExtra := 0;</div>



<div>      CbWndExtra := 0;</div><div>      hInstance := System.HInstance;</div><div>      hIcon := Windows.LoadIcon(MainInstance, 'MAINICON');</div><div>      if hIcon = 0 then</div><div>       hIcon := Windows.LoadIcon(0, IDI_APPLICATION);</div>



<div>      hCursor := Windows.LoadCursor(0, IDC_ARROW);</div><div>      hbrBackground := 0;</div><div>      LPSzMenuName := nil;</div><div>      LPSzClassName := @ClsNameW;</div><div>    end;</div><div>    Result := Windows.RegisterClassW(@WindowClassW) <> 0;</div>



<div>    if Result then</div><div>    begin</div><div>      with WindowClassW do</div><div>      begin</div><div>        style := style or CS_SAVEBITS;</div><div>        if WindowsVersion >= wvXP then</div><div>          style := style or CS_DROPSHADOW;</div>



<div>        hIcon := 0;</div><div>        hbrBackground := 0;</div><div>        LPSzClassName := @ClsHintNameW;</div><div>      end;</div><div>      Result := Windows.RegisterClassW(@WindowClassW) <> 0;</div><div>


    end;</div>
<div>  end</div><div>  else begin</div><div>    with WindowClass do</div><div>    begin</div><div>      Style := CS_DBLCLKS{CS_HRedraw or CS_VRedraw};</div><div>      LPFnWndProc := @WindowProc;</div><div>      CbClsExtra := 0;</div>



<div>      CbWndExtra := 0;</div><div>      hInstance := System.HInstance;</div><div>      hIcon := Windows.LoadIcon(MainInstance, 'MAINICON');</div><div>      if hIcon = 0 then</div><div>       hIcon := Windows.LoadIcon(0, IDI_APPLICATION);</div>



<div>****** ^^^^^^ Excution halts on this line</div><div><br></div><div>with runtime error</div><div><br></div><div>Project1 project1 raised exception class 'External: SIGSEGV'</div><div>[OK]</div><div><br></div>


<div>
My application is fully debugged and tested on lazarus 0.9.28.2</div><div><br></div><div>Crashes on 0.9.29 under Windows WINE 1.3 on Linux Mint 10 (codename Julia)</div><div><br></div><div>      hCursor := Windows.LoadCursor(0, IDC_ARROW);</div>



<div>      hbrBackground := 0;</div><div>      LPSzMenuName := nil;</div><div>      LPSzClassName := @ClsName; </div><div>    end;</div><div>    Result := Windows.RegisterClass(@WindowClass) <> 0;</div><div>    if Result then</div>



<div>    begin</div><div>      with WindowClass do</div><div>      begin</div><div>        style := style or CS_SAVEBITS;</div><div>        if WindowsVersion >= wvXP then</div><div>          style := style or CS_DROPSHADOW;</div>



<div>        hIcon := 0;</div><div>        hbrBackground := 0;</div><div>        LPSzClassName := @ClsHintName;</div><div>      end;</div><div>      Result := Windows.RegisterClass(@WindowClass) <> 0;</div><div>    end;</div>



<div>  end;</div><div>  Asser</div><div><br></div><div>t(False, 'Trace:WinRegister - Exit');</div><div>end;</div><div><br></div><div>--- end</div><div><br></div><div><br></div><div>Peter Eric Williams</div><div>/pew</div>



<div><br></div><div>--- End of file</div><div>Merry Christmas 2010</div><div>(Christmas Eve 2010 Hobart time Australia) </div><div><br></div><div>Happy Debugging you fantastic developers of Lazarus. </div><div><br></div>


<div>
When can we please expect to see 0.9.30 of Lazarus released as a new stable version?</div><div><br></div>Fond Regards, Peter Eric WILLIAMS <br>--- Hobart, Tasmania, Australia<br>--- Phone: +61 (03) 6236-9675<br>My free websites are:  <a href="http://pewink.info" target="_blank">http://pewink.info</a>   (&)<br>



   <a href="http://pewslinuxvault.googlepages.com" target="_blank">http://pewslinuxvault.googlepages.com</a><br>
</div><br>
</div></div></div><br>