From 5aa08935ffa25c62d44a5a1f2f68b31df7d070d6 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 Nov 2016 13:57:10 +0000
Subject: [PATCH] RxDBGrid - remove code for LM_VScroll

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdbgrid.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/components/rx/trunk/rxdbgrid.pas b/components/rx/trunk/rxdbgrid.pas
index ce0fc379b..e8dc70656 100644
--- a/components/rx/trunk/rxdbgrid.pas
+++ b/components/rx/trunk/rxdbgrid.pas
@@ -655,7 +655,7 @@ type
     procedure UpdateJMenuStates;
     procedure UpdateJMenuKeys;
     function SortEngineOptions: TRxSortEngineOptions;
-    procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
+//    procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
     procedure GetScrollbarParams(out aRange, aPage, aPos: Integer);
     procedure RestoreEditor;
     //storage
@@ -825,6 +825,7 @@ type
     property BorderSpacing;
     property BorderStyle;
     property Color;
+    property CellHintPriority;
     property BorderColor;
     property DrawFullLine: boolean read GetDrawFullLine write SetDrawFullLine; deprecated;
     property FocusColor;
@@ -866,6 +867,7 @@ type
     property ShowHint;
     property TabOrder;
     property TabStop;
+    property TabAdvance;
     property TitleFont;
     property TitleImageList;
     property TitleStyle;
@@ -2361,7 +2363,7 @@ begin
     EditorMode := True;
   end;
 end;
-
+{
 procedure TRxDBGrid.WMVScroll(var Message: TLMVScroll);
 var
   IsSeq: boolean;
@@ -2421,7 +2423,7 @@ begin
   DebugLn('---- Diff=',dbgs(DeltaRec), ' FinalPos=',dbgs(aPos));
   {$endif}
 end;
-
+}
 procedure TRxDBGrid.SetAutoSort(const AValue: boolean);
 var
   S: string;