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

cocoa: supporting additional theme styles

Browse Source 
git-svn-id: trunk@58774 -
This commit is contained in:
dmitry 2018-08-25 03:09:36 +00:00
parent 828f4e74ef
commit ced8e3172c
1 changed files with 29 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -481,25 +481,41 @@ end;
function TCocoaThemeServices.GetCellForDetails(Details: TThemedElementDetails): NSCell;
var
btn : NSButtonCell;
cocoaBtn : Integer;
const
IntBool : array [Boolean] of NSInteger = (0,1);
begin
//todo: instead of recreating btn all the time, should it be cached instead?
// typically as soon as a themed drawing stared, it would be ongoing
// (i.e. customly drawn/themed controls)
Result := nil;
if Details.Element = teButton then
begin
if Details.Part = BP_CHECKBOX then
begin
btn := NSButtonCell(NSButtonCell.alloc).initTextCell(NSSTR(''));
btn.setButtonType(NSSwitchButton);
if IsChecked(Details) then
btn.setIntValue(1)
else
btn.setIntValue(0);
btn.autorelease;
Result := btn;
end;
if Details.Element <> teButton then Exit;
case Details.Part of
BP_CHECKBOX: cocoaBtn := NSSwitchButton;
BP_RADIOBUTTON: cocoaBtn := NSRadioButton;
BP_PUSHBUTTON: cocoaBtn := NSMomentaryLightButton;
else
cocoaBtn := -1;
end;
if cocoaBtn < 0 then Exit; // unsupported button type
btn := NSButtonCell(NSButtonCell.alloc).initTextCell(NSSTR(''));
btn.setButtonType(NSButtonType(cocoaBtn));
btn.setCellAttribute_to(NSCellAllowsMixedState, 1);
btn.setCellAttribute_to(NSCellDisabled, IntBool[IsDisabled(Details)]);
btn.setCellAttribute_to(NSCellHighlighted, IntBool[IsHot(Details)]);
btn.setCellAttribute_to(NSPushInCell, IntBool[IsPushed(Details)]);
if IsMixed(Details) then begin
btn.setState(NSMixedState);
end else if IsChecked(Details) then begin
btn.setIntValue(1)
end
else
btn.setIntValue(0);
btn.autorelease;
Result := btn;
end;
(*function TCarbonThemeServices.DrawWindowElement(DC: TCarbonDeviceContext;