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

cocoa: adding theme update notification

Browse Source 
git-svn-id: trunk@61235 -
This commit is contained in:
dmitry 2019-05-17 00:29:46 +00:00
parent ab3b8df7cc
commit 6dfa26faa8
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,6 +30,7 @@ type
TCocoaThemeServices = class(TThemeServices)
private
protected
callback : NSObject;
BtnCell : NSButtonCell;
function SetButtonCellType(btn: NSButtonCell; Details: TThemedElementDetails): Boolean;
procedure SetButtonCellToDetails(btn: NSButtonCell; Details: TThemedElementDetails);
@ -58,6 +59,7 @@ type
BezelToolBar : NSBezelStyle;
BezelButton : NSBezelStyle;
constructor Create;
destructor Destroy; override;
procedure DrawElement(DC: HDC; Details: TThemedElementDetails; const R: TRect; ClipRect: PRect); override;
(*
procedure DrawEdge({%H-}DC: HDC; {%H-}Details: TThemedElementDetails; const {%H-}R: TRect; {%H-}Edge, {%H-}Flags: Cardinal; {%H-}AContentRect: PRect); override;
@ -92,6 +94,11 @@ function NSAppearanceClass: pobjc_class;
implementation
type
TCocoaThemeCallback = objcclass(NSObject)
procedure notifySysColorsChanged(notification: NSNotification); message 'notifySysColorsChanged:';
end;
type
TCocoaContextAccess = class(TCocoaContext);
@ -624,6 +631,18 @@ begin
BtnCell := NSButtonCell.alloc.initTextCell(NSSTR(''));
BezelToolBar := NSSmallSquareBezelStyle; // can be resized at any size
BezelButton := NSSmallSquareBezelStyle;
callback := TCocoaThemeCallback.alloc.init;
NSNotificationCenter(NSNotificationCenter.defaultCenter).addObserver_selector_name_object(
callback, ObjCSelector('notifySysColorsChanged:'), NSSystemColorsDidChangeNotification, nil
);
end;
destructor TCocoaThemeServices.Destroy;
begin
NSNotificationCenter(NSNotificationCenter.defaultCenter).removeObserver(callback);
callback.release;
inherited Destroy;
end;
(*function TCarbonThemeServices.DrawWindowElement(DC: TCarbonDeviceContext;
@ -1027,6 +1046,14 @@ begin
NSGraphicsContext.setCurrentContext( cur );
end;
{ TCocoaThemeCallback }
procedure TCocoaThemeCallback.notifySysColorsChanged(notification: NSNotification);
begin
ThemeServices.UpdateThemes;
Graphics.UpdateHandleObjects;
ThemeServices.IntfDoOnThemeChange;
end;
end.