* 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
2010-09-02 18:23:27 +00:00
parent a46b4a04a2
commit 5e469a8721
1 changed files with 1 additions and 0 deletions
--- 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;