paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:49:16 +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 GetIsCellSelected(aCol, aRow: Integer): boolean; override;
function GetIsCellTitle(aCol,aRow: Integer): boolean; override; function GetIsCellTitle(aCol,aRow: Integer): boolean; override;
procedure GetSelectedState(AState: TGridDrawState; out IsSelected:boolean); override; procedure GetSelectedState(AState: TGridDrawState; out IsSelected:boolean); override;
function GetSmoothScroll(Which: Integer): Boolean; override;
function GetTruncCellHintText(aCol, aRow: Integer): string; override; function GetTruncCellHintText(aCol, aRow: Integer): string; override;
function GridCanModify: boolean; function GridCanModify: boolean;
procedure GetSBVisibility(out HsbVisible,VsbVisible:boolean);override; procedure GetSBVisibility(out HsbVisible,VsbVisible:boolean);override;
@ -2957,6 +2958,14 @@ begin
IsSelected := false; IsSelected := false;
end; 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; function TCustomDBGrid.GridCanModify: boolean;
begin begin
result := not ReadOnly and (dgEditing in Options) and not FDataLink.ReadOnly result := not ReadOnly and (dgEditing in Options) and not FDataLink.ReadOnly
@ -3478,7 +3487,7 @@ begin
inherited Options := inherited Options :=
[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,
goColMoving, goTabs, goEditing, goDrawFocusSelected, goSmoothScroll, goColMoving, goTabs, goEditing, goDrawFocusSelected,
goColSizing ]; goColSizing ];
FExtraOptions := [dgeAutoColumns, dgeCheckboxColumn]; FExtraOptions := [dgeAutoColumns, dgeCheckboxColumn];