paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 05:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix for theme get metrics

Browse Source 
git-svn-id: trunk@20227 -
This commit is contained in:
dmitry 2009-05-26 09:21:25 +00:00
parent b0cebb41d9
commit 7b05deb5c3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -429,7 +429,9 @@ begin
GetCarbonThemeMetric(kThemeMetricDisclosureTriangleWidth),
GetCarbonThemeMetric(kThemeMetricDisclosureTriangleHeight)
);
end;
end
else
Result := inherited GetDetailSize(Details);
teButton:
if Details.Part = BP_PUSHBUTTON then
begin
@ -437,7 +439,8 @@ begin
DefaultPushButtonWidth,
GetCarbonThemeMetric(kThemeMetricPushButtonHeight)
);
end;
end else
Result := inherited GetDetailSize(Details);
else
Result := inherited GetDetailSize(Details);
end;