<?xml version="1.0" encoding="UTF-8"?>
<!--

Documentation for LCL (Lazarus Component Library) and LazUtils (Lazarus 
Utilities) are published under the Creative Commons Attribution-ShareAlike 4.0 
International public license.

https://creativecommons.org/licenses/by-sa/4.0/legalcode.txt
https://gitlab.com/freepascal.org/lazarus/lazarus/-/blob/main/docs/cc-by-sa-4-0.txt

Copyright (c) 1997-2025, by the Lazarus Development Team.

-->
<fpdoc-descriptions>
<package name="lcl">
<!--
====================================================================
ButtonPanel
====================================================================
-->
<module name="ButtonPanel">
<short>Provides a panel with buttons using glyph images.</short>
<descr>
<p>
<file>buttonpanel.pas</file> contains classes and types used to implement 
<var>TButtonPanel</var>, a panel which contains common buttons used in an 
application form. It is part of the Lazarus Component Library (<b>LCL</b>).
</p>
<p>
The following components are added to the Lazarus IDE:
</p>
<p>
<b>Misc</b> Tab
</p>
<ul>
<li>TButtonPanel</li>
</ul>
</descr>

<!-- unresolved references -->
<element name="Math"/>
<element name="Types"/>
<element name="SysUtils"/>
<element name="Classes"/>
<element name="LCLType"/>
<element name="LMessages"/>
<element name="Controls"/>
<element name="ExtCtrls"/>
<element name="StdCtrls"/>
<element name="Buttons"/>
<element name="Forms"/>
<element name="Graphics"/>
<element name="Themes"/>
<element name="GraphType"/>

<element name="TButtonOrder">
<short>
Enumerated type with the display order used for buttons on TButtonPanel.
</short>
<descr>
<p>
<var>TButtonOrder</var> is an enumeration with values which indicate the 
display order used for buttons on <var>TCustomButtonPanel</var> and 
<var>TButtonPanel</var>.
</p>
<p>
The value <var>boDefault</var> has a special meaning, and causes the button 
order to be set to the sequence normally used for the platform or operating 
system.
</p>
<p>
For example:
</p>
<dl>
<dt>UNIX-like environments</dt>
<dd>Uses Ok, Cancel, Close, and Help button order.</dd>
<dt>All other platforms</dt>
<dd>Uses Cancel, Ok, Close, and Help button order.</dd>
</dl>
<p>
TButtonOrder is the type used to implement the 
<var>TCustomButtonPanel.ButtonOrder</var> property.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ButtonOrder"/>
<link id="TButtonPanel"/>
</seealso>
</element>
<element name="TButtonOrder.boDefault">
<short>
Uses the common button order for the platform or operating system.
</short>
</element>
<element name="TButtonOrder.boCloseCancelOK">
<short>Use the button order Close, Cancel, OK, Help.</short>
</element>
<element name="TButtonOrder.boCloseOKCancel">
<short>Use the button order Close, OK, Cancel, Help.</short>
</element>

<element name="TPanelButtonEx">
<short>
Enumeration with values that represent the buttons used on TButtonPanel.
</short>
<descr>
<p>
<var>TPanelButtonEx</var> is an enumeration type with values which represent 
the default button used on <var>TButtonPanel</var>. Values from the 
enumeration (except for pbNone) are used to define the TPanelButton type.
</p>
</descr>
<seealso>
<link id="TPanelButton"/>
<link id="TCustomButtonPanel.DefaultButton"/>
</seealso>
<version>
Added in LCL version 2.3.0.
</version>
</element>
<element name="TPanelButtonEx.pbOK">
<short>Represents the OK button on the panel.</short>
</element>
<element name="TPanelButtonEx.pbCancel">
<short>Represents the Cancel button on the panel.</short>
</element>
<element name="TPanelButtonEx.pbClose">
<short>Represents the Close button on the panel.</short>
</element>
<element name="TPanelButtonEx.pbHelp">
<short>Represents the Help button on the panel.</short>
</element>
<element name="TPanelButtonEx.pbNone">
<short>
Indicates that a button is not enabled as the default button on a button 
panel.
</short>
</element>

<element name="TPanelButton">
<short>
Represents the visible buttons and glyphs used on a TButtonPanel control.
</short>
<descr>
<p>
<var>TPanelButton</var> is a range type with values which represent the 
visible buttons and glyphs used on <var>TButtonPanel</var>. Values in 
TPanelButton are stored in the TPanelButtons collection type, and used in the 
ShowButtons and ShowGlyphs properties in TButtonPanel control.
</p>
</descr>
<seealso>
<link id="TPanelButtons"/>
<link id="TButtonPanel.ShowButtons"/>
<link id="TButtonPanel.ShowGlyphs"/>
</seealso>
<version>
Changed to a range type in LCL version 2.3.0.
</version>
</element>

<element name="TPanelButtons">
<short>Set type used to store TPanelButton values.</short>
<descr>
<p>
<var>TPanelButtons</var> is a set type used to store enumeration values from 
<var>TPanelButton</var>. <var>TPanelButtons</var> is the type used to 
implement the <var>ShowButtons</var> and <var>ShowGlyphs</var> properties in 
<var>TButtonPanel</var>.
</p>
</descr>
<seealso>
<link id="TPanelButton"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TCustomButtonPanel.ShowGlyphs"/>
</seealso>
</element>

<element name="DefShowButtons">
<short>
Defines the default buttons displayed on a TButtonPanel instance.
</short>
<descr>
<p>
<var>DefShowButtons</var> is a set constant which contains the default 
buttons displayed on a button panel instance. DefShowButtons provides the 
default value for the <var>ShowButtons</var> property in 
<var>TCustomButtonPanel</var>.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TCustomButtonPanel.ShowGlyphs"/>
</seealso>
</element>

