pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 UpdateJMenuStates;
procedure UpdateJMenuKeys; procedure UpdateJMenuKeys;
function SortEngineOptions: TRxSortEngineOptions; 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 GetScrollbarParams(out aRange, aPage, aPos: Integer);
procedure RestoreEditor; procedure RestoreEditor;
//storage //storage
@ -825,6 +825,7 @@ type
property BorderSpacing; property BorderSpacing;
property BorderStyle; property BorderStyle;
property Color; property Color;
property CellHintPriority;
property BorderColor; property BorderColor;
property DrawFullLine: boolean read GetDrawFullLine write SetDrawFullLine; deprecated; property DrawFullLine: boolean read GetDrawFullLine write SetDrawFullLine; deprecated;
property FocusColor; property FocusColor;
@ -866,6 +867,7 @@ type
property ShowHint; property ShowHint;
property TabOrder; property TabOrder;
property TabStop; property TabStop;
property TabAdvance;
property TitleFont; property TitleFont;
property TitleImageList; property TitleImageList;
property TitleStyle; property TitleStyle;
@ -2361,7 +2363,7 @@ begin
EditorMode := True; EditorMode := True;
end; end;
end; end;
{
procedure TRxDBGrid.WMVScroll(var Message: TLMVScroll); procedure TRxDBGrid.WMVScroll(var Message: TLMVScroll);
var var
IsSeq: boolean; IsSeq: boolean;
@ -2421,7 +2423,7 @@ begin
DebugLn('---- Diff=',dbgs(DeltaRec), ' FinalPos=',dbgs(aPos)); DebugLn('---- Diff=',dbgs(DeltaRec), ' FinalPos=',dbgs(aPos));
{$endif} {$endif}
end; end;
}
procedure TRxDBGrid.SetAutoSort(const AValue: boolean); procedure TRxDBGrid.SetAutoSort(const AValue: boolean);
var var
S: string; S: string;