[Lazarus] Frame3D

[Diogo Piçarra]

A Sexta 16 Abril 2010 14:50:04 Paul Ishenin você escreveu:
> 16.04.2010 17:01, Juha Manninen wrote:
> > I am trying to port ESSModel Delphi program.
> > 
> > There is:
> >      Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
> > 
> > the best replacement in LCL I found is:
> >      Canvas.Frame3D(Rect, BevelWidth, bvLowered);
> > 
> > but it has a very different parameter signature.
> > The original has 2 TColor parameters.
> > How to port it properly?
> 
> Usually Frame3D is used with clBtnHighlight, clBtnShadow colors - to
> draw raised or lowered surface. The best match on most widgetset would
> be to use Canvas.Frame3D for that purpose - then surface will look more
> native.
> 
> But if you need paticular colors and the same as in delphi Frame3D look
> then just use the same algorithm as in delphi: Left, Top sides are drawn
> with TopColor, Right,Bottom with BottomColor.

There's already an Frame3D implementation in the bugtracker:
http://bugs.freepascal.org/view.php?id=8328

Thx
Diogo Piçarra