<element name="DefShowGlyphs">
<short>
Defines the default glyphs displayed for the buttons on a button panel 
instance.
</short>
<descr>
<p>
<var>DefShowGlyphs</var> is a set constant which contains the default glyphs 
displayed for the buttons on a button panel. DefShowGlyphs provides the 
default value for the <var>ShowGlyphs</var> property in 
<var>TCustomButtonPanel</var>.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowGlyphs"/>
<link id="TCustomButtonPanel.ShowButtons"/>
</seealso>
</element>

<element name="TPanelBitBtn">
<short>Implements the buttons displayed for TButtonPanel.</short>
<descr>
<p>
<var>TPanelBitBtn</var> is a TCustomBitBtn descendant used to implement the 
buttons displayed for <var>TButtonPanel</var>. <var>TPanelBitBtn</var> is the 
type used to implement the <var>OKButton</var>, <var>HelpButton</var>, 
<var>CloseButton</var>, and <var>CancelButton</var> properties in 
<var>TButtonPanel</var>.
</p>
<p>
<var>TPanelBitBtn</var> includes an overridden constructor to mark its use as 
a sub-component. It also sets the visibility, storage specifiers, and default 
values for properties inherited from ancestors classes.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.OKButton"/>
<link id="TCustomButtonPanel.CancelButton"/>
<link id="TCustomButtonPanel.CloseButton"/>
<link id="TCustomButtonPanel.HelpButton"/>
<link id="#lcl.buttons.TCustomBitBtn">TCustomBitBtn</link>
</seealso>
</element>

<element name="TPanelBitBtn.Create">
<short>Constructor for the class instance.</short>
<descr>
<p>
<var>Create</var> is the overridden constructor for the class instance. 
<var>Create</var> calls the inherited method, and calls 
<var>SetSubComponent</var> to indicate that the component is used as a 
sub-component in the parent control.
</p>
</descr>
<seealso>
<link id="#LCL.Buttons.TCustomBitBtn.Create">TCustomBitBtn.Create</link>
</seealso>
</element>
<element name="TPanelBitBtn.Create.AOwner">
<short>Owner for the class instance.</short>
</element>

<element name="TPanelBitBtn.Caption" link="#LCL.Controls.TControl.Caption"/>

<element name="TPanelBitBtn.DefaultCaption">
<short>
Indicates if the Caption for the button contains a default value.
</short>
<descr>
<p>
<var>DefaultCaption</var> determines if the value in <var>Caption</var> is 
included in the LCL component streaming mechanism; <var>Caption</var> is 
stored for the component when <var>DefaultCaption</var> is <b>False</b>.
</p>
</descr>
<seealso>
<link id="TPanelBitBtn.Caption"/>
</seealso>
</element>

<element name="TPanelBitBtn.Left">
<short>Contains the Left pixel coordinate for the button.</short>
<descr>
<p>
<var>Left</var> is not a stored property value in the LCL component streaming 
mechanism. Its value it always calculated the button position relative to the 
parent control for the component.
</p>
</descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.Top">
<short>Contains the Top pixel coordinate for the button.</short>
<descr>
<p>
<var>Top</var> is not a stored property value in the LCL component streaming 
mechanism. Its value it always calculated the button position relative to the 
parent control for the component.
</p>
</descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.Width">
<short>Contains the Width in pixels for the button.</short>
<descr>
<p>
<var>Width</var> is not a stored property value in the LCL component 
streaming mechanism. Its value it always calculated the button position 
relative to the parent control for the component.
</p>
</descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.Height">
<short>Contains the Height in pixels for the button.</short>
<descr>
<p>
<var>Height</var> is not a stored property value in the LCL component 
streaming mechanism. Its value it always calculated the button position 
relative to the parent control for the component.
</p>
</descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.Enabled" link="#LCL.Controls.TControl.Enabled"/>
<element name="TPanelBitBtn.Font" link="#LCL.Controls.TControl.Font"/>
<element name="TPanelBitBtn.Glyph" link="#LCL.Buttons.TCustomBitBtn.Glyph"/>

<element name="TPanelBitBtn.Name">
<short>Name or identifier assigned for the button.</short>
<descr>
<p>
<var>Name</var> is a String property with the identifier assigned to the 
button to indicates its usage in <var>TButtonPanel</var>. <var>Name</var> 
contains a constant value like 'OKButton', 'CancelButton', 'CloseButton', or 
'HelpButton'. The value in <var>Name</var> is assigned when the button is 
created in the <var>CreateButton</var> method in 
<var>TCustomButtonPanel</var>.
</p>
</descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.PopupMenu">
<short>Popup menu displayed when the button is pressed or clicked.</short>
<descr></descr>
<seealso></seealso>
</element>

<element name="TPanelBitBtn.ShowHint" link="#LCL.Controls.TControl.ShowHint"/>
<element name="TPanelBitBtn.OnClick" link="#LCL.Controls.TControl.OnClick"/>

<element name="TCustomButtonPanel">
<short>Defines the base class for TButtonPanel.</short>
<descr>
<p>
<var>TCustomButtonPanel</var> is a <var>TCustomPanel</var> descendant which 
defines the base class for <var>TButtonPanel</var>, a panel containing 
buttons with glyph images. Buttons are provided for <b>OK</b>, <b>Help</b>, 
<b>Close</b>, and <b>Cancel</b> operations. Other properties are provided to 
control the display order for the buttons, the default button for the panel, 
visibility of the available buttons, and the use of glyphs.
</p>
<p>
Applications should not create instances of <var>TCustomButtonPanel</var>; 
use the <var>TButtonPanel</var> ancestor which specifies the visibility of 
properties (including event handlers).
</p>
</descr>
<seealso>
<link id="TButtonPanel"/>
<link id="#lcl.extctrls.TCustomPanel">TCustomPanel</link>
</seealso>
</element>

