From 5e469a8721dde6cd2eb76483f98895d042434bde Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 2 Sep 2010 18:23:27 +0000
Subject: [PATCH] * NetGradient: initialize ControlStyle to accept controls and
 dont focus

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1314 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/smnetgradient/smnetgradient.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/smnetgradient/smnetgradient.pas b/components/smnetgradient/smnetgradient.pas
index de602e2f5..846b26859 100644
--- a/components/smnetgradient/smnetgradient.pas
+++ b/components/smnetgradient/smnetgradient.pas
@@ -277,6 +277,7 @@ constructor TCustomNetGradient.Create(AOwner: TComponent);
 begin
   { Inherit original constructor }
   inherited Create(AOwner);
+  ControlStyle := ControlStyle + [csAcceptsControls, csNoFocus];
   { Add new initializations }
   FLayout        := tlCenter;
   FBevelInner    := bvNone;