paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 05:20:48 +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 const
ButtonMap: array[BP_PUSHBUTTON..BP_USERBUTTON] of ThemeButtonKind = ButtonMap: array[BP_PUSHBUTTON..BP_USERBUTTON] of ThemeButtonKind =
( (
{BP_PUSHBUTTON } kThemePushButton, {BP_PUSHBUTTON } kThemeBevelButtonSmall,
{BP_RADIOBUTTON} kThemeRadioButton, {BP_RADIOBUTTON} kThemeRadioButton,
{BP_CHECKBOX } kThemeCheckBox, {BP_CHECKBOX } kThemeCheckBox,
{BP_GROUPBOX } kHIThemeGroupBoxKindPrimary, // ?? {BP_GROUPBOX } kHIThemeGroupBoxKindPrimary, // ??
{BP_USERBUTTON } kThemePushButton {BP_USERBUTTON } kThemeBevelButtonSmall
); );
var var
ButtonDrawInfo: HIThemeButtonDrawInfo; ButtonDrawInfo: HIThemeButtonDrawInfo;