<br><br><div class="gmail_quote">On 5 August 2011 12:20, Frank Church <span dir="ltr"><<a href="mailto:vfclists@gmail.com">vfclists@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<br>I am installing a component that works okay in 0.9.31 and the definition of the Frame3D function in extctrls.pp has changed. <br><br>The definition in 0.9.30 is not in extctrls.pp. Where is it defined in previous versions?<br>

<br>The component uses<br><br><blockquote style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;" class="gmail_quote"> Frame3D( Self.Canvas.Handle, R, FFrameWidth, bvRaised );<br>
</blockquote>
<br>and the definition in 0931 is below.<br><br><blockquote style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;" class="gmail_quote">// Wrapper function for TCanvas.Frame3D.<br>

procedure Frame3D(ACanvas: TCanvas; var ARect: TRect;<br>  TopColor, BottomColor: TColor; const FrameWidth: integer);<br>begin<br>  ACanvas.Frame3D(ARect, TopColor, BottomColor, FrameWidth);<br>end;<br></blockquote><br clear="all">

<br>Top and bottom colour are included and FrameWidth is ignored. <br><br>Is there some other wrapper to make the old code compatible with this one, or does it have to forego the style property altogether, and fill in something for the colors?<br>

<br></blockquote><div><br><br>In Graphics.pp there are 2 definitions of Frame3d and the one in extcrtls.pp matches the second one.<br><br>I am not that familiar with the LCL internals and it is something I'd rather not fiddle with<br>

<br>Can't the first one also be declared and implemented in a similar style?<br><br><br><blockquote style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;" class="gmail_quote">
    procedure Frame3d(var ARect: TRect; const FrameWidth: integer;<br>                      const Style: TGraphicsBevelCut); virtual;<br>    procedure Frame3D(var ARect: TRect; TopColor, BottomColor: TColor;<br>                      const FrameWidth: integer); overload;<br>
<br></blockquote> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">PS.<br><font color="#888888">-- <br>Frank Church<br><br>=======================<br>
<a href="http://devblog.brahmancreations.com" target="_blank">http://devblog.brahmancreations.com</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>Frank Church<br><br>=======================<br><a href="http://devblog.brahmancreations.com">http://devblog.brahmancreations.com</a><br>