<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
<span class="Apple-style-span" style="color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; "><pre style="line-height: 17px; white-space: normal; ">Hi All,</pre><pre style="line-height: 17px; white-space: normal; ">I am unable to debug this error. Can someone please download the sample application which gives this error and tell me what am I doing wrong?</pre><pre style="line-height: 17px; white-space: normal; ">Download link: <br><a href="http://hotfile.com/dl/109861372/9072f69/island_maker_laz_001a.zip.html" target="_blank" style="line-height: 17px; font-weight: inherit; text-decoration: underline; color: rgb(97, 166, 236); cursor: default; ">http://hotfile.com/dl/109861372/9072f69/island_maker_laz_001a.zip.html</a></pre><pre style="line-height: 17px; white-space: normal; ">(zip archive of source and exe, 4028 KB).</pre></span><div>OS - Windows 7 Ultimate 32 Bit</div><div>Lazarus 0.9.31</div><div><br></div><div>nb - error occurs immediately on run of project (F9)</div><div><br></div><div>Best Regards,</div><div>PEW</div><div>Hobart, Australia</div><br><hr id="stopSpelling">From: pewilliams2010@live.com<br>To: lazarus@lazarus.freepascal.org<br>Subject: exception class 'EReadError' with message Invalid value for property (onClick event in TMenuItem)<br>Date: Sat, 12 Mar 2011 06:07:46 +1100<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><font class="ecxApple-style-span" face="Tahoma" size="2">Hi Lazarus List,</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">I am encountering a strange run time error... </font><span class="ecxApple-style-span" style="font-family:Tahoma;font-size:10pt">Project island_maker.exe raised exception class 'EReadError' with message Invalid value for property</span></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">Error reading CreateaNewIsland1.OnClick: Invalid value for property</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">procedure TForm1.CreateANewIslandClick(Sender: TObject);</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">begin</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> make_an_island;</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">end; { CreateaNewIslandClick }</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">{--------------------------------------------------------------------}</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">// where make_an_island is procedure TForm1.make_an_island;</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">object Form1: TForm1</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Left = 131</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Height = 585</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Top = 47</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Width = 917</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Caption = 'Form1'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> ClientHeight = 565</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> ClientWidth = 917</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Menu = MainMenu1</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> LCLVersion = '0.9.31'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object Memo1: TMemo</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Left = 0</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Height = 565</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Top = 0</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Width = 917</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Align = alClient</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> TabOrder = 0</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object MainMenu1: TMainMenu</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> left = 64</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> top = 48</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object File1: TMenuItem</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Caption = '&File'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object CreateANewIsland: TMenuItem</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Caption = '&Create A New Island'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> OnClick = CreateANewIslandClick</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object SaveIslandToFile: TMenuItem</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Caption = '&Save Island To File'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> OnClick = SaveIslandToFileClick</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object Options: TMenuItem</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> Caption = '&Options'</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> OnClick = OptionsClick</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> object SaveDialog1: TSaveDialog</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> left = 131</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> top = 48</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="ecxApple-style-span" face="Tahoma" size="2">end</font></div><div style="font-family:Tahoma;font-size:10pt"><br></div> </body>
</html>