Bevel

Description

The Bevel class implements bevelled boxes and lines, typically used as separators and layout panels in dialogs. Use the where property to define the rectangle containing the bevel, and style property to set the type and appearance:

0  The entire client area appears lowered or raised
1  The client area is outlined by a lowered or raised frame.
2  The bevel displays a line at the top of the client area.
3  The bevel displays a line at the bottom of the client area.
4  The bevel displays a line at the left side of the client area.
5  The bevel displays a line at the right side of the client area.
6  The bevel is an empty space.

You can also optionally add 8 to this value, to make the bevel raised rather than lowered.

Note: A Bevel is a purely geometric object. It cannot be the parent of other controls.

Example

     ∇DEMO_Bevel;DEMO
[1]   ⍝ Sample function demonstrating use of the Bevel object
[2]   DEMO←'⎕' ⎕NEW 'Dialog' ⋄ DEMO.where←4 4 ⋄ DEMO.scale←1 ⋄ DEMO.size←16 40
[3]   DEMO.title←'Bevel Example'
[4]   ⍝
[5]   ⍝ Bevel as horizontal line
[6]   DEMO.Bevel1.New 'Bevel' ⋄ DEMO.Bevel1.where←2 0 1 40 ⋄ DEMO.Bevel1.style←2
[7]   ⍝
[8]   ⍝ Bevel as lowered rectangle
[9]   DEMO.Bevel2.New 'Bevel' ⋄ DEMO.Bevel2.where←4 1 8 38 ⋄ DEMO.Bevel2.style←0
[10]  DEMO.Button.New 'Button' ⋄ DEMO.Button.where←6 15 3 12
[11]  DEMO.Button.caption←'Action'
[12]  ⍝
[13]  ⍝ Wait for the user to close the window
[14]  0 0⍴⎕WE DEMO
     ∇

Properties

align anchors aquaadjust autodraw caption children class color data dragsource droptarget enabled events extent maxsize methods minsize name opened pointer properties scale self size sourceformats style targetformats tie units visible where

Methods

Click Clienttoscreen Close Create Delete Hide New Open Paint Resize Screentoclient Send Set Show Trigger

Callbacks

onClick onClose onDblClick onDestroy onDragDrop onDragEnd onDragEnter onDragLeave onDragOver onDragStart onHide onMouseDown onMouseMove onMouseUp onOpen onSend onShow