From 5d2ea9fdea953113f64f83c8f408b1848166fae0 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Sun, 29 Aug 2010 20:23:10 +0200
Subject: customstyle demo: minor style fix for menus.

---
 examples/gui/customstyles/mystyle.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples/gui/customstyles')

diff --git a/examples/gui/customstyles/mystyle.pas b/examples/gui/customstyles/mystyle.pas
index d96e8284..5f95506c 100644
--- a/examples/gui/customstyles/mystyle.pas
+++ b/examples/gui/customstyles/mystyle.pas
@@ -120,7 +120,7 @@ end;
 procedure TMyStyle.DrawMenuRow(ACanvas: TfpgCanvas; r: TfpgRect; AFlags: TfpgMenuItemFlags);
 begin
   inherited DrawMenuRow(ACanvas, r, AFlags);
-  if mifSelected in AFlags then
+  if (mifSelected in AFlags) and not (mifSeparator in AFlags) then
     ACanvas.GradientFill(r, TfpgColor($fec475), TfpgColor($fb9d24), gdVertical);
 end;
 
-- 
cgit v1.2.3-70-g09d2