<element name="TCustomButtonPanel.FShowBevel"/>
<element name="TCustomButtonPanel.FShowButtons"/>
<element name="TCustomButtonPanel.FShowGlyphs"/>
<element name="TCustomButtonPanel.FBevel"/>
<element name="TCustomButtonPanel.FGlyphs"/>
<element name="TCustomButtonPanel.FButtons"/>
<element name="TCustomButtonPanel.FButtonsWidth"/>
<element name="TCustomButtonPanel.FButtonsHeight"/>
<element name="TCustomButtonPanel.FButtonOrder"/>
<element name="TCustomButtonPanel.FDefaultButton"/>
<element name="TCustomButtonPanel.FSpacing"/>

<element name="TCustomButtonPanel.CreateButton">
<short>
Creates and configures a Bitmap button for the specified button type
</short>
<descr>
<p>
<var>CreateButton</var> creates and stores the <var>TPanelBitBtn</var> 
instance used for the button type in <var>AButton</var>. <var>AButton</var> 
is a <var>TPanelButton</var> enumeration value.
</p>
<p>
Create sets values in the Name, Kind, AutoSize, TabOrder, Align, and Default 
properties in the button instance. The Bitmap for the button Glyph is created 
or re-assigned as necessary.
</p>
<remark>
No actions are performed in the method if the button type in AButton has 
already been created for the panel.
</remark>
<p>
CreateButton is used in the implementation of the DoShowButtons method.
</p>
</descr>
<seealso>
<link id="TPanelBitBtn"/>
<link id="TCustomButtonPanel.DoShowButtons"/>
</seealso>
</element>
<element name="TCustomButtonPanel.CreateButton.AButton">
<short>
TPanelButton value which identifies the button created in the method.
</short>
</element>

<element name="TCustomButtonPanel.DoDefaultButton">
<short>
Updates the buttons on the panel to match the DefaultButton property.
</short>
<descr>
<p>
<var>DoDefaultButton</var> is a procedure used to update the buttons on the 
panel to identify the default button. Values from the <var>TPanelButton</var> 
enumeration are used to access the buttons present on the panel. The 
<var>Default</var> property in each button is updated to indicate if the 
button instance is the value stored in the <var>DefaultButton</var> property.
</p>
<remark>
No actions are performed in the method when <var>ShowButtons</var> contains 
an empty set (<b>[]</b>).
</remark>
</descr>
<seealso>
<link id="TCustomButtonPanel.DefaultButton"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TPanelButton"/>
</seealso>
</element>

<element name="TCustomButtonPanel.DoShowButtons">
<short>
Performs actions needed to create and/or configure buttons displayed on the 
panel.
</short>
<descr>
<p>
<var>DoShowButtons</var> is a procedure used to perform actions needed to 
create and/or configure buttons displayed on the panel. DoShowButtons 
iterates over the buttons defines for the panel. If the button has not 
already been created, the <var>CreateButton</var> method is called to 
initialize and store the button instance. The <var>ShowButtons</var> property 
is used to determine if the button is displayed at run-time and design-time.
</p>
<p>
<var>DoShowButtons</var> calls <var>UpdateButtonOrder</var> to display the 
buttons in the order specified in the <var>ButtonOrder</var> property. 
<var>UpdateButtonLayout</var> is called to ensure that the buttons use custom 
alignment, and to set the default button for the layout.
</p>
<remark>
<var>Autosizing</var> for the panel control is disabled prior to updating the 
button layout, and restored prior to exiting from the method.
</remark>
<p>
<var>DoShowButtons</var> is called when a value is assigned to the 
<var>ShowButtons</var> property.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.CreateButton"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TPanelButton"/>
<link id="TPanelBitBtn"/>
</seealso>
</element>

<element name="TCustomButtonPanel.DoShowGlyphs">
<short>
Assigns the bitmaps used as glyphs for the buttons on the panel.
</short>
<descr>
<p>
<var>DoShowGlyphs</var> is a procedure used to assign the bitmaps used as 
glyphs for the buttons on the panel. DoShowGlyphs iterates over the buttons 
displayed on the panel, and uses the values in the <var>ShowGlyphs</var> 
property to set or reset the glyph used in the button instance.
</p>
<remark>
<var>Autosizing</var> for the panel control is disabled prior to updating the 
button glyphs, and restored prior to exiting from the method.
</remark>
<p>
<var>DoShowGlyph</var> is called when a value is assigned to the 
<var>ShowGlyphs</var> property.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowGlyphs"/>
</seealso>
</element>

<element name="TCustomButtonPanel.SetButtonOrder">
<short>Sets the value for the ButtonOrder property.</short>
<descr>
<p>
Calls UpdateButtonOrder to refresh the display order for buttons on the panel.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ButtonOrder"/>
<link id="TCustomButtonPanel.UpdateButtonOrder"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetButtonOrder.Value">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.SetDefaultButton">
<short>Sets the value for the DefaultButton property.</short>
<descr>
<p>
Calls the <var>DoDefaultButton</var> method.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.DefaultButton"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetDefaultButton.Value">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.SetShowBevel">
<short>Sets the value for the ShowBevel property.</short>
<descr>
<p>
Calls the <var>UpdateBevel</var> method.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowBevel"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetShowBevel.AValue">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.SetShowButtons">
<short>Sets the value for the ShowButtons property.</short>
<descr>
<p>
Calls the <var>InvalidatePreferredSize</var> and <var>DoShowButtons</var> 
methods.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowButtons"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetShowButtons.Value">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.SetShowGlyphs">
<short>Sets the value for the ShowGlyphs property.</short>
<descr>
<p>
Calls the <var>InvalidatePreferredSize</var> and <var>DoShowGlyphs</var> 
methods.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowGlyphs"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetShowGlyphs.Value">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.SetSpacing">
<short>Sets the value for the Spacing property.</short>
<descr>
<p>
Calls the <var>InvalidatePreferredSize</var> and <var>ReAlign</var> methods.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.Spacing"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetSpacing.AValue">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.UpdateBevel">
<short>
Configures the shape and alignment for the bevel displayed on the panel.
</short>
<descr>
<p>
<bar>UpdateBevel</bar> is a procedure used to set the shape and alignment for 
the bevel displayed on the panel. It sets the values in the <var>Align</var> 
and <var>Shape</var> properties for the <var>TBevel</var> instance based on 
the content in the <var>Align</var> property for the panel. For instance:
</p>
<table>
<th>
<td>Panel Align</td>
<td>Bevel Align</td>
<td>Bevel Shape</td>
</th>
<tr>
<td>alTop</td>
<td>alBottom</td>
<td>bsBottomLine</td>
</tr>
<tr>
<td>alLeft</td>
<td>alRight</td>
<td>bsRightLine</td>
</tr>
<tr>
<td>alRight</td>
<td>alLeft</td>
<td>bsLeftLine</td>
</tr>
<tr>
<td>alBottom</td>
<td>alTop</td>
<td>bsTopLine</td>
</tr>
</table>
<p>
The width for the bevel is set to 2 for horizontal panel alignments (left or 
right). Otherwise, the height for the bevel is set to 2 for vertical panel 
alignments (top or bottom).
</p>
<p>
<var>UpdateBevel</var> is called when a value is assigned to the 
<var>ShowBevel</var> property.
</p>
<remark>
No actions are performed in the method when <var>ShowBevel</var> is set to 
<b>False</b>.
</remark>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowBevel"/>
<link id="TCustomButtonPanel.Align"/>
<link id="#LCL.ExtCtrls.TBevel">TBevel</link>
</seealso>
</element>

