TSMBevel component

SMBevel component
Inherited from TBevel class with the extended features. Additionally to standard styles is able to display simple lines (not raised and not lowered). New figures also are added: diagonal lines and beautiful in-out frame, star, triangle and octagon figures. Any line can contain to display an arrow (a few different styles, sizes and place).
4K	Last updated: September 14, 2004
D3-7, CB3-6	Freeware (with sources): SMBevel.zip

TSMBevel - 13153 bytes

Additionally to standart Styles (mbsLowered, mbsRaised) I add a new style mbsNone - usual line or triangle
Additionally to standart Shapes (mbsBox, mbsBoxIn, mbsFrame, mbsTopLine, mbsBottomLine, mbsLeftLine, mbsRightLine) I add the new shapes:

mbsBoxIn - beautiful frame
mbsTopLeftLine - diagonal right-to-left line
mbsTopRightLine - diagonal left-to-right line
mbsTriangle - standard triangle figure
mbsOctogon - standard octogon figure
mbsStar - star figure

For all line types you can define an "arrow" mode (if Style not in [mbsBox, mbsBoxIn, mbsFrame]):
1. Arrow property:

smaFinish - arrow on end line
smaStart - arrow on start line
smaNone - arrow not available

2. ArrowType property:

atOutline - drawing a arrow contour only
atSolid - drawing a fill arrow

3. ArrowAngle property - angle of the arrow deviation from main line (in degrees)
4. ArrowLength property - length of oblique side

PS By Tommy Dillard request (dillard@cyberramp.net):
1. added two properties TopColor/BottomColor - colors for Raised/Lowered lines
2. fixed error: not properly drawed an arrow in case with Arrow = smaFinish and Shape = mbsTopRightLine