From 41fbd0d144ed4c68c6905b2ebb92317b1269501c Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 5 Aug 2011 14:21:15 +0000
Subject: [PATCH] Changes the confusing constant name for navFocusableButtons

git-svn-id: trunk@31877 -
---
 lcl/dbctrls.pp                    | 2 +-
 lcl/include/dbcustomnavigator.inc | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index d9f2c4843c..adcf456666 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -1103,7 +1103,7 @@ type
   TDBNavButtonSet = set of TDBNavButtonType;
   TDBNavButtonStyle = set of (nsAllowTimer, nsFocusRect);
   TDBNavButtonDirection = (nbdHorizontal,nbdVertical);
-  TDBNavigatorOption = (noFocusableButtons);
+  TDBNavigatorOption = (navFocusableButtons);
   TDBNavigatorOptions = set of TDBNavigatorOption;
 
   // for Delphi compatibility
diff --git a/lcl/include/dbcustomnavigator.inc b/lcl/include/dbcustomnavigator.inc
index a6cb9b5b1c..4c2fab5348 100644
--- a/lcl/include/dbcustomnavigator.inc
+++ b/lcl/include/dbcustomnavigator.inc
@@ -270,7 +270,7 @@ begin
     CurButton.Flat:=Flat;
     CurButton.Index:=CurButtonType;
     CurButton.Visible:=CurButtonType in FVisibleButtons;
-    if not (noFocusableButtons in FOptions) then CurButton.Parent := Self
+    if not (navFocusableButtons in FOptions) then CurButton.Parent := Self
     else CurButton.Parent := nil;
   end;
 
@@ -297,7 +297,7 @@ begin
     // update button properties
     CurFocusableButton.Index:=CurButtonType;
     CurFocusableButton.Visible:=CurButtonType in FVisibleButtons;
-    if (noFocusableButtons in FOptions) then CurFocusableButton.Parent := Self
+    if (navFocusableButtons in FOptions) then CurFocusableButton.Parent := Self
     else CurFocusableButton.Parent := nil;
   end;