<element name="TCustomButtonPanel.UpdateButtonOrder">
<short>Sets the Tab order for visible buttons on the panel.</short>
<descr>
<p>
<var>UpdateButtonOrder</var> is a procedure used to set the tab order for 
visible buttons on the panel. It sets the <var>TabOrder</var> property in 
each of the <var>TPanelBitBtn</var> instances using the 
<var>ButtonOrder</var> for the panel.
</p>
<p>
<var>UpdateButtonOrder</var> calls the <var>AdjustSize</var> method to resize 
the panel and its controls.
</p>
<p>
Use <var>ShowButtons</var> to specify the visible buttons on the panel. Use 
<var>ButtonOrder</var> to define the display and tab order for the buttons.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ButtonOrder"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TPanelBitBtn.TabOrder"/>
</seealso>
</element>

<element name="TCustomButtonPanel.UpdateSizes">
<short>Calculates the size for button controls displayed on the panel.</short>
<descr>
<p>
<var>UpdateSizes</var> is a procedure used to calculate the size for button 
controls displayed on the panel. UpdateSizes gets the button size using 
GetElementDetails and GetDetailSizeForPPI in <file>ThemeServices</file>, and 
stores the values in the internal members used in the panel class.
</p>
<p>
All button controls on the panel are updated. <var>GetPreferredSize</var> is 
called using the expected button Height and Width. The <var>Align</var> 
property is also updated when adjusting the button <var>Height</var> and 
<var>Width</var>.
</p>
<p>
<var>UpdateSizes</var> is called when a value is assigned to the 
<var>Align</var> property, and from the <var>Notification</var> method.
</p>
<remark>
No actions are performed in the method at design-time.
</remark>
</descr>
<seealso>
<link id="TCustomButtonPanel.Align"/>
<link id="TCustomButtonPanel.Notification"/>
</seealso>
</element>

<element name="TCustomButtonPanel.UpdateButtonLayout">
<short>Updates the alignment for visible buttons on the panel.</short>
<descr>
<p>
<var>UpdateButtonLayout</var> is a procedure used to update the alignment for 
the visible buttons on the panel. UpdateButtonLayout uses the enumeration 
values from <var>ShowButtons</var> to determine the button instances updated 
in the method.
</p>
<p>
The <var>Align</var> property in each of the <var>TPanelBitBtn</var> 
instances on the panel is set to the value <var>alCustom</var>. In addition, 
the <var>Default</var> property in the button instance is updated to 
<b>True</b> when it contains the same class instance as the value stored in 
the <var>DefaultButton</var> property.
</p>
<p>
<var>UpdateButtonLayout</var> is called when a value is assigned to the 
<var>Align</var> property, and from the <var>DoShowButtons</var> method.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TCustomButtonPanel.Align"/>
<link id="TCustomButtonPanel.DefaultButton"/>
<link id="TCustomButtonPanel.DoShowButtons"/>
<link id="TPanelBitBtn.Align"/>
<link id="TPanelBitBtn.Default"/>
</seealso>
</element>

<element name="TCustomButtonPanel.UpdateButtonSize">
<short>
Applies button sizes when the visibility for the panel is changed.
</short>
<descr>
<p>
<var>UpdateButtonSize</var> is a method used to adjust the size for the 
visible buttons on the panel when the value in the <var>Visible</var> 
property has been changed.
</p>
<p>
UpdateButtonSize applies the size used for push button elements in theme 
services to the <var>Constraints</var> property in the 
<var>TPanelBitBtn</var> instances on the panel. The button size is scaled 
when <var>Application.Scaled</var> is set to <b>True</b> and the design-time 
display density differs from the run-time Font setting.
</p>
<p>
No actions are performed in the method if a designer surface cannot be 
located for the panel; the designer surface has the original font density 
used in the scaling operation.
</p>
<p>
UpdateButtonSize temporarily disables auto-sizing in the panel while the 
button sizes are updated. Auto-sizing is re-enabled prior to exit.
</p>
<p>
UpdateButtonSize is called from the <var>CMShowingChanged</var> method when 
the <b>CM_SHOWINGCHANGED</b> message is handled for the control.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TCustomButtonPanel.AutoSize"/>
<link id="TCustomButtonPanel.Visible"/>
<link id="TCustomButtonPanel.CMShowingChanged"/>
<link id="TPanelBitBtn"/>
<link id="#lcl.controls.TControl.Constraints">TControl.Constraints</link>
</seealso>
</element>

