paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxDBGrid - remove code for LM_VScroll

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2016-11-02 13:57:10 +00:00
parent 159c63eeb6
commit 5aa08935ff
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxdbgrid.pas
View File

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