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

carbon: retrieve more scrollbar related system metrics

Browse Source 
git-svn-id: trunk@16759 -
This commit is contained in:
paul 2008-09-26 13:43:10 +00:00
parent c355897e59
commit 7d24b089e5
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -307,13 +307,14 @@ function TCarbonThemeServices.ContentRect(DC: HDC;
Details: TThemedElementDetails; BoundingRect: TRect): TRect; Details: TThemedElementDetails; BoundingRect: TRect): TRect;
begin begin
Result := BoundingRect; Result := BoundingRect;
{
case Details.Element of case Details.Element of
teHeader: Result := DrawHeaderElement(DefaultContext, Details, BoundingRect, nil); teHeader: Result := DrawHeaderElement(DefaultContext, Details, BoundingRect, nil);
teButton: Result := DrawButtonElement(DefaultContext, Details, BoundingRect, nil); teButton: Result := DrawButtonElement(DefaultContext, Details, BoundingRect, nil);
teRebar: Result := DrawRebarElement(DefaultContext, Details, BoundingRect, nil); teRebar: Result := DrawRebarElement(DefaultContext, Details, BoundingRect, nil);
teToolBar: Result := DrawToolBarElement(DefaultContext, Details, BoundingRect, nil); teToolBar: Result := DrawToolBarElement(DefaultContext, Details, BoundingRect, nil);
end; end;
}
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

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

@ -1751,7 +1751,10 @@ begin
{$ENDIF} {$ENDIF}
case NIndex of case NIndex of
SM_CYHSCROLL, SM_CXVSCROLL: SM_CXHSCROLL,
SM_CYHSCROLL,
SM_CXVSCROLL,
SM_CYVSCROLL:
Result := GetCarbonThemeMetric(kThemeMetricScrollBarWidth); Result := GetCarbonThemeMetric(kThemeMetricScrollBarWidth);
SM_CXSCREEN, SM_CXSCREEN,
SM_CXVIRTUALSCREEN : Result := CGDisplayPixelsWide(CGMainDisplayID); SM_CXVIRTUALSCREEN : Result := CGDisplayPixelsWide(CGMainDisplayID);
@ -1767,6 +1770,10 @@ begin
Result := 64 else Result := 64 else
Result := 16; Result := 16;
end; end;
SM_CXHTHUMB:
Result := GetCarbonThemeMetric(kThemeMetricScrollBarMinThumbWidth);
SM_CYVTHUMB:
Result := GetCarbonThemeMetric(kThemeMetricScrollBarMinThumbHeight);
else else
DebugLn('TCarbonWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));; DebugLn('TCarbonWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));;
end; end;