[Lazarus] Frame3D

[Juha Manninen]

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?

Juha