From 0a9c928d370d4c66d45e040e0ea14ae4c827f852 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 6 Jun 2008 03:06:59 +0000
Subject: [PATCH] Improves carbon trayicon

git-svn-id: trunk@15329 -
---
 lcl/interfaces/carbon/carbontrayicon.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbontrayicon.inc b/lcl/interfaces/carbon/carbontrayicon.inc
index 46f3a7c012..e26e1023c1 100644
--- a/lcl/interfaces/carbon/carbontrayicon.inc
+++ b/lcl/interfaces/carbon/carbontrayicon.inc
@@ -91,7 +91,7 @@ begin
 
   APrivateTrayIcon.item := NSStatusItem.CreateWithHandle(APrivateTrayIcon.bar.statusItemWithLength(NSSquareStatusItemLength));
   APrivateTrayIcon.item.retain();
-  APrivateTrayIcon.item.setImage(APrivateTrayIcon.image);
+  APrivateTrayIcon.item.setImage(APrivateTrayIcon.image.Handle);
 
   Result := True;