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

lcl: dbgrids: allow smooth scrolling only for horizontal scrollbar.

Browse Source 
git-svn-id: trunk@52350 -
This commit is contained in:
ondrej 2016-05-23 05:04:26 +00:00
parent e7c61fbccf
commit 4f22e5e67a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/dbgrids.pas
View File

@ -428,6 +428,7 @@ type
function GetIsCellSelected(aCol, aRow: Integer): boolean; override;
function GetIsCellTitle(aCol,aRow: Integer): boolean; override;
procedure GetSelectedState(AState: TGridDrawState; out IsSelected:boolean); override;
function GetSmoothScroll(Which: Integer): Boolean; override;
function GetTruncCellHintText(aCol, aRow: Integer): string; override;
function GridCanModify: boolean;
procedure GetSBVisibility(out HsbVisible,VsbVisible:boolean);override;
@ -2957,6 +2958,14 @@ begin
IsSelected := false;
end;
function TCustomDBGrid.GetSmoothScroll(Which: Integer): Boolean;
begin
if Which=SB_Vert then
Result := False
else
Result := inherited GetSmoothScroll(Which);
end;
function TCustomDBGrid.GridCanModify: boolean;
begin
result := not ReadOnly and (dgEditing in Options) and not FDataLink.ReadOnly
@ -3478,7 +3487,7 @@ begin
inherited Options :=
[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,
goColMoving, goTabs, goEditing, goDrawFocusSelected,
goSmoothScroll, goColMoving, goTabs, goEditing, goDrawFocusSelected,
goColSizing ];
FExtraOptions := [dgeAutoColumns, dgeCheckboxColumn];