paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 16:13:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Carbon: implemented SM_CYCAPTION.

Browse Source 
git-svn-id: trunk@34361 -
This commit is contained in:
zeljko 2011-12-22 12:30:48 +00:00
parent 9832a3cb06
commit 6a551041eb
1 changed files with 5 additions and 0 deletions

5
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -2055,6 +2055,11 @@ begin
Result := GetCarbonThemeMetric(kThemeMetricScrollBarMinThumbHeight);
SM_SWSCROLLBARSPACING:
Result:=0;
SM_CYCAPTION:
begin
Result := GetCarbonThemeMetric(kThemeMetricTitleBarControlsHeight);
Result := Result + (Result div 2) + 1;
end;
else
DebugLn('TCarbonWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));;
end;