<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
On 01/05/12 14:56, Juha Manninen wrote:
<blockquote
cite="mid:CAPN1EhC_kkrgVhhDMjyedvi4nYjcXmw2Jzgtv-a2D04B6rO0Pg@mail.gmail.com"
type="cite">
<div class="gmail_quote">On Mon, Apr 30, 2012 at 11:15 PM, Frank
Church <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:vfclists@gmail.com" target="_blank">vfclists@gmail.com</a>></span>
wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
In 0.9.30 it is defined in lclintf.h as<br>
<br>
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth :
integer; const Style : TGraphicsBevelCut): Boolean; {$IFDEF
IF_BASE_MEMBER}virtual;{$ENDIF} and is also in the Graphics
unit as procedure Frame3d(var ARect: TRect; const
FrameWidth: integer; const Style: TGraphicsBevelCut); virtual;<br>
<br>
The control I am working with, TJanPanelButton uses the
signature in lclintfh.inc calling it as Frame3d(
Self.Canvas.Handle, R, FFrameWidth, bvRaised ); <br>
<br>
Juha Mahinnen added a patch to Extctrls to match the Delphi
implementation here - <a moz-do-not-send="true"
href="http://docwiki.embarcadero.com/Libraries/en/Vcl.ExtCtrls.Frame3D"
target="_blank">http://docwiki.embarcadero.com/Libraries/en/Vcl.ExtCtrls.Frame3D</a>.
Although it matches the Delphi definition is it in the wrong
place as it affects the apparently original Lazarus
implementation?<br>
<br>
In the mean time I have to ifdef it and call
Self.Canvas.Frame3D(R, FFrameWidth, bvRaised ) instead of
Frame3d( Self.Canvas.Handle, R, FFrameWidth, bvRaised ) which
matches the definition of TCanvas in Graphics. Is that any
good?<br>
</blockquote>
<div><br>
I am not sure if I understand the problem. Is there an
ambiguity between this :<br>
Frame3d( Self.Canvas.Handle, R, FFrameWidth, bvRaised );<br>
and this :<br>
Self.Canvas.Frame3D(R, FFrameWidth, bvRaised );<br>
</div>
</div>
</blockquote>
<br>
I think he wants to use<br>
LCLIntf.Frame3d(DC: HDC; var ARect: TRect; const FrameWidth :
integer; const Style : TGraphicsBevelCut): Boolean<br>
<br>
In that case, he must add LCLIntf to his uses clause.<br>
<br>
Stephano<br>
</body>
</html>