<element name="TCustomButtonPanel.IsLastButton">
<short>
Indicates if the specified button is the last one defined in the button order.
</short>
<descr>
<p>
<var>IsLastButton</var> is a <var>Boolean</var> function used to determine if 
the button in <var>AControl</var> is the last button in the 
<var>ButtonOrder</var> for the panel. The return value is <b>True</b> when 
AControl is a visible <var>TPanelBitBtn</var> instance which occurs last in 
the tab order for the visible buttons.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ButtonOrder"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TPanelBitBtn"/>
</seealso>
</element>
<element name="TCustomButtonPanel.IsLastButton.Result">
<short>
<b>True</b> when the specified button is the last in the button order.
</short>
</element>
<element name="TCustomButtonPanel.IsLastButton.AControl">
<short>Control compared to the buttons on the panel.</short>
</element>

<element name="TCustomButtonPanel.CreateControlBorderSpacing" link="#lcl.controls.TControl.CreateControlBorderSpacing"/>
<element name="TCustomButtonPanel.CreateControlBorderSpacing.Result"/>

<element name="TCustomButtonPanel.CustomAlignInsertBefore" link="#lcl.controls.TWinControl.CustomAlignInsertBefore"/>
<element name="TCustomButtonPanel.CustomAlignInsertBefore.Result"/>
<element name="TCustomButtonPanel.CustomAlignInsertBefore.AControl1"/>
<element name="TCustomButtonPanel.CustomAlignInsertBefore.AControl2"/>

<element name="TCustomButtonPanel.CustomAlignPosition" link="#lcl.controls.TWinControl.CustomAlignPosition"/>
<element name="TCustomButtonPanel.CustomAlignPosition.AControl"/>
<element name="TCustomButtonPanel.CustomAlignPosition.ANewLeft"/>
<element name="TCustomButtonPanel.CustomAlignPosition.ANewTop"/>
<element name="TCustomButtonPanel.CustomAlignPosition.ANewWidth"/>
<element name="TCustomButtonPanel.CustomAlignPosition.ANewHeight"/>
<element name="TCustomButtonPanel.CustomAlignPosition.AlignRect"/>
<element name="TCustomButtonPanel.CustomAlignPosition.AlignInfo"/>

<element name="TCustomButtonPanel.CalculatePreferredSize" link="#lcl.controls.TWinControl.CalculatePreferredSize"/>
<element name="TCustomButtonPanel.CalculatePreferredSize.PreferredWidth"/>
<element name="TCustomButtonPanel.CalculatePreferredSize.PreferredHeight"/>
<element name="TCustomButtonPanel.CalculatePreferredSize.WithThemeSpace"/>

<element name="TCustomButtonPanel.Notification">
<short>
Called by components that are freed and which received a FreeNotification.
</short>
<descr>
<p>
<var>Notification</var> is called whenever a child component is destroyed, 
inserted or removed from the list of owned components. Components that were 
requested to send a notification when they are freed (with FreeNotification) 
will also call Notification when they are freed.
</p>
<p>
The <var>AComponent</var> parameter specifies which component sends the 
notification, and <var>Operation</var> specifies whether the component is 
being inserted into or removed from the child component list, or whether it 
is being destroyed.
</p>
<p>
Notification is overridden in <var>TCustomButtonPanel</var> to ensure that 
<var>TPanelBitBtn</var> instances which are freed are excluded from the 
<var>ShowButtons</var> property, and their internal storage is <b>Nil</b>'d. 
If the panel control is not being destroyed, the remaining buttons are 
re-sized and re-aligned.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="#rtl.classes.TComponent.Notification">TComponent.Notification</link>
</seealso>
</element>
<element name="TCustomButtonPanel.Notification.AComponent">
<short>Component for the notification.</short>
</element>
<element name="TCustomButtonPanel.Notification.Operation">
<short>Operation performed for the component.</short>
</element>

<element name="TCustomButtonPanel.SetAlign">
<short>Sets the value for the Align property.</short>
<descr>
Calls the UpdateButtonLayout, UpdateBevel, and UpdateSizes methods.
</descr>
<seealso>
<link id="TCustomButtonPanel.Align"/>
</seealso>
</element>
<element name="TCustomButtonPanel.SetAlign.Value">
<short>New value for the property.</short>
</element>

<element name="TCustomButtonPanel.CMAppShowBtnGlyphChanged">
<short>
Performs the control message needed when the visibility for a button glyph 
has changed.
</short>
<descr></descr>
<seealso></seealso>
</element>
<element name="TCustomButtonPanel.CMAppShowBtnGlyphChanged.Message">
<short>Control message passed in the method.</short>
</element>

<element name="TCustomButtonPanel.CMShowingChanged">
<short>
Performs the Lazarus control message when a button visibility is changed.
</short>
<descr></descr>
<seealso></seealso>
</element>
<element name="TCustomButtonPanel.CMShowingChanged.Message">
<short>Control message passed in the method.</short>
</element>

<element name="TCustomButtonPanel.Create">
<short>Constructor for the class instance.</short>
<descr>
<p>
<var>Create</var> is the overridden constructor for the class instance. 
Create calls the inherited constructor, and sets the default values for 
properties in the panel to the following:
</p>
<dl>
<dt>Align</dt>
<dd>alBottom</dd>
<dt>BevelInner</dt>
<dd>bvNone</dd>
<dt>BevelOuter</dt>
<dd>bvNone</dd>
<dt>Caption</dt>
<dd>Set to an empty string ('')</dd>
<dt>AutoSize</dt>
<dd>True</dd>
<dt>Spacing</dt>
<dd>6</dd>
<dt>ShowBevel</dt>
<dd>True</dd>
<dt>DefaultButton</dt>
<dd>pbOK</dd>
<dt>ButtonOrder</dt>
<dd>boDefault</dd>
<dt>ShowButtons</dt>
<dd>DefShowButtons</dd>
<dt>ShowGlyphs</dt>
<dd>DefShowGlyphs</dd>
</dl>
<p>
The ControlStyle property is modified in the method to add the 
csOwnedChildrenNotSelectable style, and to remove the csSetCaption style.
</p>
<p>
Create calls the DoShowButtons method to create and configure the 
TPanelBitBtn instances used in the panel class.
</p>
</descr>
<seealso>
<link id="#lcl.extctrls.TCustomPanel.Create">TCustomPanel.Create</link>
</seealso>
</element>
<element name="TCustomButtonPanel.Create.AOwner">
<short>Owner for the class instance.</short>
</element>

