Some Properties to TPanel (so much needed)

Forum > LCL

(1/1)

Gald:
Actual:
BevelColor
BevelInner
BevelOuter
BevelWidth

Improved:
BevelInner
BevelInnerWidth
BevelInnerColor

BevelOuter
BevelOuterWidth
BevelOuterColor

There's only one Color and Width to both, Inner and Outer, so they are mixing together.
This little improvement will change everything!

---

An additional request is that we have BevelStyles bvLowered, bvNone, bvRaised and bvSpace.
Honestly, I can't see the difference between them. Sorry. :-[

It's possible to add bvShadow and bvGlow?

Blaazen:
@ Honestly, I can't see the difference between them. Sorry.

They make different visual 3D effects in combination:

BevelOuterBevelInnerEffectbvRaisedbvNoneraised box (default)bvLoweredbvNonelowered boxbvRaisedbvLoweredraised framebvLoweredbvRaisedlowered frame
See also TBevel. It can draw simiral bevels but it is not a container.

AlexTP:
So you suggest to add

BevelInnerWidth
BevelInnerColor

BevelOuterWidth
BevelOuterColor
?
I do not agree, they are very rarely needed, do this painting in OnPaint.

lainz:
Create your own custom panel, is hard to modify old code that is supposed to work in a retro compatible way.

Gald:

--- Quote ---They make different visual 3D effects in combination
--- End quote ---

Okay, it seems to work only when BevelColor is clDefault.

--- Quote ---See also TBevel. It can draw similar Bevels but it is not a container.
--- End quote ---

I saw that, but TBevel doesn't have colors while TShape doesn't have TopLine, BottonLine, LeftLine and RightLine, like a TBevel.
And like you said, it is not a container.

The real good thing should be a TPanel with:

BevelTopInner
BevelTopInnerWidth
BevelTopInnerColor

BevelTopOuter
BevelTopOuterWidth
BevelTopOuterColor

BevelLeftInner
BevelLeftInnerWidth
BevelLeftInnerColor

BevelLeftOuter
BevelLeftOuterWidth
BevelLeftOuterColor

BevelRightInner
BevelRightInnerWidth
BevelRightInnerColor

BevelRightOuter
BevelRightOuterWidth
BevelRightOuterColor

BevelBottomInner
BevelBottomInnerWidth
BevelBottomInnerColor

BevelBottomOuter
BevelBottomOuterWidth
BevelBottomOuterColor

I've made a quickie sample to demonstrate what I mean.

Navigation

[0] Message Index