paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Initial code for rewriting treeview theme

Browse Source 
git-svn-id: trunk@47822 -
This commit is contained in:
sekelsenmat 2015-02-16 10:59:19 +00:00
parent 4792562ff9
commit 8563adf4b9
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/interfaces/cocoa/cocoathemes.pas
View File

@ -338,6 +338,7 @@ var
LabelRect: HIRect;
b: TCocoaBrush;
lColor: NSColor;
lPoints: array of TPoint;
begin
case Details.Part of
TVP_TREEITEM:
@ -356,6 +357,10 @@ begin
end;
TVP_GLYPH, TVP_HOTGLYPH:
begin
// HIThemeDrawButton exists only in 32-bits and there is no Cocoa alternative =(
{$define CocoaUseHITheme}
{$ifdef CocoaUseHITheme}
{$ifdef CPU386}
ButtonDrawInfo.version := 0;
ButtonDrawInfo.State := GetDrawState(Details);
ButtonDrawInfo.kind := kThemeDisclosureTriangle;
@ -370,12 +375,34 @@ begin
LabelRect.origin.x := LabelRect.origin.x - 2;
LabelRect.origin.y := LabelRect.origin.y - 1;
{$ifdef i386}
HIThemeDrawButton(LabelRect, ButtonDrawInfo, DC.CGContext(),
kHIThemeOrientationNormal, @LabelRect);
{$endif}
Result := CGRectToRect(LabelRect);
{$endif}
{$else}
SetLength(lPoints, 3);
// face right
if Details.State = GLPS_CLOSED then
begin
lPoints[0] := Types.Point(R.Left, R.Top);
lPoints[1] := Types.Point(R.Left, R.Bottom);
lPoints[2] := Types.Point(R.Right, (R.Top + R.Bottom) div 2);
end
// face down
else
begin
lPoints[0] := Types.Point(R.Left, R.Top);
lPoints[1] := Types.Point(R.Right, R.Top);
lPoints[2] := Types.Point((R.Left + R.Right) div 2, R.Bottom);
end;
DC.Brush.SetColor(Graphics.RGBToColor(0, 0, 0), True);
DC.Polygon(lPoints, 3, False);
Result := R;
{$endif}
end;
end;
end;