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

carbon: fix header drawing by Christian. #18544

Browse Source 
git-svn-id: trunk@29614 -
This commit is contained in:
dmitry 2011-02-20 17:35:58 +00:00
parent f2cb6878a9
commit c18056880a
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,27 +153,22 @@ end;
function TCarbonThemeServices.DrawHeaderElement(DC: TCarbonDeviceContext;
Details: TThemedElementDetails; R: TRect; ClipRect: PRect): TRect;
var
HeaderDrawInfo: HiThemeHeaderDrawInfo;
ButtonDrawInfo: HIThemeButtonDrawInfo;
PaintRect: HIRect;
begin
if (R.Bottom - R.Top = 0) or (R.Right - R.Left = 0) then
begin
Result := R;
Exit;
end;
ButtonDrawInfo.version := 0;
ButtonDrawInfo.State := GetDrawState(Details);
ButtonDrawInfo.kind := kThemeBevelButtonSmall;//kThemeListHeaderButton;
ButtonDrawInfo.adornment := kThemeAdornmentNone;
HeaderDrawInfo.version := 0;
HeaderDrawInfo.State := GetDrawState(Details);
HeaderDrawInfo.kind := kHiThemeHeaderKindList;
PaintRect := RectToCGRect(R);
OSError(
HIThemeDrawHeader(PaintRect, HeaderDrawInfo, DC.CGContext,
kHIThemeOrientationNormal),
Self, 'DrawHeaderElement', 'HIThemeDrawHeader');
HIThemeDrawButton(PaintRect, ButtonDrawInfo, DC.CGContext,
kHIThemeOrientationNormal, @PaintRect),
Self, 'DrawButtonElement', 'HIThemeDrawButton');
Result := CGRectToRect(PaintRect);
InflateRect(Result, -2, -2);
end;
{------------------------------------------------------------------------------