<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="City"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="country-region"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PlaceName"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PlaceType"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle18
{mso-style-type:personal;
font-family:Arial;
color:windowtext;}
span.EmailStyle20
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body bgcolor=white lang=EN-GB link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><b><font size=2 face=Tahoma><span lang=EN-US
style='font-size:10.0pt;font-family:Tahoma;font-weight:bold'>> From:</span></font></b><font
size=2 face=Tahoma><span lang=EN-US style='font-size:10.0pt;font-family:Tahoma'>
delphi-bounces@ns3.123.co.nz [mailto:delphi-bounces@ns3.123.co.nz] <b><span
style='font-weight:bold'>On Behalf Of </span></b>Todd Martin<br>
<br>
</span></font></p>
<div>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>> </span></font><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>I
suppose there is a good reason why the constructor sets the X
value to 1.0, but is it <font color=navy><span style='color:navy'><o:p></o:p></span></font></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>> </span></font><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>absolutely
necessary, since it can be set at design time in the object editor?<font
color=navy><span style='color:navy'><o:p></o:p></span></font></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>It could be done at design time but this
is for an OpenGL component and the viewer position is set so that – <b><i><span
style='font-weight:bold;font-style:italic'>with the default values</span></i></b>
– there is something (a cube) that can be seen BEFORE the user adds their
own paint method/drawing commands. Having spent many hours getting lost with
misunderstanding of how everything works, I thought I’d make the default
values display something sensible.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Anyway, even apart from that, if you
specify zero – if it’s not going to store the value you specify for
you (which it should), then a warning message should be displayed!<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Cheers<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Giovanni<o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> <o:p></o:p></span></font></p>
</div>
<blockquote style='border:none;border-left:solid black 1.5pt;padding:0cm 0cm 0cm 4.0pt;
margin-left:3.75pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'>
<div>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>----- Original Message ----- <o:p></o:p></span></font></p>
</div>
<div style='font-color:black'>
<p class=MsoNormal style='background:#E4E4E4'><b><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial;font-weight:bold'>From:</span></font></b><font
size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'> <a
href="mailto:G.Moretti@massey.ac.nz" title="G.Moretti@massey.ac.nz">Moretti,
Giovanni</a> <o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><b><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial;font-weight:bold'>To:</span></font></b><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'> <a
href="mailto:delphi@ns3.123.co.nz" title="delphi@ns3.123.co.nz">NZ Borland
Developers Group - Delphi List</a> <o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><b><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial;font-weight:bold'>Sent:</span></font></b><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'> Thursday, December
01, 2005 3:42 PM<o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><b><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial;font-weight:bold'>Subject:</span></font></b><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'> [DUG] Zero-valued
Real Properties not being stored to .DFM file???(D7 <st1:City w:st="on"><st1:place
w:st="on">Enterprise</st1:place></st1:City>)<o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
</div>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt'>I'm using Delphi 7 Enterprise and I've finally tracked
down why some properties that can be changed in the object inspector don't have
any effect.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>I’ve written a component
that contains a real Published Property X of type REAL:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - X is initialised in the
Constructor to +1<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - I change X to ZERO
using the object inspector<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - I run the program and
find that X still has its initialised value (+1)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>AAARGH - it's taken quite a
while to find out why and it's (as usual) a single line buried in the help:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>"STORAGE SPECIFIERS"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> "For Reals, pointer
and strings there is an implicit default value of ZERO"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>And it seems the values aren't
streamed from the object inspector into the .DFM file unless they differ from
the ASSUMED default (which is to be ZERO but in my case is actually +1 !!!<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>To me this seems like a
definite bug - you change a value in the Object Inspector at Design-time but it
doesn't make it to the .DFM file and has no effect on the executable.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Setting STORED on the Property
line doesn't help and for Reals you can't specify a DEFAULT value).<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Has this been fixed in later
versions of <st1:place w:st="on">Delphi</st1:place>? <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Any suggested work-arounds (such
as storing 1E-8 instead of zero). This component has several sets of X/Y/Z
coords and I really don’t want have to maintain another a dozen tiny
procedures each of which changes zero to 1E-8 …<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Thanks<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Giovanni<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'>=====================================================================<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'>Giovanni Moretti
| <st1:place w:st="on"><st1:PlaceType w:st="on">Institute</st1:PlaceType>
of <st1:PlaceName w:st="on">Information Sciences</st1:PlaceName></st1:place>
and Technology<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'>Senior Lecturer
| <st1:PlaceName w:st="on">Massey</st1:PlaceName> <st1:PlaceType w:st="on">University</st1:PlaceType>,
Palmerston North, <st1:place w:st="on"><st1:country-region w:st="on">New
Zealand</st1:country-region></st1:place><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'>Computer Science
| Ph 64-6-3505799x2474 =Fax 64-6-3502259 == ZL2BOI <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'>=====================================================================<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'><a
href="http://www-ist.massey.ac.nz/moretti">http://www-ist.massey.ac.nz/moretti</a>
<a href="mailto:G.Moretti@massey.ac.nz">mailto:G.Moretti@massey.ac.nz</a></span></font><o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center>
</span></font></div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>_______________________________________________<br>
<st1:place w:st="on">Delphi</st1:place> mailing list<br>
Delphi@ns3.123.co.nz<br>
http://ns3.123.co.nz/mailman/listinfo/delphi<o:p></o:p></span></font></p>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center>
</span></font></div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>No virus found in this incoming message.<br>
Checked by AVG Free Edition.<br>
Version: 7.1.362 / Virus Database: 267.13.10/188 - Release Date: 29/11/2005<o:p></o:p></span></font></p>
</blockquote>
</div>
</body>
</html>