Implements a control which can paint its client area with optional borders.

toolwin.pp implements a control which can paint its client area with optional borders using a raised or lowered drawing style. It defines the common ancestor for controls like TToolBar and TCoolBar.

Enumeration with values that indicate the border edges to draw in TToolWindow.

TEdgeBorder is an enumeration type with values that indicate the border edges to draw in TToolWindow. Values in TEdgeBorder are stored in the TEdgeBorders set type.

Draws the border on the left edge of the control.
Draws the border on the top edge of the control.
Draws the border on the right edge of the control.
Draws the border on the bottom edge of the control.
Set used to store TEdgeBorder enumeration values.

TEdgeBorders is a set type used to store values from the TEdgeBorder enumeration. TEdgeBorders is the type used for the TToolWindow.EdgeBorders property.

Enumeration type with values that specify the drawing style for borders.

TEdgeStyle is an enumeration type with values that specify the drawing style for borders on a control. TEdgeStyle is the type used to implement the TToolWindow.EdgeInner and TToolWindow.EdgeOuter properties.

No edge style is used.
Edge is drawn with a raised appearance.
Edge is drawn with a lowered or sunken appearance.
Implements a control which can paint its client area with borders.

TToolWindow is a TCustomControl which supports sizing and drawing its client area with borders. TToolWindow contains properties used to specify the borders (inner and outer) for the control. Methods are provided which adjust the client rectangle for the control, and paint the control to its canvas handle with the desired border edges and style.

TToolWindow is the ancestor for TToolBar and TCoolBar.

TCustomControl TToolbar TCustomCoolbar TCoolbar
Sets the value in the EdgeBorders property.
New value for the property.
Sets the value for the EdgeInner property.
New value for the property.
Sets the value in the EdgeOuter property.
New value for the property.
Internal counter used in BeginUpdate and EndUpdate.
Adjusts the client rectangle when borders are drawn for the control.

AdjustClientRect is a procedure used to adjust the specified client rectangle when borders are drawn for the control. AdjustClientRect ensures that the client rectangle is increased in size according to values in EdgeBorders and the drawing styles in EdgeOuter and EdgeInner.

Client rectangle for the control.
Draws the control with the borders and style needed.

Paint is an overridden procedure that draws the control with the borders and styles indicated in EdgeBorders, EdgeInner, and EdgeOuter. Paint calls DrawEdge to render the control, and calls the inherited Paint method.

Constructor for the class instance.

Create is the constructor for the class instance, and calls the inherited constructor using TheOwner as the owner of the control. Create sets the default values for the following properties:

EdgeBorders
  Set to the value [ebLeft, ebTop, ebRight, ebBottom]
EdgeInner
  esRaised
EdgeOuter
  esLowered

Owner of the class instance.
Increments the internal counter for buffering calls to Update.
Decrements the internal counter for buffering calls to Update.
Indicates the edges to be drawn with a border on the control.

EdgeBorders is a TEdgeBorders property that indicates the edges to be drawn with a border on the control. The default value for EdgeBorders is [ebLeft, ebTop, ebRight, ebBottom]. EdgeBorders is used in the Paint method to render the control with borders in the specified positions with the drawing style in EdgeInner and EdgeOuter.

Specifies the drawing style used for the inner border of the control.

EdgeInner is a TEdgeStyle property that specifies the drawing style used for the inner border of the control. The default value for the property is esRaised.

EdgeInner is used, along with EdgeOuter, to give the control a beveled 3D appearance. Use EdgeOuter to control the drawing style for the outer border on the control.

Use EdgeBorders to specify the positions (for both inner and outer) where borders are drawn.

Specifies the drawing style used for the outer border of the control.

EdgeOuter is a TEdgeStyle property that specifies the drawing style used for the outer border of the control. The default value for the property is esLowered.

EdgeOuter is used, along with EdgeInner, to give the control a beveled 3D appearance. Use EdgeInner to control the drawing style for the inner border on the control.

Use EdgeBorders to specify the positions (for both inner and outer) where borders are drawn.