From b8e477568da8c8482bdfe8f9e8221f54b8cf39f4 Mon Sep 17 00:00:00 2001 From: David Jenkins Date: Sun, 20 Oct 2024 10:23:58 +0000 Subject: [PATCH] Cocoa: Add NSVisualEffectView consts to cocoa_extra --- lcl/interfaces/cocoa/cocoa_extra.pas | 32 ++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/lcl/interfaces/cocoa/cocoa_extra.pas b/lcl/interfaces/cocoa/cocoa_extra.pas index d640377f08..9aafb317d5 100644 --- a/lcl/interfaces/cocoa/cocoa_extra.pas +++ b/lcl/interfaces/cocoa/cocoa_extra.pas @@ -697,6 +697,38 @@ const NSTableViewAnimationSlideLeft = $30; // Animates a row in by sliding from the left. Animates a row out by sliding towards the left. NSTableViewAnimationSlideRight = $40; // Animates a row in by sliding from the right. Animates a row out by sliding towards the right. +{ NSVisualEffectView } +// Taken from macOS 10.10 headers at https://github.com/genericptr/MacOS_10_10 +type + NSVisualEffectMaterial = NSInteger; + NSVisualEffectMaterialPtr = ^NSVisualEffectMaterial; +const + NSVisualEffectMaterialAppearanceBased = 0 deprecated; + NSVisualEffectMaterialLight = 1 deprecated; + NSVisualEffectMaterialDark = 2 deprecated; + NSVisualEffectMaterialTitlebar = 3; + NSVisualEffectMaterialSelection = 4; + // 10.11 + NSVisualEffectMaterialMenu = 5; + NSVisualEffectMaterialPopover = 6; + NSVisualEffectMaterialSidebar = 7; + NSVisualEffectMaterialMediumLight = 8 deprecated; + NSVisualEffectMaterialUltraDark = 9 deprecated; + // 10.14 + NSVisualEffectMaterialHeaderView = 10; + NSVisualEffectMaterialSheet = 11; + NSVisualEffectMaterialWindowBackground = 12; + NSVisualEffectMaterialHUDWindow = 13; + NSVisualEffectMaterialFullScreenUI = 15; + NSVisualEffectMaterialToolTip = 17; + NSVisualEffectMaterialContentBackground = 18; + NSVisualEffectMaterialUnderWindowBackground = 21; + NSVisualEffectMaterialUnderPageBackground = 22; +type + NSColorFix = objccategory external (NSColor) + class function linkColor: NSColor; message 'linkColor'; + end; + // all of the sudden those are gone! in FPC 3.2.0rc const