<element name="TCustomButtonPanel.Destroy">
<short>Destructor for the class instance.</short>
<descr>
<p>
<var>Destroy</var> is the overridden destructor for the class instance. 
Destroy ensures that <var>TBitmap</var> instances created for button glyphs 
in the panel are freed. Destroy calls the inherited destructor prior to 
exiting from the method.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.Create"/>
</seealso>
</element>

<element name="TCustomButtonPanel.Align">
<short>
Indicates the alignment used for the panel relative to the owner for the 
panel.
</short>
<descr>
<p>
<var>Align</var> is a public property in <var>TCustomButtonPanel</var> used 
to specify the border (or edge) where the panel (and its buttons and bevel) 
are aligned. The default value for the property is <var>alBottom</var>.
</p>
<p>
Changing the value in <var>Align</var> causes the private 
<var>UpdateButtonLayout</var>, <var>UpdateBevel</var>, and 
<var>UpdateSizes</var> methods to be called.
</p>
<p>
Use <var>AutoSize</var> to enable or disable auto-sizing for the non-aligned 
or anchored dimensions in the control.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.AutoSize"/>
</seealso>
</element>

<element name="TCustomButtonPanel.AutoSize">
<short>Indicates if the panel can automatically adjust its size.</short>
<descr>
<p>
<var>AutoSize</var> is a <var>Boolean</var> property which indicates if the 
button panel can automatically adjust its size. The default value for the 
property is <b>True</b>.
</p>
<p>
Please note that auto-sizing is affected by the value in the <var>Align</var> 
property. When Align is set to <var>alBottom</var> (the default), the panel 
width is determined by the available width for the parent. <var>Height</var> 
will be automatically sized, but <var>Width</var> will not.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.Align"/>
<link id="#lcl.controls.TControl.AutoSize">TControl.AutoSize</link>
<link id="#lcl.controls.TControl.AdjustSize">TControl.AdjustSize</link>
</seealso>
</element>

<element name="TCustomButtonPanel.OKButton">
<short>
<var>OKButton</var> - a button with the caption 'OK' signifying acceptance by 
the user.
</short>
<descr>
<p>
<var>OKButton</var> is a read-only <var>TPanelBitBtn</var> property which 
provides access to the <b>OK</b> button for the panel. Read access is 
redirected to the internal array of buttons in the class instance.
</p>
<p>
Use OKButton to set custom values for properties in the TPanelBitBtn 
instance, including:
</p>
<ul>
<li>Caption</li>
<li>Cursor</li>
<li>DefaultCaption</li>
<li>Enabled</li>
<li>Font</li>
<li>Glyph</li>
<li>Name</li>
<li>PopupMenu</li>
<li>ShowHint</li>
<li>Tag</li>
</ul>
</descr>
<seealso>
<link id="TCustomButtonPanel.CancelButton"/>
<link id="TCustomButtonPanel.CloseButton"/>
<link id="TCustomButtonPanel.HelpButton"/>
</seealso>
</element>

<element name="TCustomButtonPanel.HelpButton">
<short>
<var>HelpButton</var> - a button with the 'Help' caption, for requesting help.
</short>
<descr>
<p>
<var>HelpButton</var> is a read-only <var>TPanelBitBtn</var> property which 
provides access to the <b>Help</b> button for the panel. Read access is 
redirected to the internal array of buttons in the class instance.
</p>
<p>
Use HelpButton to set custom values for properties in the TPanelBitBtn 
instance, including:
</p>
<ul>
<li>Caption</li>
<li>Cursor</li>
<li>DefaultCaption</li>
<li>Enabled</li>
<li>Font</li>
<li>Glyph</li>
<li>Name</li>
<li>PopupMenu</li>
<li>ShowHint</li>
<li>Tag</li>
</ul>
</descr>
<seealso>
<link id="TCustomButtonPanel.CancelButton"/>
<link id="TCustomButtonPanel.CloseButton"/>
<link id="TCustomButtonPanel.OkButton"/>
</seealso>
</element>

<element name="TCustomButtonPanel.CloseButton">
<short>
<var>CloseButton</var> - a button with the 'Close' caption for terminating 
the Form or panel.
</short>
<descr>
<p>
<var>CloseButton</var> is a read-only <var>TPanelBitBtn</var> property which 
provides access to the <b>Close</b> button for the panel. Read access is 
redirected to the internal array of buttons in the class instance.
</p>
<p>
Use CloseButton to set custom values for properties in the TPanelBitBtn 
instance, including:
</p>
<ul>
<li>Caption</li>
<li>Cursor</li>
<li>DefaultCaption</li>
<li>Enabled</li>
<li>Font</li>
<li>Glyph</li>
<li>Name</li>
<li>PopupMenu</li>
<li>ShowHint</li>
<li>Tag</li>
</ul>
</descr>
<seealso>
<link id="TCustomButtonPanel.CancelButton"/>
<link id="TCustomButtonPanel.HelpButton"/>
<link id="TCustomButtonPanel.OkButton"/>
</seealso>
</element>

