paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changes the confusing constant name for navFocusableButtons

Browse Source 
git-svn-id: trunk@31877 -
This commit is contained in:
sekelsenmat 2011-08-05 14:21:15 +00:00
parent 2f092a33ad
commit 41fbd0d144
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dbctrls.pp
View File

@ -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

4
lcl/include/dbcustomnavigator.inc
View File

@ -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;