pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:RxDBGrid - add new event BeforeSorting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7341 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-03-24 13:25:48 +00:00
parent 7c43c78f0c
commit 48445d706a
3 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/docs/rxmemds.xml
View File

@ -3,7 +3,8 @@
<package name="rxnew">
<module name="rxmemds">
<element name="TRxMemoryData"><short>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</short><descr>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</descr>
<element name="TRxMemoryData"><short>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</short><descr>TRxMemoryData - таблица в памяти. Является наследником от TDataSet
</descr>
</element>
<element name="TRxMemoryData.Create"/>
<element name="TRxMemoryData.Destroy"/>

11
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -31,7 +31,7 @@
{$I rx.inc}
unit rxdbgrid;
unit RxDBGrid;
interface
@ -753,6 +753,7 @@ type
FIsSelectedDefaultFont:boolean;
FFooterOptions: TRxDBGridFooterOptions;
FBeforeSorting: TNotifyEvent;
FOnCalcRowHeight: TRxDBGridCalcRowHeight;
FSearchOptions: TRxDBGridSearchOptions;
FSelectedFont: TFont;
@ -1046,6 +1047,7 @@ type
property OnFiltred: TNotifyEvent read FOnFiltred write FOnFiltred;
property OnSortChanged: TNotifyEvent read FOnSortChanged write FOnSortChanged;
property BeforeSorting: TNotifyEvent read FBeforeSorting write FBeforeSorting;
property OnDataHintShow: TRxDBGridDataHintShowEvent read FOnDataHintShow write FOnDataHintShow;
//from DBGrid
@ -5070,6 +5072,13 @@ begin
end;
end;
if Assigned(FBeforeSorting) then
begin
FSortingNow := True;
FBeforeSorting(Self);
FSortingNow := False;
end;
CollumnSortListUpdate;
if Assigned(FSortEngine) then
CollumnSortListApply;

6
components/rx/trunk/rxnew.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<Package Version="5">
<PathDelim Value="\"/>
<Name Value="rxnew"/>
<Type Value="RunAndDesignTime"/>
@ -23,9 +23,9 @@
</CompilerOptions>
<Description Value="Delphi VCL Extensions (RX)
Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2018"/>
translate to Lazarus by alexs in 2005 - 2020"/>
<License Value="LGPL"/>
<Version Major="3" Minor="3" Release="1" Build="220"/>
<Version Major="3" Minor="3" Release="2" Build="222"/>
<Files Count="70">
<Item1>
<Filename Value="registerrx.pas"/>