<element name="TCustomButtonPanel.CancelButton">
<short>
<var>CancelButton</var> - a button with the 'Cancel' caption for cancelling 
the operation.
</short>
<descr>
<p>
<var>CancelButton</var> is a read-only <var>TPanelBitBtn</var> property which 
provides access to the <b>Cancel</b> button for the panel. Read access is 
redirected to the internal array of buttons in the class instance.
</p>
<p>
Use CancelButton to set custom values for properties in the TPanelBitBtn 
instance, including:
</p>
<ul>
<li>Caption</li>
<li>Cursor</li>
<li>DefaultCaption</li>
<li>Enabled</li>
<li>Font</li>
<li>Glyph</li>
<li>Name</li>
<li>PopupMenu</li>
<li>ShowHint</li>
<li>Tag</li>
</ul>
</descr>
<seealso>
<link id="TCustomButtonPanel.CloseButton"/>
<link id="TCustomButtonPanel.HelpButton"/>
<link id="TCustomButtonPanel.OkButton"/>
</seealso>
</element>

<element name="TCustomButtonPanel.ButtonOrder">
<short>
<var>ButtonOrder</var> - the order in which the series of buttons will appear 
on the panel.
</short>
<descr>
<p>
<var>ButtonOrder</var> is a <var>TButtonOrder</var> property which indicates 
the order of the buttons displayed on the panel. The default value for the 
property is <var>boDefault</var>, and causes the button order to be set to 
the sequence normally used for the platform or operating system.
</p>
<p>
For example:
</p>
<dl>
<dt>UNIX-like environments</dt>
<dd>Uses Ok, Cancel, Close, and Help button order.</dd>
<dt>All other platforms</dt>
<dd>Uses Cancel, Ok, Close, and Help button order.</dd>
</dl>
<p>
Use <var>boCloseCancelOK</var> or <var>boCloseOKCancel</var> to set the 
button order where <b>Help</b> is always the last button displayed.
</p>
<p>
Changing the value in ButtonOrder causes the button panel to be re-drawn.
</p>
</descr>
<seealso>
<link id="TButtonOrder"/>
</seealso>
</element>

<element name="TCustomButtonPanel.DefaultButton">
<short>
The default button executed when <b>Enter</b> or <b>Return</b> are pressed.
</short>
<descr>
<p>
<var>DefaultButton</var> contains the button which performs the default 
action when the <b>Return</b> or <b>Enter</b> key is pressed.
</p>
</descr>
<seealso>
</seealso>
</element>

<element name="TCustomButtonPanel.ShowButtons">
<short>Indicates the buttons displayed on the panel.</short>
<descr>
<p>
<var>ShowButtons</var> is a <var>TPanelButtons</var> property which contains 
the set of buttons displayed on the panel. The default value for the property 
is defined in the <var>DefShowButtons</var> constant.
</p>
<p>
Changing the values in the property causes the panel and its buttons to be 
re-sized and re-drawn.
</p>
<p>
Use ShowGlyphs to indicate which buttons have an image displayed on the 
button surface.
</p>
<p>
For example:
</p>
<code>
// var aButtonPanel: TButtonPanel...
// use Ok and Cancel buttons only
AButtonPanel.ShowButtons := [pbOk, pbCancel];
AButtonPanel.ShowGlyphs := [pbOk, pbCancel];
</code>
</descr>
<seealso/>
</element>

<element name="TCustomButtonPanel.ShowGlyphs">
<short>
Indicates the panel buttons displayed with Glyphs (small images).
</short>
<descr>
<p>
<var>ShowGlyphs</var> contains values from the <var>TPanelButton</var> 
enumeration, and defines which panel buttons in <var>ShowButtons</var> are 
displayed with glyph images. The default value for the property is defined in 
the <var>DefShowGlyphs</var> constant.
</p>
<p>
Changing the values in the property causes the panel and its buttons to be 
re-sized and re-drawn.
</p>
<p>
A default glyph image is provided for each TPanelBitBtn instance on the panel 
using the internal button name, like "OKButton" or "CancelButton". The 
default glyph image is loaded from LCL glyph resources when the button is 
created. Use OkButton, CancelButton, CloseButton, and HelpButton to provide 
custom values used in the panel buttons.
</p>
<p>
Use ShowButtons to control which buttons are displayed on the panel. For 
example:
</p>
<code>
// var aButtonPanel: TButtonPanel...
// use Ok and Cancel buttons only
AButtonPanel.ShowButtons := [pbOk, pbCancel];
AButtonPanel.ShowGlyphs := [pbOk, pbCancel];
</code>
</descr>
<seealso>
<link id="TCustomButtonPanel.OkButton"/>
<link id="TCustomButtonPanel.CancelButton"/>
<link id="TCustomButtonPanel.CloseButton"/>
<link id="TCustomButtonPanel.HelpButton"/>
<link id="TCustomButtonPanel.ShowButtons"/>
<link id="TPanelBitBtn"/>
<link id="DefShowGlyphs"/>
</seealso>
</element>

<element name="TCustomButtonPanel.ShowBevel">
<short>Indicates if a bevel is displayed for the button panel.</short>
<descr>
<p>
<var>ShowBevel</var> is a <var>Boolean</var> property which indicates if a 
<var>TBevel</var> is displayed on the edge opposite of the alignment for the 
panel. Changing the value for the property causes a TBevel instance to be 
created (or re-created). The private <var>UpdateBevel</var> method is called 
to apply the size, shape, and alignment needed for the bevel.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel.Align"/>
</seealso>
</element>

<element name="TCustomButtonPanel.Spacing">
<short>Contains the spacing around buttons and bevels on the panel.</short>
<descr>
<p>
<var>Spacing</var> is a <var>TSpacingSize</var> property which indicates the 
number of pixels reserved between buttons and bezels displayed on the panel. 
The default value for the property is <b>6</b>. Changing the value in 
<var>Spacing</var> causes the <var>InvalidatePreferredSize</var> and 
<var>ReAlign</var> methods to be called.
</p>
<p>
Use <var>BorderSpacing</var> to indicate the space reserved on the borders 
(or edges) for the panel.
</p>
</descr>
<seealso>
<link id="TButtonPanel.BorderSpacing"/>
<link id="#LCL.Controls.TWinControl.ReAlign">TWinControl.ReAlign</link>
<link id="#LCL.Controls.TControl.InvalidatePreferredSize">TControl.InvalidatePreferredSize</link>
</seealso>
</element>

