paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Carbon intf. Themes: PushButton (used by TSpeedButton or BuildLazDialog) and UserButton style should look like BevelButton

Browse Source 
git-svn-id: trunk@11183 -
This commit is contained in:
tombo 2007-05-23 15:18:24 +00:00
parent d07861fb82
commit 8d6bdc994f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonthemes.pas
View File

@ -73,11 +73,11 @@ procedure TCarbonThemeServices.DrawButtonElement(DC: TCarbonDeviceContext;
const
ButtonMap: array[BP_PUSHBUTTON..BP_USERBUTTON] of ThemeButtonKind =
(
{BP_PUSHBUTTON } kThemePushButton,
{BP_PUSHBUTTON } kThemeBevelButtonSmall,
{BP_RADIOBUTTON} kThemeRadioButton,
{BP_CHECKBOX } kThemeCheckBox,
{BP_GROUPBOX } kHIThemeGroupBoxKindPrimary, // ??
{BP_USERBUTTON } kThemePushButton
{BP_USERBUTTON } kThemeBevelButtonSmall
);
var
ButtonDrawInfo: HIThemeButtonDrawInfo;