pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spktoolbar: Initial commit of TSpkPopupMenu.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8725 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-21 21:47:21 +00:00
parent e456d87021
commit 33121d356d
11 changed files with 964 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/spktoolbar/SpkToolbar/spkt_Const.pas
View File

@ -156,6 +156,13 @@ const
/// <summary>Min tab caption width</summary>
TOOLBAR_MIN_TAB_CAPTION_WIDTH = 32;
// *********************
// *** Dropdown menu ***
// *********************
DROPDOWN_MENU_MARGIN = 3;
var
// ****************
// *** Elements ***
@ -188,6 +195,13 @@ var
DropdownArrowHeight: Integer;
// *********************
// *** Dropdown menu ***
// *********************
DropDownMenuMargin: Integer;
// ***********************
// *** Tab page layout ***
// ***********************
@ -343,6 +357,8 @@ begin
DropdownArrowWidth := SpkScaleX(DROPDOWN_ARROW_WIDTH, FromDPI, ToDPI);
DropdownArrowHeight := SpkScaleY(DROPDOWN_ARROW_HEIGHT, FromDPI, ToDPI);
DropdownMenuMargin := SpkScaleX(DROPDOWN_MENU_MARGIN, FromDPI, ToDpi);
MaxElementHeight := SpkScaleY(MAX_ELEMENT_HEIGHT, FromDPI, ToDPI);
PaneRowHeight := SpkScaleY(PANE_ROW_HEIGHT, FromDPI, ToDPI);
PaneFullRowHeight := 3 * PaneRowHeight;