<element name="TButtonPanel">
<short>Implements a panel with Bitmap Button instances.</short>
<descr>
<p>
<var>TButtonPanel</var> is a <var>TCustomButtonPanel</var> descendant which 
implements a panel containing buttons with glyph images. Buttons are provided 
for <b>OK</b>, <b>Help</b>, <b>Close</b>, and <b>Cancel</b> operations. Other 
properties are provided to control the display order for the buttons, the 
default button for the panel, visibility of the available buttons, and the 
use of glyphs.
</p>
</descr>
<seealso>
<link id="TCustomButtonPanel"/>
</seealso>
</element>

<element name="TButtonPanel.Align" link="#lcl.buttonpanel.TCustomButtonPanel.Align"/>
<element name="TButtonPanel.Anchors" link="#lcl.controls.TControl.Anchors"/>
<element name="TButtonPanel.AutoSize" link="#lcl.buttonpanel.TCustomButtonPanel.AutoSize"/>
<element name="TButtonPanel.BorderSpacing" link="#lcl.controls.TControl.BorderSpacing"/>
<element name="TButtonPanel.Constraints" link="#lcl.controls.TControl.Constraints"/>
<element name="TButtonPanel.Enabled" link="#lcl.controls.TControl.Enabled"/>
<element name="TButtonPanel.OKButton" link="#lcl.buttonpanel.TCustomButtonPanel.OKButton"/>
<element name="TButtonPanel.HelpButton" link="#lcl.buttonpanel.TCustomButtonPanel.HelpButton"/>
<element name="TButtonPanel.CloseButton" link="#lcl.buttonpanel.TCustomButtonPanel.CloseButton"/>
<element name="TButtonPanel.CancelButton" link="#lcl.buttonpanel.TCustomButtonPanel.CancelButton"/>
<element name="TButtonPanel.Color" link="#lcl.extctrls.TCustomPanel.Color"/>
<element name="TButtonPanel.ButtonOrder" link="#lcl.buttonpanel.TCustomButtonPanel.ButtonOrder"/>
<element name="TButtonPanel.TabOrder" link="#lcl.controls.TWinControl.TabOrder"/>
<element name="TButtonPanel.DefaultButton" link="#lcl.buttonpanel.TCustomButtonPanel.DefaultButton"/>
<element name="TButtonPanel.Spacing" link="#lcl.buttonpanel.TCustomButtonPanel.Spacing"/>
<element name="TButtonPanel.ShowButtons" link="#lcl.buttonpanel.TCustomButtonPanel.ShowButtons"/>
<element name="TButtonPanel.ShowGlyphs" link="#lcl.buttonpanel.TCustomButtonPanel.ShowGlyphs"/>
<element name="TButtonPanel.ShowBevel" link="#lcl.buttonpanel.TCustomButtonPanel.ShowBevel"/>
<element name="TButtonPanel.ShowHint" link="#lcl.controls.TControl.ShowHint"/>
<element name="TButtonPanel.Visible" link="#lcl.controls.TControl.Visible"/>
<element name="TButtonPanel.OnClick" link="#lcl.controls.TControl.OnClick"/>
<element name="TButtonPanel.OnDblClick" link="#lcl.controls.TControl.OnDblClick"/>
<element name="TButtonPanel.OnDragDrop" link="#lcl.controls.TControl.OnDragDrop"/>
<element name="TButtonPanel.OnEnter" link="#lcl.controls.TWinControl.OnEnter"/>
<element name="TButtonPanel.OnExit" link="#lcl.controls.TWinControl.OnExit"/>
<element name="TButtonPanel.OnKeyDown" link="#lcl.controls.TWinControl.OnKeyDown"/>
<element name="TButtonPanel.OnKeyPress" link="#lcl.controls.TWinControl.OnKeyPress"/>
<element name="TButtonPanel.OnKeyUp" link="#lcl.controls.TWinControl.OnKeyUp"/>
<element name="TButtonPanel.OnMouseDown" link="#lcl.controls.TControl.OnMouseDown"/>
<element name="TButtonPanel.OnMouseEnter" link="#lcl.controls.TControl.OnMouseEnter"/>
<element name="TButtonPanel.OnMouseLeave" link="#lcl.controls.TControl.OnMouseLeave"/>
<element name="TButtonPanel.OnMouseMove" link="#lcl.controls.TControl.OnMouseMove"/>
<element name="TButtonPanel.OnMouseUp" link="#lcl.controls.TControl.OnMouseUp"/>
<element name="TButtonPanel.OnMouseWheel" link="#lcl.controls.TControl.OnMouseWheel"/>
<element name="TButtonPanel.OnMouseWheelDown" link="#lcl.controls.TControl.OnMouseWheelDown"/>
<element name="TButtonPanel.OnMouseWheelUp" link="#lcl.controls.TControl.OnMouseWheelUp"/>
<element name="TButtonPanel.OnResize" link="#lcl.controls.TControl.OnResize"/>
<element name="TButtonPanel.OnUTF8KeyPress" link="#lcl.controls.TWinControl.OnUTF8KeyPress"/>

<element name="Register">
<short>Registers the TButtonPanel class in the Lazarus IDE.</short>
<descr>
<p>
<var>Register</var> is the procedure used to register components for use in 
the Lazarus IDE. The following components are added to the Lazarus IDE:
</p>
<p>
<b>Misc</b> Tab
</p>
<ul>
<li>TButtonPanel</li>
</ul>
</descr>
<seealso/>
</element>

</module>
<!-- ButtonPanel -->
</package>
</fpdoc-descriptions>