paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Fixes wrong interpretation of toolbar winapi constants

Browse Source 
git-svn-id: trunk@48837 -
This commit is contained in:
sekelsenmat 2015-04-24 18:46:23 +00:00
parent 99454578ac
commit 0d71534f00
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoathemes.pas
View File

@ -299,10 +299,10 @@ begin
lSize.CX := R.Right - R.Left;
lSize.CY := R.Bottom - R.Top;
case Details.Part of
TP_BUTTON: lCDToolbarItem.Kind := tikButton;
TP_SPLITBUTTON: lCDToolbarItem.Kind := tikCheckButton;
//TP_DROPDOWNBUTTON: lCDToolbarItem.Kind := kThemePopupButtonSmall;
//TP_SPLITBUTTONDROPDOWN: lCDToolbarItem.Kind := kThemeDisclosureButton;
TP_BUTTON, TP_DROPDOWNBUTTON, TP_SPLITBUTTON:
lCDToolbarItem.Kind := tikButton;
TP_SPLITBUTTONDROPDOWN:
lCDToolbarItem.Kind := tikDropDownButtonArrow;
//TP_SEPARATOR, TP_SEPARATORVERT, TP_DROPDOWNBUTTONGLYPH: // tikSeparator, tikDivider
else
Exit;

6
lcl/tmschema.pas
View File

@ -1602,9 +1602,9 @@ type
const
TP_BUTTON = 1; // Button and Check button
TP_DROPDOWNBUTTON = 2; // Button with a combobox arrow on its right side to show a popup menu on click
TP_SPLITBUTTON = 3; // Not utilized by the LCL
TP_SPLITBUTTONDROPDOWN = 4; // Not utilized by the LCL
TP_DROPDOWNBUTTON = 2; // Not utilized by the LCL
TP_SPLITBUTTON = 3; // Button with a combobox arrow on its right side to show a popup menu on click
TP_SPLITBUTTONDROPDOWN = 4; // This is the drop down button arrow
TP_SEPARATOR = 5; // Separator, Divider when ToolBar.IsVertical is False
TP_SEPARATORVERT = 6; // Separator, Divider when ToolBar.IsVertical is True
TP_DROPDOWNBUTTONGLYPH = 7; // Not utilized by the LCL