<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hello<br>
<br>
i'm trying to port a small delphi componant that i use in one app
ported to Lazarus.<br>
The componentnt build without problem with <b><span
style="color: rgb(128, 128, 128);">{$MODE DELPHI}</span></b> but when
i'm in Lazarus ide, if i close a form containing this component, i give
a violation access error in my component This error does not occur
runnig the application stand alone.<br>
<br>
I have try to build the component in FPC mode but the compilation fail
with error:<br>
<br>
Error: Illegal type conversion: "Int64" to "TFont" <br>
<br>
in line<br>
<br>
<pre class="alt2" dir="ltr"
style="border: 1px inset ; margin: 0px; padding: 6px; overflow: auto; width: 640px; height: 50px; text-align: left;">Result := TFont<span
style="">(</span>GetOrdProp<span style="">(</span>Component, ptrPropInfo<span
style="">)</span><span style="">)</span><span style="">)</span>;</pre>
<br>
of the function<br>
<br>
<pre class="alt2" dir="ltr"
style="border: 1px inset ; margin: 0px; padding: 6px; overflow: auto; width: 640px; height: 162px; text-align: left;"><span
style="color: rgb(0, 0, 255);">function</span> GetCompFont<span
style="">(</span>Component : TComponent<span style="">)</span> : TFont;
<span style="color: rgb(0, 0, 255);">var</span> ptrPropInfo : PPropInfo;
<span style="color: rgb(0, 0, 255);">begin</span>
ptrPropInfo := GetPropInfo<span style="">(</span>Component.<span
style="">ClassInfo</span>, <span style="color: rgb(255, 0, 0);">'Font'</span><span
style="">)</span>;
<span style="color: rgb(0, 0, 255);">if</span> ptrPropInfo = <span
style="color: rgb(0, 0, 255);">nil</span> <span
style="color: rgb(0, 0, 255);">then</span>
Result := <span style="color: rgb(0, 0, 255);">nil</span>
<span style="color: rgb(0, 0, 255);">else</span>
Result := TFont<span style="">(</span>GetOrdProp<span style="">(</span>Component, ptrPropInfo<span
style="">)</span><span style="">)</span><span style="">)</span>;
<span style="color: rgb(0, 0, 255);">end</span>;</pre>
<br>
maybe in delphi mode the type casting is wrong getPropInfo return an
Int64<br>
<br>
can anyone help me<br>
<br>
thank <br>
claude<br>
(sorry for my bad english)<br>
<br>
</body>
</html>