如何在 OSX 中添加对 lazarus 应用程序的停靠图标徽章和弹出菜单支持？

Question

我尝试用谷歌搜索 abit，但在使用 OSX 上的停靠图标的徽章功能以及访问停靠图标菜单方面找不到任何帮助？我想我可以在运行期间更改停靠图标以指示某些内容已启动，但它并不那么时尚；）

Answer 1

LCL中没有实现这个功能，所以如果你想使用它，你必须直接使用相关的Cocoa框架。您可以使用 ObjPas 来实现这一点。当然，如果您准备编写 LCL 实现，那么这将是一个更好的长期解决方案，因为稍后可以使其在 Windows/Gnome 上运行。

Answer 2

可笑的晚了......但我偶然发现了这篇文章，并发现 Lazarus 论坛中的这篇文章，其中显示了如何在应用程序运行时更改 Dock 中的应用程序图标的代码。

希望它对寻找同一问题答案的人有用，即使是在原始问题发布多年之后。 （如果不合适请见谅）

uses
... MacOSAll ...


procedure TFrm_Main.FormCreate(Sender: TObject);
begin
  ...
  FResPath := TrimFilename(ExtractFilePath(Application.ExeName) + PathDelim + 'Resource');
  ...
end;

procedure TFrm_Main.SomeEventWhenOverlay(SomeVar: Integer);
var
  temp_ImagePath: String;
  temp_CGDataProvider: CGDataProviderRef;
  temp_Float32Ptr: Float32Ptr;
  temp_CGImage: CGImageRef;
  temp_CGContext: CGContextRef;
begin
  temp_ImagePath := TrimFilename(FResPath + PathDelim + 'Image' + PathDelim + 'overlay_image.png'); // image must be same size as icon, if not, will be deformed
  if (FileExists(temp_ImagePath)) then
  begin
    temp_CGDataProvider := CGDataProviderCreateWithFilename(PChar(temp_ImagePath));
    temp_Float32Ptr := nil;
    temp_CGImage := CGImageCreateWithPNGDataProvider(temp_CGDataProvider, temp_Float32Ptr, 1, kCGRenderingIntentDefault);
    CGDataProviderRelease(temp_CGDataProvider);
    // Draw image
    temp_CGContext := BeginCGContextForApplicationDockTile;
    //SetApplicationDockTileImage(temp_CGImage);
    OverlayApplicationDockTileImage(temp_CGImage);
    CGImageRelease(temp_CGImage);
    EndCGContextForApplicationDockTile(temp_CGContext);
  end;   
end;

procedure TFrm_Main.SomeOtherEventWhenRestore();
begin
  //This will not work if you use SetApplicationDockTileImage
  RestoreApplicationDockTileImage;
end;