From 80c4aac4eacc74c09d814ac8ad80fb0209b6cefe Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 23 Jul 2007 05:28:17 +0000
Subject: [PATCH] - small bug in TThemeServices.IsChecked

git-svn-id: trunk@11597 -
---
 lcl/themes.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/themes.pas b/lcl/themes.pas
index 0e5662595d..fa4dede521 100644
--- a/lcl/themes.pas
+++ b/lcl/themes.pas
@@ -1906,7 +1906,10 @@ function TThemeServices.IsChecked(Details: TThemedElementDetails): Boolean;
 begin
   Result := False;
   if (Details.Element in [teButton]) then
-    Result := (Details.State > 4) and (Details.State < 9);
+    Result := (Details.State > 4) and (Details.State < 9)
+  else
+  if (Details.Element in [teToolBar]) then
+    Result := (Details.State > 4);
 end;
 
 function TThemeServices.IsMixed(Details: TThemedElementDetails): Boolean;